Added ewmhLogHookCustom, which allows arbitrary transformation of the workspace list.

darcs-hash:20080706160847-d53a8-2b6ded39b1f4da02e9bfd52d9ccaf7d05829b517.gz

1 files changed, 13 insertions, 2 deletions

diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs
index 7984dff..a0d6689 100644
--- a/XMonad/Hooks/EwmhDesktops.hs
+++ b/XMonad/Hooks/EwmhDesktops.hs
@@ -17,6 +17,7 @@ module XMonad.Hooks.EwmhDesktops (
     -- $usage
     EwmhDesktopsHook,
     ewmhDesktopsLogHook,
+    ewmhDesktopsLogHookCustom,
     ewmhDesktopsLayout
     ) where
 
@@ -53,13 +54,23 @@ import XMonad.Hooks.EventHook
 --
 -- "XMonad.Doc.Extending#Editing_the_layout_hook"
 
+
+
+
 -- |
 -- Notifies pagers and window lists, such as those in the gnome-panel
 -- of the current state of workspaces and windows.
 ewmhDesktopsLogHook :: X ()
-ewmhDesktopsLogHook = withWindowSet $ \s -> do
+ewmhDesktopsLogHook = ewmhDesktopsLogHookCustom id
+
+
+-- |
+-- Generalized version of ewmhDesktopsLogHook that allows an arbitrary
+-- user-specified function to transform the workspace list (post-sorting)
+ewmhDesktopsLogHookCustom :: ([WindowSpace] -> [WindowSpace]) -> X ()
+ewmhDesktopsLogHookCustom f = withWindowSet $ \s -> do
     sort' <- getSortByIndex
-    let ws = sort' $ W.workspaces s
+    let ws = f $ sort' $ W.workspaces s
 
     setSupported