diff options
| author | Juraj Hercek <juhe_xmonad@hck.sk> | 2008-01-09 16:49:23 +0100 |
|---|---|---|
| committer | Juraj Hercek <juhe_xmonad@hck.sk> | 2008-01-09 16:49:23 +0100 |
| commit | 1539f68a9a5297dff073cc062a1baf14458153f5 (patch) | |
| tree | a89dd2e5e0b024528fca41a6cad306f62f22728d /XMonad/Hooks/DynamicLog.hs | |
| parent | 91e67ec7f78a2859e32a8400326114bc5db69a60 (diff) | |
| download | XMonadContrib-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/DynamicLog.hs')
| -rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 4 |
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 |