From c1db249147defc9417bb8320029c4e27b6a2e7f7 Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Wed, 3 Jun 2015 14:20:27 +0000 Subject: [PATCH] X.A.WorkspaceNames: convert tabs to spaces, cleanup --- XMonad/Actions/WorkspaceNames.hs | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/XMonad/Actions/WorkspaceNames.hs b/XMonad/Actions/WorkspaceNames.hs index 16661c05..fbea92e0 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