From 032a8bfa18fc67b6a8086b4f69e71ca83cfb0d63 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 7 Nov 2007 09:26:37 +0100
Subject: Use spawnPipe in sjanssenConfig

darcs-hash:20071107082637-a5988-5eb4742b3580e2b53bab10db7e45e1f8d752cb86.gz
---
 XMonad/Config/Sjanssen.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'XMonad')

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))
-- 
cgit v1.2.3