summaryrefslogtreecommitdiffstats
path: root/xmonad/xmonad-0.8.hs
diff options
context:
space:
mode:
authorStefan Ritter <xeno@thehappy.de>2009-10-29 10:14:28 +0100
committerStefan Ritter <xeno@thehappy.de>2009-10-29 10:14:28 +0100
commit624565d9a4e93e36e22516b3748203981453df5c (patch)
treeb1257153d72c9f385c449f223f1bc90a68cda7a1 /xmonad/xmonad-0.8.hs
parent31748d1dd98125c2cb8ec4bdcbb6bb2958643d50 (diff)
Weekly commit
Diffstat (limited to 'xmonad/xmonad-0.8.hs')
-rw-r--r--xmonad/xmonad-0.8.hs19
1 files changed, 7 insertions, 12 deletions
diff --git a/xmonad/xmonad-0.8.hs b/xmonad/xmonad-0.8.hs
index a9304ac..1c3392d 100644
--- a/xmonad/xmonad-0.8.hs
+++ b/xmonad/xmonad-0.8.hs
@@ -1,8 +1,7 @@
import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
-import XMonad.Hooks.UrgencyHook
-import XMonad.Util.Run (spawnPipe)
+import XMonad.Hooks.EwmhDesktops
import XMonad.Actions.CycleWS
import System.Exit
import System.IO
@@ -25,9 +24,8 @@ myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
, ((modMask, xK_h ), prevWS)
, ((modMask, xK_f ), nextWS)
, ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess))
- --, ((modMask, xK_h ), withFocused $ windows . W.sink)
- --, ((modMask , xK_h ), sendMessage (IncMasterN 1))
- --, ((modMask , xK_f ), sendMessage (IncMasterN (-1)))
+ , ((modMask , xK_n ), sendMessage (IncMasterN 1))
+ , ((modMask , xK_t ), sendMessage (IncMasterN (-1)))
]
++
@@ -51,10 +49,8 @@ myFocusFollowsMouse = True
myConfig = defaultConfig
main = do
-xmproc <- spawnPipe "xmobar"
-xmonad $ withUrgencyHook NoUrgencyHook defaultConfig {
+xmonad $ defaultConfig {
manageHook = manageDocks <+> manageHook defaultConfig,
- layoutHook = avoidStruts $ layoutHook defaultConfig,
terminal = "x-terminal-emulator",
focusFollowsMouse = myFocusFollowsMouse,
borderWidth = 1,
@@ -65,9 +61,8 @@ xmonad $ withUrgencyHook NoUrgencyHook defaultConfig {
focusedBorderColor = "#ff0000",
keys = myKeys,
mouseBindings = myMouseBindings,
- logHook = dynamicLogWithPP $ xmobarPP {
- ppOutput = hPutStrLn xmproc ,
- ppTitle = xmobarColor "green" "" . shorten 50 ,
- ppUrgent = xmobarColor "yellow" "red" . shorten 50 },
+ logHook = ewmhDesktopsLogHook,
+ --logHook = dynamicLog,
+ layoutHook = avoidStruts $ layoutHook defaultConfig,
startupHook = return()
}