diff options
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Config/Sjanssen.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs index d3afba3..1e50df5 100644 --- a/XMonad/Config/Sjanssen.hs +++ b/XMonad/Config/Sjanssen.hs @@ -10,17 +10,21 @@ import XMonad.Layout.NoBorders import XMonad.Hooks.DynamicLog import XMonad.Prompt import XMonad.Prompt.Shell +import XMonad.Util.Run (spawnPipe) import Data.Bits import qualified Data.Map as M import Graphics.X11 +import System.IO (hPutStrLn) -sjanssenConfig :: XConfig -sjanssenConfig = defaultConfig +sjanssenConfig :: IO XConfig +sjanssenConfig = do + xmobar <- spawnPipe "xmobar" + return $ defaultConfig { defaultGaps = [(15,0,0,0)] , terminal = "urxvt" , workspaces = ["irc", "web"] ++ map show [3 .. 7 :: Int] ++ ["mail", "im"] - , logHook = dynamicLogWithPP sjanssenPP + , logHook = dynamicLogWithPP $ sjanssenPP { ppOutput = hPutStrLn xmobar } , modMask = mod4Mask , mouseBindings = \(XConfig {modMask = modm}) -> M.fromList $ [ ((modm, button1), (\w -> focus w >> mouseMoveWindow w)) |