From 624565d9a4e93e36e22516b3748203981453df5c Mon Sep 17 00:00:00 2001
From: Stefan Ritter <xeno@thehappy.de>
Date: Thu, 29 Oct 2009 10:14:28 +0100
Subject: Weekly commit

---
 xmonad/xmonad-0.8.hs | 19 +++++++------------
 1 file changed, 7 insertions(+), 12 deletions(-)

(limited to 'xmonad/xmonad-0.8.hs')

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