diff options
| author | Braden Shepherdson <Braden.Shepherdson@gmail.com> | 2008-06-08 06:53:18 +0200 |
|---|---|---|
| committer | Braden Shepherdson <Braden.Shepherdson@gmail.com> | 2008-06-08 06:53:18 +0200 |
| commit | 0c0394959ef697cb56b335621242f7981dcc0c07 (patch) | |
| tree | 72b782edfd2438c55dc39d49001ebfa0242a82a1 /XMonad/Actions/DynamicWorkspaces.hs | |
| parent | 6f39efdbdfa41841c6770c3d34569b077a5c64e4 (diff) | |
| download | XMonadContrib-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 '')
| -rw-r--r-- | XMonad/Actions/DynamicWorkspaces.hs | 3 |
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) |