diff --git a/xmonad.hs b/xmonad.hs index 117e9fc..be15ef2 100755 --- a/xmonad.hs +++ b/xmonad.hs @@ -93,8 +93,13 @@ getTopBar sc = if sc == 1 getBarbicanBar :: Int -> String getBarbicanBar sc = if sc == 1 - then "ssh barbican 'conky' | dzen2 -dock -p -x 0 -y -108 -ta l -w 1920 -e 'sigusr1=togglehide'" - else "ssh barbican 'conky' | dzen2 -dock -p -x 1920 -y -108 -ta l -w 1920 -e 'sigusr1=togglehide'" + then "ssh barbican 'conky' | dzen2 -dock -p -x 0 -y -126 -ta l -w 1920 -e 'sigusr1=togglehide'" + else "ssh barbican 'conky' | dzen2 -dock -p -x 1920 -y -126 -ta l -w 1920 -e 'sigusr1=togglehide'" + +getDeltachunkBar :: Int -> String +getDeltachunkBar sc = if sc == 1 + then "ssh deltachunk 'conky' | dzen2 -dock -p -x 0 -y -108 -ta l -w 1920 -e 'sigusr1=togglehide'" + else "ssh deltachunk 'conky' | dzen2 -dock -p -x 1920 -y -108 -ta l -w 1920 -e 'sigusr1=togglehide'" getFerrumBar :: Int -> String getFerrumBar sc = if sc == 1 @@ -272,6 +277,7 @@ main = do sc <- IS.countScreens dzenTopBar <- spawnPipe (getTopBar sc) dzenBarbicanBar <- spawnPipe (getBarbicanBar sc) + dzenDeltachunkBar <- spawnPipe (getDeltachunkBar sc) dzenFerrumBar <- spawnPipe (getFerrumBar sc) dzenGammachunkBar <- spawnPipe (getGammachunkBar sc) dzenOsmiumBar <- spawnPipe (getOsmiumBar sc) @@ -283,7 +289,7 @@ main = do , focusFollowsMouse = True , manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig , handleEventHook = docksEventHook <+> handleEventHook desktopConfig - , layoutHook = avoidStruts $ gaps [(D,90)] $ layoutH + , layoutHook = avoidStruts $ gaps [(D,108)] $ layoutH , logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0) , borderWidth = 1 , normalBorderColor = "#333333"