Use doShift in my config

This commit is contained in:
Spencer Janssen 2009-02-19 04:20:40 +00:00
parent 35c5e80c32
commit 27bbeff92c

View File

@ -35,7 +35,7 @@ sjanssenConfig = do
, keys = \c -> mykeys sp c `M.union` keys defaultConfig c
, layoutHook = modifiers layouts
, logHook = ewmhDesktopsLogHook
, manageHook = composeAll [className =? x --> doF (W.shift w)
, manageHook = composeAll [className =? x --> doShift w
| (x, w) <- [ ("Firefox", "web")
, ("Ktorrent", "7")
, ("Amarokapp", "7")]]