xmonad: adapt bindings to current herbstluftwm setup

[config/dotfiles.git] / x11 / xmonad / xmonad.hs

diff --git a/x11/xmonad/xmonad.hs b/x11/xmonad/xmonad.hs
index bdee75d1a9d31e8498a52386890b47e5796c07a0..15d4f4d3a39e50278cc39e4fe9a85984a964eab1 100644 (file)
--- a/x11/xmonad/xmonad.hs
+++ b/x11/xmonad/xmonad.hs
@@ -58,10 +58,6 @@ avoidMaster = W.modify' $ \c -> case c of
 --
 -- The limit layout displays only one window in the lower pane, thanks to to
 -- Qantourisc (2010-06-12 15:15 CEST) for the hint to use TwoPane.
---
--- onWorkspace is used for a special layout for Gimp, thanks to Nathan Howell
--- (http://nathanhowell.net/2009/03/08/xmonad-and-the-gimp/) for this layout
--- (read on 2011-06-19).
 myLayoutHook =
     named "Default" (smartBorders $ Mirror tiled)
         ||| named "Full" (smartBorders Full)
@@ -142,12 +138,12 @@ myModMask = mod4Mask
 myKeys :: [((KeyMask, KeySym), X ())]
 myKeys = [
         -- Switch to next layout, but only use the listed layouts.
-        ((myModMask, xK_space), nextLayoutIncluding ["Default", "Full"])
+        ((myModMask, xK_f), nextLayoutIncluding ["Default", "Full"])
         -- Switch to vertical tiled layout.
       , ((myModMask, xK_v), sendMessage $ JumpToLayout "Vertical")
         -- Switch to limit layout which displays only one window in the lower
         -- pane.
-      , ((myModMask, xK_b), sendMessage $ JumpToLayout "Limit")
+      , ((myModMask, xK_space), nextLayoutIncluding ["Default","Limit"])
 
         -- Switch to last active workspace, thanks to moljac024 in #xmonad on
         -- Freenode (2010-12-18 14:45 CET).