aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorBraden Shepherdson <Braden.Shepherdson@gmail.com>2008-06-08 06:53:18 +0200
committerBraden Shepherdson <Braden.Shepherdson@gmail.com>2008-06-08 06:53:18 +0200
commit0c0394959ef697cb56b335621242f7981dcc0c07 (patch)
tree72b782edfd2438c55dc39d49001ebfa0242a82a1 /XMonad
parent6f39efdbdfa41841c6770c3d34569b077a5c64e4 (diff)
downloadXMonadContrib-0c0394959ef697cb56b335621242f7981dcc0c07.tar.gz
XMonadContrib-0c0394959ef697cb56b335621242f7981dcc0c07.tar.xz
XMonadContrib-0c0394959ef697cb56b335621242f7981dcc0c07.zip
Exporting addHiddenWorkspace, it's needed by the new Scratchpad
darcs-hash:20080608045318-d53a8-b3ad374673c9428d89b0f9b5c8fb2e69c20e5865.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Actions/DynamicWorkspaces.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/XMonad/Actions/DynamicWorkspaces.hs b/XMonad/Actions/DynamicWorkspaces.hs
index bf28091..371e406 100644
--- a/XMonad/Actions/DynamicWorkspaces.hs
+++ b/XMonad/Actions/DynamicWorkspaces.hs
@@ -17,6 +17,7 @@ module XMonad.Actions.DynamicWorkspaces (
-- * Usage
-- $usage
addWorkspace, removeWorkspace,
+ addHiddenWorkspace,
withWorkspace,
selectWorkspace, renameWorkspace,
toNthWorkspace, withNthWorkspace
@@ -100,6 +101,8 @@ selectWorkspace conf = workspacePrompt conf $ \w ->
addWorkspace :: String -> X ()
addWorkspace newtag = addHiddenWorkspace newtag >> windows (greedyView newtag)
+
+-- | Add a new hidden workspace with the given name.
addHiddenWorkspace :: String -> X ()
addHiddenWorkspace newtag = do l <- asks (layoutHook . config)
windows (addHiddenWorkspace' newtag l)