aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks
diff options
context:
space:
mode:
authorJuraj Hercek <juhe_xmonad@hck.sk>2008-01-09 16:49:23 +0100
committerJuraj Hercek <juhe_xmonad@hck.sk>2008-01-09 16:49:23 +0100
commit1539f68a9a5297dff073cc062a1baf14458153f5 (patch)
treea89dd2e5e0b024528fca41a6cad306f62f22728d /XMonad/Hooks
parent91e67ec7f78a2859e32a8400326114bc5db69a60 (diff)
downloadXMonadContrib-1539f68a9a5297dff073cc062a1baf14458153f5.tar.gz
XMonadContrib-1539f68a9a5297dff073cc062a1baf14458153f5.tar.xz
XMonadContrib-1539f68a9a5297dff073cc062a1baf14458153f5.zip
Extended PP with sorting algorithm specification and added xinerama sorting
algorithm - idea is to specify sorting algorithm from user's xmonad.hs - xinerama sorting algorithm produces same ordering as pprWindowSetXinerama - default ppSort is set to getSortByTag, so the default functionality is the same as it was before darcs-hash:20080109154923-69f16-2b9674eab322c2cac47698a66402cecae6abe253.gz
Diffstat (limited to 'XMonad/Hooks')
-rw-r--r--XMonad/Hooks/DynamicLog.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index d6ab9eb..d949a85 100644
--- a/XMonad/Hooks/DynamicLog.hs
+++ b/XMonad/Hooks/DynamicLog.hs
@@ -108,7 +108,7 @@ dynamicLogWithPP :: PP -> X ()
dynamicLogWithPP pp = do
winset <- gets windowset
urgents <- readUrgents
- sort' <- getSortByTag
+ sort' <- ppSort pp
-- layout description
let ld = description . S.layout . S.workspace . S.current $ winset
-- workspace list
@@ -200,6 +200,7 @@ data PP = PP { ppCurrent, ppVisible
, ppLayout :: String -> String
, ppOrder :: [String] -> [String]
, ppOutput :: String -> IO ()
+ , ppSort :: X ([WindowSpace] -> [WindowSpace])
}
-- | The default pretty printing options, as seen in dynamicLog
@@ -215,6 +216,7 @@ defaultPP = PP { ppCurrent = wrap "[" "]"
, ppLayout = id
, ppOrder = id
, ppOutput = putStrLn
+ , ppSort = getSortByTag
}
-- | Settings to emulate dwm's statusbar, dzen only