avoidMaster :: W.StackSet i l a s sd -> W.StackSet i l a s sd
avoidMaster = W.modify' $ \c -> case c of
W.Stack t [] (r:rs) -> W.Stack r [] (t:rs)
- otherwise -> c
+ _ -> c
-- Create my custom layout.
--
-- Switch to last active workspace, thanks to moljac024 in #xmonad on
-- Freenode (2010-12-18 14:45 CET).
- , ((myModMask, xK_f), toggleWS)
+ , ((myModMask, xK_b), toggleWS)
- -- Lock the screen. The sleep is necessary to allow xtrlock to grab the
- -- keyboard input.
- , ((myModMask, xK_z), spawn "sleep 1 && exec xtrlock")
+ -- Lock the screen.
+ , ((myModMask, xK_z), spawn "$HOME/.xlockscreen lock")
]
++
-- When using multiple screens, switching to another workspace causes