From 0ea6e96512fb5a686454964953a9dfe8f99340a2 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sun, 16 Dec 2007 19:56:53 +0100
Subject: update Config.Droundy to use a few nice hooks.

darcs-hash:20071216185653-72aca-d4d8143e6e1efadbc2ad4fa1b7d8c49dd207a320.gz
---
 XMonad/Config/Droundy.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'XMonad/Config/Droundy.hs')

diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs
index e37a9a5..0657dd5 100644
--- a/XMonad/Config/Droundy.hs
+++ b/XMonad/Config/Droundy.hs
@@ -41,8 +41,8 @@ import XMonad.Actions.CopyWindow
 import XMonad.Actions.DynamicWorkspaces
 import XMonad.Actions.RotView
 
---import XMonad.Hooks.ManageDocks
---import XMonad.Hooks.UrgencyHook
+import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.UrgencyHook
 
 myXPConfig :: XPConfig
 myXPConfig = defaultXPConfig {font="-*-lucida-medium-r-*-*-14-*-*-*-*-*-*-*"
@@ -127,13 +127,15 @@ keys x = M.fromList $
     zip (zip (repeat (modMask x .|. shiftMask)) [xK_F1..xK_F12]) (map (withNthWorkspace copy) [0..])
 
 config = -- withUrgencyHook FocusUrgencyHook $
+         withUrgencyHook NoUrgencyHook $
          defaultConfig
          { borderWidth = 1 -- Width of the window border in pixels.
          , XMonad.workspaces = ["1:mutt","2:iceweasel"]
          , layoutHook = workspaceDir "~" $ windowNavigation $
-                        toggleLayouts (noBorders Full) $ -- avoidStruts $
+                        toggleLayouts (noBorders Full) $ avoidStruts $
                         Named "tabbed" (noBorders mytab) |||
                         Named "xclock" (mytab ****//* combineTwo Square mytab mytab) |||
+                        Named "three" (mytab **//* mytab *//* combineTwo Square mytab mytab) |||
                         Named "widescreen" ((mytab *||* mytab)
                                                 ****//* combineTwo Square mytab mytab) --   |||
                         --mosaic 0.25 0.5
-- 
cgit v1.2.3