trey/XMonad
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added deltachunk to bottom gap

Browse Source
This commit is contained in:
Trey Blancher 2021-06-18 19:53:57 -04:00
parent bcc0c1bcf9
commit b52629d1fc
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
xmonad.hs
View File

@ -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"