From 3f57f3a510fa4850c05fed04bcdf841dd9f3092c Mon Sep 17 00:00:00 2001
From: Dmitri Iouchtchenko <johnnyspoon@gmail.com>
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(-)
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