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

Added deltachunk to bottom gap

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 :: Int -> String
getBarbicanBar sc = if sc == 1 getBarbicanBar sc = if sc == 1
then "ssh barbican 'conky' | dzen2 -dock -p -x 0 -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 -108 -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 :: Int -> String
getFerrumBar sc = if sc == 1 getFerrumBar sc = if sc == 1
@ -272,6 +277,7 @@ main = do
sc <- IS.countScreens sc <- IS.countScreens
dzenTopBar <- spawnPipe (getTopBar sc) dzenTopBar <- spawnPipe (getTopBar sc)
dzenBarbicanBar <- spawnPipe (getBarbicanBar sc) dzenBarbicanBar <- spawnPipe (getBarbicanBar sc)
dzenDeltachunkBar <- spawnPipe (getDeltachunkBar sc)
dzenFerrumBar <- spawnPipe (getFerrumBar sc) dzenFerrumBar <- spawnPipe (getFerrumBar sc)
dzenGammachunkBar <- spawnPipe (getGammachunkBar sc) dzenGammachunkBar <- spawnPipe (getGammachunkBar sc)
dzenOsmiumBar <- spawnPipe (getOsmiumBar sc) dzenOsmiumBar <- spawnPipe (getOsmiumBar sc)
@ -283,7 +289,7 @@ main = do
, focusFollowsMouse = True , focusFollowsMouse = True
, manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig , manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig
, handleEventHook = docksEventHook <+> handleEventHook 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) , logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0)
, borderWidth = 1 , borderWidth = 1
, normalBorderColor = "#333333" , normalBorderColor = "#333333"