twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use spawnPipe in sjanssenConfig

Browse Source
This commit is contained in:
Spencer Janssen 2007-11-07 08:26:37 +00:00
parent f98023d3c2
commit 4fcd67ef05
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
XMonad/Config/Sjanssen.hs
View File

@ -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))