twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-11 02:02:11 -07:00
Code Issues Packages Projects Releases Wiki Activity

add function to rename workspaces.

Browse Source
This commit is contained in:
David Roundy
2007-10-18 14:56:04 +00:00
parent 27b9582201
commit c80bf1e5eb
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
DynamicWorkspaces.hs
View File

@@ -17,7 +17,7 @@ module XMonadContrib.DynamicWorkspaces (
-- * Usage -- * Usage
-- $usage -- $usage
addWorkspace, removeWorkspace, addWorkspace, removeWorkspace,
selectWorkspace, selectWorkspace, renameWorkspace,
toNthWorkspace, withNthWorkspace toNthWorkspace, withNthWorkspace
) where ) where
@@ -38,6 +38,7 @@ import XMonadContrib.XPrompt ( XPConfig )
-- --
-- > , ((modMask .|. shiftMask, xK_n), selectWorkspace defaultXPConfig layoutHook) -- > , ((modMask .|. shiftMask, xK_n), selectWorkspace defaultXPConfig layoutHook)
-- > , ((modMask .|. shiftMask, xK_BackSpace), removeWorkspace) -- > , ((modMask .|. shiftMask, xK_BackSpace), removeWorkspace)
-- > , ((modMask .|. shiftMask .|. controlMask, xK_r), renameWorkspace defaultXPConfig)
-- --
-- > -- mod-[1..9] %! Switch to workspace N -- > -- mod-[1..9] %! Switch to workspace N
-- > -- mod-shift-[1..9] %! Move client to workspace N -- > -- mod-shift-[1..9] %! Move client to workspace N
@@ -49,6 +50,13 @@ import XMonadContrib.XPrompt ( XPConfig )
allPossibleTags :: [WorkspaceId] allPossibleTags :: [WorkspaceId]
allPossibleTags = map (:"") ['0'..] allPossibleTags = map (:"") ['0'..]
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
toNthWorkspace :: (String -> X ()) -> Int -> X () toNthWorkspace :: (String -> X ()) -> Int -> X ()
toNthWorkspace job wnum = do ws <- gets (sort . map tag . workspaces . windowset) toNthWorkspace job wnum = do ws <- gets (sort . map tag . workspaces . windowset)
case drop wnum ws of case drop wnum ws of