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

X.A.DynamicWorkspaces: new 'addWorkspacePrompt' method

Browse Source
This commit is contained in:
Brent Yorgey
2009-11-08 17:05:03 +00:00
parent 71abbe457a
commit 0efee8b0cb
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Actions/DynamicWorkspaces.hs
View File

@@ -16,7 +16,8 @@
module XMonad.Actions.DynamicWorkspaces ( module XMonad.Actions.DynamicWorkspaces (
-- * Usage -- * Usage
-- $usage -- $usage
addWorkspace, removeWorkspace, addWorkspace, addWorkspacePrompt,
removeWorkspace,
addHiddenWorkspace, addHiddenWorkspace,
withWorkspace, withWorkspace,
selectWorkspace, renameWorkspace, selectWorkspace, renameWorkspace,
@@ -101,6 +102,9 @@ selectWorkspace conf = workspacePrompt conf $ \w ->
addWorkspace :: String -> X () addWorkspace :: String -> X ()
addWorkspace newtag = addHiddenWorkspace newtag >> windows (greedyView newtag) addWorkspace newtag = addHiddenWorkspace newtag >> windows (greedyView newtag)
-- | Prompt for the name of a new workspace, and add it.
addWorkspacePrompt :: XPConfig -> X ()
addWorkspacePrompt conf = mkXPrompt (Wor "New workspace name: ") conf (const (return [])) addWorkspace
-- | Add a new hidden workspace with the given name. -- | Add a new hidden workspace with the given name.
addHiddenWorkspace :: String -> X () addHiddenWorkspace :: String -> X ()