X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=xmonad%2Fxmonad.hs;h=198bf7fcf89b39b902ce34abc515a3bafd66b3de;hb=84141745a8f194f4e3562f57a2105eafecc38986;hp=7ae8dbb2aeda9d658ed4a6553469202d72ee6365;hpb=3a3e803e9836ffcf97e93a79e0e7badc6ef47eff;p=config%2Fdotfiles.git

diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs
index 7ae8dbb..198bf7f 100644
--- a/xmonad/xmonad.hs
+++ b/xmonad/xmonad.hs
@@ -36,7 +36,7 @@ import qualified XMonad.StackSet as W
 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.
 --
@@ -151,7 +151,7 @@ myKeys = [
 
         -- 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.