diff options
| -rw-r--r-- | XMonad/Actions/DynamicWorkspaces.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/XMonad/Actions/DynamicWorkspaces.hs b/XMonad/Actions/DynamicWorkspaces.hs index 66d4767..839d8d2 100644 --- a/XMonad/Actions/DynamicWorkspaces.hs +++ b/XMonad/Actions/DynamicWorkspaces.hs @@ -16,7 +16,8 @@ module XMonad.Actions.DynamicWorkspaces ( -- * Usage -- $usage - addWorkspace, removeWorkspace, + addWorkspace, addWorkspacePrompt, + removeWorkspace, addHiddenWorkspace, withWorkspace, selectWorkspace, renameWorkspace, @@ -101,6 +102,9 @@ selectWorkspace conf = workspacePrompt conf $ \w -> addWorkspace :: String -> X () 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. addHiddenWorkspace :: String -> X () |