summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Ritter <xeno@thehappy.de>2009-10-22 14:18:10 +0200
committerStefan Ritter <xeno@thehappy.de>2009-10-22 14:18:10 +0200
commit6837c45c08d879abaa0963e817c34cf8a6098dc7 (patch)
tree298ab3579e7924f0040237a7dec7f899c5a17ffc
parent016fbfbdb52f2658c476901aaca3b0e4569ec353 (diff)
Added workspaces to xmonad.hs
-rw-r--r--xmonad/xmonad-0.8.hs31
1 files changed, 10 insertions, 21 deletions
diff --git a/xmonad/xmonad-0.8.hs b/xmonad/xmonad-0.8.hs
index 2d7c62f..ec3a3bd 100644
--- a/xmonad/xmonad-0.8.hs
+++ b/xmonad/xmonad-0.8.hs
@@ -9,14 +9,6 @@ import System.IO
import qualified XMonad.StackSet as W
import qualified Data.Map as M
-myTerminal = "x-terminal-emulator"
-myBorderWidth = 1
-myModMask = mod1Mask
-myNumlockMask = mod2Mask
-myWorkspaces = ["1","2","3","4","5","6","7","8","9"]
-myNormalBorderColor = "#dddddd"
-myFocusedBorderColor = "#ff0000"
-
myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
[ ((modMask, xK_Return), spawn $ XMonad.terminal conf)
, ((modMask, xK_q ), spawn "exe=`dmenu_path | dmenu` && eval \"exec $exe\"")
@@ -55,26 +47,23 @@ myManageHook = composeAll
myFocusFollowsMouse :: Bool
myFocusFollowsMouse = True
-myLogHook = return ()
-myStartupHook = return ()
-
myConfig = defaultConfig
main = do
-xmobar <- spawnPipe "xmobar"
+xmproc <- spawnPipe "xmobar"
xmonad $ defaultConfig {
manageHook = manageDocks <+> manageHook defaultConfig,
layoutHook = avoidStruts $ layoutHook defaultConfig,
- terminal = myTerminal,
+ terminal = "x-terminal-emulator",
focusFollowsMouse = myFocusFollowsMouse,
- borderWidth = myBorderWidth,
- modMask = myModMask,
- numlockMask = myNumlockMask,
- workspaces = myWorkspaces,
- normalBorderColor = myNormalBorderColor,
- focusedBorderColor = myFocusedBorderColor,
+ borderWidth = 1,
+ modMask = mod1Mask,
+ numlockMask = mod2Mask,
+ workspaces = ["1","2","3","4","5","6","7","8","9"],
+ normalBorderColor = "#dddddd",
+ focusedBorderColor = "#ff0000",
keys = myKeys,
mouseBindings = myMouseBindings,
- logHook = myLogHook,
- startupHook = myStartupHook
+ logHook = dynamicLogWithPP $ xmobarPP { ppOutput = hPutStrLn xmproc , ppTitle = xmobarColor "green" "" . shorten 50 },
+ startupHook = return()
}