aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorBrent Yorgey <byorgey@cis.upenn.edu>2009-11-08 18:05:03 +0100
committerBrent Yorgey <byorgey@cis.upenn.edu>2009-11-08 18:05:03 +0100
commit3db6df450cb441b16bfb50959d42dfcd2a859999 (patch)
tree4ba0ea60024f53bd3266c0ee327359835d163fc3 /XMonad
parentb88c8adf219b8e04bfe35a647537c53d3d371e30 (diff)
downloadXMonadContrib-3db6df450cb441b16bfb50959d42dfcd2a859999.tar.gz
XMonadContrib-3db6df450cb441b16bfb50959d42dfcd2a859999.tar.xz
XMonadContrib-3db6df450cb441b16bfb50959d42dfcd2a859999.zip
X.A.DynamicWorkspaces: new 'addWorkspacePrompt' method
Ignore-this: a3992b1b7938be80d8fd2a5a503a4042 darcs-hash:20091108170503-1e371-0d0cc44d7d9bf275a4289b8161b098f65b338192.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Actions/DynamicWorkspaces.hs6
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 ()