aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Config
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Config')
-rw-r--r--XMonad/Config/Sjanssen.hs8
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")