diff options
author | Brent Yorgey <byorgey@gmail.com> | 2008-02-01 13:04:30 +0100 |
---|---|---|
committer | Brent Yorgey <byorgey@gmail.com> | 2008-02-01 13:04:30 +0100 |
commit | 67af43c814819f0c836f796b6f1c61cc446143df (patch) | |
tree | 83d468e6c97d165da66fa77c1d062f2673845b98 /XMonad/Hooks/DynamicLog.hs | |
parent | 1fb7bc5eeeb14107abc57e50b33096f4758f5909 (diff) | |
download | XMonadContrib-67af43c814819f0c836f796b6f1c61cc446143df.tar.gz XMonadContrib-67af43c814819f0c836f796b6f1c61cc446143df.tar.xz XMonadContrib-67af43c814819f0c836f796b6f1c61cc446143df.zip |
WorkspaceCompare: some refactoring.
* Export WorkspaceCompare and WorkspaceSort types.
* Extract commonality in sort methods into mkWsSort, which creates
a workspace sort from a workspace comparison function.
* Rename getSortByTag to getSortByIndex, since it did not actually sort
by tag at all; it sorts by index of workspace tags in the user's config.
* Create a new getSortByTag function which actually does sort
lexicographically by tag.
* Enhance documentation.
darcs-hash:20080201120430-bd4d7-71310db2b8d4248ddfb77e3fa25dd0f3b98ea00b.gz
Diffstat (limited to 'XMonad/Hooks/DynamicLog.hs')
-rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs index ecc4891..def78e7 100644 --- a/XMonad/Hooks/DynamicLog.hs +++ b/XMonad/Hooks/DynamicLog.hs @@ -268,7 +268,7 @@ defaultPP = PP { ppCurrent = wrap "[" "]" , ppLayout = id , ppOrder = id , ppOutput = putStrLn - , ppSort = getSortByTag + , ppSort = getSortByIndex } -- | Settings to emulate dwm's statusbar, dzen only. @@ -305,10 +305,10 @@ byorgeyPP = defaultPP { ppHiddenNoWindows = showNamedWorkspaces , ppUrgent = dzenColor "red" "yellow" , ppSep = " | " , ppWsSep = "" - , ppTitle = shorten 65 + , ppTitle = shorten 70 , ppOrder = reverse } - where showNamedWorkspaces wsId = if (':' `elem` wsId) + where showNamedWorkspaces wsId = if any (`elem` wsId) ['a'..'z'] then pad wsId else "" |