diff options
| author | David Roundy <droundy@darcs.net> | 2008-02-06 01:40:57 +0100 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2008-02-06 01:40:57 +0100 |
| commit | 5009f058cc0cc6ae9ea6728e14fec66646d3e412 (patch) | |
| tree | 10156cc8a25f68a0fac64dd56eaa5e00981d8bd2 /XMonad/Prompt | |
| parent | a65fa745da0237f94af01193dae320be66e74768 (diff) | |
| download | XMonadContrib-5009f058cc0cc6ae9ea6728e14fec66646d3e412.tar.gz XMonadContrib-5009f058cc0cc6ae9ea6728e14fec66646d3e412.tar.xz XMonadContrib-5009f058cc0cc6ae9ea6728e14fec66646d3e412.zip | |
use Util.WorkspaceCompare in Prompt.Workspace.
darcs-hash:20080206004057-72aca-6fbc6e0d97ff9a251ddc8b564621800fab52d0b7.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Prompt/Workspace.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Prompt/Workspace.hs b/XMonad/Prompt/Workspace.hs index 12ece91..165eba9 100644 --- a/XMonad/Prompt/Workspace.hs +++ b/XMonad/Prompt/Workspace.hs @@ -18,10 +18,10 @@ module XMonad.Prompt.Workspace ( workspacePrompt ) where -import Data.List ( sort ) import XMonad hiding ( workspaces ) import XMonad.Prompt import XMonad.StackSet ( workspaces, tag ) +import XMonad.Util.WorkspaceCompare ( getSortByIndex ) -- $usage -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: @@ -41,7 +41,8 @@ instance XPrompt Wor where workspacePrompt :: XPConfig -> (String -> X ()) -> X () workspacePrompt c job = do ws <- gets (workspaces . windowset) - let ts = sort $ map tag ws + sort <- getSortByIndex + let ts = map tag $ sort ws mkXPrompt (Wor "") c (mkCompl ts) job mkCompl :: [String] -> String -> IO [String] |