diff options
| -rw-r--r-- | XMonad/Config/Sjanssen.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs index be5a72b..a2676e2 100644 --- a/XMonad/Config/Sjanssen.hs +++ b/XMonad/Config/Sjanssen.hs @@ -20,16 +20,16 @@ import XMonad.Layout.TwoPane import qualified Data.Map as M -sjanssenConfig = do - sp <- mkSpawner - return . ewmh $ defaultConfig +sjanssenConfig = + ewmh $ defaultConfig { terminal = "exec urxvt" , workspaces = ["irc", "web"] ++ map show [3 .. 9 :: Int] , mouseBindings = \(XConfig {modMask = modm}) -> M.fromList $ [ ((modm, button1), (\w -> focus w >> mouseMoveWindow w)) , ((modm, button2), (\w -> focus w >> windows W.swapMaster)) , ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ] - , keys = \c -> mykeys sp c `M.union` keys defaultConfig c + , keys = \c -> mykeys c `M.union` keys defaultConfig c + , logHook = dynamicLogString sjanssenPP >>= xmonadPropLog , layoutHook = modifiers layouts , manageHook = composeAll [className =? x --> doShift w | (x, w) <- [ ("Firefox", "web") |