From f44a3e52ef646b65f5bc14873bb87fe1495f38ff Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Thu, 27 Apr 2017 21:59:11 -0700
Subject: [PATCH] [XMonad] Fix space toggling

---
 dotfiles/xmonad/xmonad.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 355b30ce..72e7016e 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -185,8 +185,8 @@ tvScreenId :: ScreenId
 tvScreenId = 1
 
 disableTVFading = setFading (Just tvScreenId) False
-enableGaps = sendMessage $ ModifySpacing const spacingSize
-disableGaps = sendMessage $ ModifySpacing const 0
+enableGaps = sendMessage $ ModifySpacing $ const spacingSize
+disableGaps = sendMessage $ ModifySpacing $ const 0
 
 hostNameToAction =
   M.fromList [ ("imalison-arch", disableTVFading >> enableGaps)
@@ -238,7 +238,7 @@ layoutTogglesMap =
     toggleTuple toggle =
       fmap (\str -> (str, Toggle toggle)) (toggleToStringWithState toggle)
 
-spacingSize = 10
+spacingSize = 20
 
 togglesXActionsMap =
   M.fromList [ ("GAPS", sendMessage $ ModifySpacing toggleSpacing ) ]
@@ -325,7 +325,7 @@ myLayoutHook =
   mkToggle1 LIMIT .
   mkToggle1 MAGICFOCUS .
   mkToggle1 NBFULL .
-  smartSpacing 10 .
+  smartSpacing spacingSize .
   workspaceNamesHook .
   lessBorders Screen $ fst layoutInfo