From a71fb455bfcf245c21e9b8704843a8fd97e7d154 Mon Sep 17 00:00:00 2001
From: Trey Blancher <trey@blancher.net>
Date: Sat, 18 Sep 2021 18:36:06 -0400
Subject: [PATCH] Finished gammachunk cleanup

---
 xmonad.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index 002cfb8..66398ab 100755
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -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"