diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-07 09:26:37 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-07 09:26:37 +0100 |
| commit | 032a8bfa18fc67b6a8086b4f69e71ca83cfb0d63 (patch) | |
| tree | 8f8799cd731af773149ddaba042cbf9c226ec9aa | |
| parent | d3aad100450b41cf7c3ce2b8656668bcdf477fe5 (diff) | |
| download | XMonadContrib-032a8bfa18fc67b6a8086b4f69e71ca83cfb0d63.tar.gz XMonadContrib-032a8bfa18fc67b6a8086b4f69e71ca83cfb0d63.tar.xz XMonadContrib-032a8bfa18fc67b6a8086b4f69e71ca83cfb0d63.zip | |
Use spawnPipe in sjanssenConfig
darcs-hash:20071107082637-a5988-5eb4742b3580e2b53bab10db7e45e1f8d752cb86.gz
| -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)) |