diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2015-06-03 16:20:27 +0200 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2015-06-03 16:20:27 +0200 |
| commit | 284014801add553b29065ec7f9592b7fe1d02670 (patch) | |
| tree | acf5ec01573a26b35c9f0bde0c3eb28471929704 /XMonad/Actions | |
| parent | 6892ab9fecbe6c85b3c8e2c2c807cebbfca42c4e (diff) | |
| download | XMonadContrib-284014801add553b29065ec7f9592b7fe1d02670.tar.gz XMonadContrib-284014801add553b29065ec7f9592b7fe1d02670.tar.xz XMonadContrib-284014801add553b29065ec7f9592b7fe1d02670.zip | |
X.A.WorkspaceNames: convert tabs to spaces, cleanup
Ignore-this: 25bf16b21dcfcd1b6e848241217656a4
darcs-hash:20150603142027-bd4d7-9b7cbfa99a5ed6b4121de959e420ef4996b4f52b.gz
Diffstat (limited to 'XMonad/Actions')
| -rw-r--r-- | XMonad/Actions/WorkspaceNames.hs | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/XMonad/Actions/WorkspaceNames.hs b/XMonad/Actions/WorkspaceNames.hs index 16661c0..fbea92e 100644 --- a/XMonad/Actions/WorkspaceNames.hs +++ b/XMonad/Actions/WorkspaceNames.hs @@ -158,14 +158,14 @@ swapNames w1 w2 = do -- | Same behavior than 'XMonad.Prompt.Workspace.workspacePrompt' excepted it acts on the workspace name provided by this module. workspaceNamePrompt :: XPConfig -> (String -> X ()) -> X () workspaceNamePrompt conf job = do - myWorkspaces <- gets $ map W.tag . W.workspaces . windowset - myWorkspacesName <- getWorkspaceNames >>= \f -> return $ map f myWorkspaces - let pairs = zip myWorkspacesName myWorkspaces - mkXPrompt (Wor "Select workspace: ") conf - (contains myWorkspacesName) - (job . toWsId pairs) - where toWsId pairs name = case lookup name pairs of + myWorkspaces <- gets $ map W.tag . W.workspaces . windowset + myWorkspacesName <- getWorkspaceNames >>= \f -> return $ map f myWorkspaces + let pairs = zip myWorkspacesName myWorkspaces + mkXPrompt (Wor "Select workspace: ") conf + (contains myWorkspacesName) + (job . toWsId pairs) + where toWsId pairs name = case lookup name pairs of Nothing -> "" - Just i -> i - contains completions input = - return $ filter (Data.List.isInfixOf input) completions + Just i -> i + contains completions input = + return $ filter (Data.List.isInfixOf input) completions |