From 3f57f3a510fa4850c05fed04bcdf841dd9f3092c Mon Sep 17 00:00:00 2001 From: Dmitri Iouchtchenko Date: Thu, 27 Dec 2012 07:35:31 +0100 Subject: Add X.A.DynamicWorkspaces.renameWorkspaceByName. Ignore-this: 4b8aa0405de3969000b1a78eb12992 darcs-hash:20121227063531-7d114-cf51e681da21447cc691be41d313e22fb6337f38.gz --- XMonad/Actions/DynamicWorkspaces.hs | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'XMonad/Actions/DynamicWorkspaces.hs') diff --git a/XMonad/Actions/DynamicWorkspaces.hs b/XMonad/Actions/DynamicWorkspaces.hs index 893dbf7..4451591 100644 --- a/XMonad/Actions/DynamicWorkspaces.hs +++ b/XMonad/Actions/DynamicWorkspaces.hs @@ -23,6 +23,7 @@ module XMonad.Actions.DynamicWorkspaces ( addHiddenWorkspace, withWorkspace, selectWorkspace, renameWorkspace, + renameWorkspaceByName, toNthWorkspace, withNthWorkspace ) where @@ -73,11 +74,13 @@ withWorkspace c job = do ws <- gets (workspaces . windowset) mkXPrompt (Wor "") c (mkCompl ts) job' renameWorkspace :: XPConfig -> X () -renameWorkspace conf = workspacePrompt conf $ \w -> - windows $ \s -> let sett wk = wk { tag = w } - setscr scr = scr { workspace = sett $ workspace scr } - sets q = q { current = setscr $ current q } - in sets $ removeWorkspace' w s +renameWorkspace conf = workspacePrompt conf renameWorkspaceByName + +renameWorkspaceByName :: String -> X () +renameWorkspaceByName w = windows $ \s -> let sett wk = wk { tag = w } + setscr scr = scr { workspace = sett $ workspace scr } + sets q = q { current = setscr $ current q } + in sets $ removeWorkspace' w s toNthWorkspace :: (String -> X ()) -> Int -> X () toNthWorkspace job wnum = do sort <- getSortByIndex -- cgit v1.2.3