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

[XMonad] Add FULL and MIRROR to selectable toggles

Browse Source
This commit is contained in:
Ivan Malison 2016-11-20 21:04:07 -08:00
parent 574286e326
commit a2426214a8
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
dotfiles/xmonad/xmonad.hs
View File

@ -104,12 +104,14 @@ instance Transformer MyToggles Window where
transform MAGICFOCUS x k = k (magicFocus x) unmodifyLayout transform MAGICFOCUS x k = k (magicFocus x) unmodifyLayout
myToggles = [LIMIT, GAPS, MAGICFOCUS] myToggles = [LIMIT, GAPS, MAGICFOCUS]
otherToggles = [FULL, MIRROR]
togglesMap = M.fromList [(show toggle, toggle) | toggle <- myToggles] togglesMap = M.fromList $ [ (show toggle, Toggle toggle) | toggle <- myToggles ] ++
[ (show toggle, Toggle toggle) | toggle <- otherToggles ]
selectToggle = do selectToggle = do
Just selectedToggle <- DM.menuMapArgs "rofi" ["-dmenu", "-i"] togglesMap Just selectedToggle <- DM.menuMapArgs "rofi" ["-dmenu", "-i"] togglesMap
sendMessage $ Toggle selectedToggle sendMessage selectedToggle
-- Layout setup -- Layout setup