diff options
| author | Brent Yorgey <byorgey@cis.upenn.edu> | 2009-11-08 18:05:03 +0100 |
|---|---|---|
| committer | Brent Yorgey <byorgey@cis.upenn.edu> | 2009-11-08 18:05:03 +0100 |
| commit | 3db6df450cb441b16bfb50959d42dfcd2a859999 (patch) | |
| tree | 4ba0ea60024f53bd3266c0ee327359835d163fc3 /XMonad | |
| parent | b88c8adf219b8e04bfe35a647537c53d3d371e30 (diff) | |
| download | XMonadContrib-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.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 () |