twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-27 18:21:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Add X.A.DynamicWorkspaces.renameWorkspaceByName.

Browse Source
This commit is contained in:
Dmitri Iouchtchenko
2012-12-27 06:35:31 +00:00
parent b8a22c4dee
commit 2c6f1c22b2
1 changed files with 8 additions and 5 deletions

7
XMonad/Actions/DynamicWorkspaces.hs

@@ -23,6 +23,7 @@ module XMonad.Actions.DynamicWorkspaces (
addHiddenWorkspace, addHiddenWorkspace,
withWorkspace, withWorkspace,
selectWorkspace, renameWorkspace, selectWorkspace, renameWorkspace,
renameWorkspaceByName,
toNthWorkspace, withNthWorkspace toNthWorkspace, withNthWorkspace
) where ) where
@@ -73,8 +74,10 @@ withWorkspace c job = do ws <- gets (workspaces . windowset)
mkXPrompt (Wor "") c (mkCompl ts) job' mkXPrompt (Wor "") c (mkCompl ts) job'
renameWorkspace :: XPConfig -> X () renameWorkspace :: XPConfig -> X ()
renameWorkspace conf = workspacePrompt conf $ \w -> renameWorkspace conf = workspacePrompt conf renameWorkspaceByName
windows $ \s -> let sett wk = wk { tag = w }
renameWorkspaceByName :: String -> X ()
renameWorkspaceByName w = windows $ \s -> let sett wk = wk { tag = w }
setscr scr = scr { workspace = sett $ workspace scr } setscr scr = scr { workspace = sett $ workspace scr }
sets q = q { current = setscr $ current q } sets q = q { current = setscr $ current q }
in sets $ removeWorkspace' w s in sets $ removeWorkspace' w s