twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-15 20:23:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

use Util.WorkspaceCompare in Prompt.Workspace.

Browse Source
This commit is contained in:
David Roundy
2008-02-06 00:40:57 +00:00
parent ed6b36b289
commit 7b022b9981
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Prompt/Workspace.hs
View File

@@ -18,10 +18,10 @@ module XMonad.Prompt.Workspace (
workspacePrompt workspacePrompt
) where ) where
import Data.List ( sort )
import XMonad hiding ( workspaces ) import XMonad hiding ( workspaces )
import XMonad.Prompt import XMonad.Prompt
import XMonad.StackSet ( workspaces, tag ) import XMonad.StackSet ( workspaces, tag )
import XMonad.Util.WorkspaceCompare ( getSortByIndex )
-- $usage -- $usage
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: -- 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 :: XPConfig -> (String -> X ()) -> X ()
workspacePrompt c job = do ws <- gets (workspaces . windowset) 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 mkXPrompt (Wor "") c (mkCompl ts) job
mkCompl :: [String] -> String -> IO [String] mkCompl :: [String] -> String -> IO [String]