wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[XMonad] Fix space toggling

Browse Source
This commit is contained in:
Ivan Malison 2017-04-27 21:59:11 -07:00
parent 42b6e4a0af
commit f44a3e52ef
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/xmonad/xmonad.hs
View File

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