aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Config/Droundy.hs
diff options
context:
space:
mode:
authorDaniel Schoepe <asgaroth_@gmx.de>2009-02-03 17:00:46 +0100
committerDaniel Schoepe <asgaroth_@gmx.de>2009-02-03 17:00:46 +0100
commit43e952a307c22f7098963061f7f6127974158c13 (patch)
treeadeef00961b45644558d6068522e77b36f0b2ff9 /XMonad/Config/Droundy.hs
parenta76661c77c488d648dfdae72b2b8ab98d72c338d (diff)
downloadXMonadContrib-43e952a307c22f7098963061f7f6127974158c13.tar.gz
XMonadContrib-43e952a307c22f7098963061f7f6127974158c13.tar.xz
XMonadContrib-43e952a307c22f7098963061f7f6127974158c13.zip
Adjustments to use the new event hook feature instead of Hooks.EventHook
Ignore-this: f8c239bc8e301cbd6fa509ef748af542 darcs-hash:20090203160046-cb1c6-d66821c5b8a5a60e3b76148654c6e28806b37749.gz
Diffstat (limited to 'XMonad/Config/Droundy.hs')
-rw-r--r--XMonad/Config/Droundy.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs
index a78947b..6f63688 100644
--- a/XMonad/Config/Droundy.hs
+++ b/XMonad/Config/Droundy.hs
@@ -44,7 +44,7 @@ import XMonad.Actions.CycleWS ( moveTo, WSType( HiddenNonEmptyWS ),
import XMonad.Hooks.ManageDocks ( avoidStruts, manageDocks )
import XMonad.Hooks.EwmhDesktops ( ewmhDesktopsLogHook,
- ewmhDesktopsLayout )
+ ewmhDesktopsEventHook )
myXPConfig :: XPConfig
myXPConfig = defaultXPConfig {font="-*-lucida-medium-r-*-*-14-*-*-*-*-*-*-*"
@@ -121,7 +121,7 @@ keys x = M.fromList $
config = defaultConfig
{ borderWidth = 1 -- Width of the window border in pixels.
, XMonad.workspaces = ["mutt","iceweasel"]
- , layoutHook = ewmhDesktopsLayout $ showWName $ workspaceDir "~" $
+ , layoutHook = showWName $ workspaceDir "~" $
boringWindows $ smartBorders $ windowNavigation $
maximizeVertical $ toggleLayouts Full $ avoidStruts $
named "tabbed" mytab |||
@@ -135,6 +135,7 @@ config = defaultConfig
, terminal = "xterm" -- The preferred terminal program.
, normalBorderColor = "#222222" -- Border color for unfocused windows.
, focusedBorderColor = "#00ff00" -- Border color for focused windows.
+ , handleEventHook = ewmhDesktopsEventHook
, XMonad.modMask = mod1Mask
, XMonad.keys = keys
}