aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-11-07 09:26:37 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-11-07 09:26:37 +0100
commit032a8bfa18fc67b6a8086b4f69e71ca83cfb0d63 (patch)
tree8f8799cd731af773149ddaba042cbf9c226ec9aa
parentd3aad100450b41cf7c3ce2b8656668bcdf477fe5 (diff)
downloadXMonadContrib-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.hs10
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))