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

Finished gammachunk cleanup

Browse Source
This commit is contained in:
Trey Blancher 2021-09-18 18:36:06 -04:00
parent fba414f907
commit a71fb455bf
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
xmonad.hs
View File

@ -93,7 +93,7 @@ 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'"
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'"
getDeltachunkBar :: Int -> String
@ -279,7 +279,7 @@ main = do
dzenBarbicanBar <- spawnPipe (getBarbicanBar sc)
dzenDeltachunkBar <- spawnPipe (getDeltachunkBar sc)
dzenFerrumBar <- spawnPipe (getFerrumBar sc)
dzenGammachunkBar <- spawnPipe (getGammachunkBar sc)
-- dzenGammachunkBar <- spawnPipe (getGammachunkBar sc)
dzenOsmiumBar <- spawnPipe (getOsmiumBar sc)
dzenTennessineBar <- spawnPipe (getTennessineBar sc)
dzenBlancherBar <- spawnPipe (getBlancherBar sc)
@ -289,7 +289,7 @@ main = do
, focusFollowsMouse = True
, manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig
, handleEventHook = docksEventHook <+> handleEventHook desktopConfig
, layoutHook = avoidStruts $ gaps [(D,108)] $ layoutH
, layoutHook = avoidStruts $ gaps [(D,90)] $ layoutH
, logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0)
, borderWidth = 1
, normalBorderColor = "#333333"