colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Enable gaps at starup

Browse Source
This commit is contained in:
Ivan Malison 2017-04-20 17:35:08 -07:00
parent 67f2c87ca1
commit 94a315b076
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/xmonad/xmonad.hs
View File

@ -185,9 +185,11 @@ tvScreenId :: ScreenId
tvScreenId = 1 tvScreenId = 1
disableTVFading = setFading (Just tvScreenId) False disableTVFading = setFading (Just tvScreenId) False
enableGaps = sendMessage $ ModifySpacing const spacingSize
disableGaps = sendMessage $ ModifySpacing const 0
hostNameToAction = hostNameToAction =
M.fromList [ ("imalison-arch", disableTVFading) M.fromList [ ("imalison-arch", disableTVFading >> enableGaps)
, ("imalison-uber-loaner", return ()) , ("imalison-uber-loaner", return ())
] ]
@ -236,9 +238,11 @@ layoutTogglesMap =
toggleTuple toggle = toggleTuple toggle =
fmap (\str -> (str, Toggle toggle)) (toggleToStringWithState toggle) fmap (\str -> (str, Toggle toggle)) (toggleToStringWithState toggle)
spacingSize = 10
togglesXActionsMap = togglesXActionsMap =
M.fromList [ ("GAPS", sendMessage $ ModifySpacing toggleSpacing ) ] M.fromList [ ("GAPS", sendMessage $ ModifySpacing toggleSpacing ) ]
where toggleSpacing 0 = 10 where toggleSpacing 0 = spacingSize
toggleSpacing _ = 0 toggleSpacing _ = 0
togglesMap = togglesMap =