twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Exporting addHiddenWorkspace, it's needed by the new Scratchpad

Browse Source
This commit is contained in:
Braden Shepherdson
2008-06-08 04:53:18 +00:00
parent aa9e7ca663
commit 303107fbae
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Actions/DynamicWorkspaces.hs
View File

@@ -17,6 +17,7 @@ module XMonad.Actions.DynamicWorkspaces (
-- * Usage -- * Usage
-- $usage -- $usage
addWorkspace, removeWorkspace, addWorkspace, removeWorkspace,
addHiddenWorkspace,
withWorkspace, withWorkspace,
selectWorkspace, renameWorkspace, selectWorkspace, renameWorkspace,
toNthWorkspace, withNthWorkspace toNthWorkspace, withNthWorkspace
@@ -100,6 +101,8 @@ selectWorkspace conf = workspacePrompt conf $ \w ->
addWorkspace :: String -> X () addWorkspace :: String -> X ()
addWorkspace newtag = addHiddenWorkspace newtag >> windows (greedyView newtag) addWorkspace newtag = addHiddenWorkspace newtag >> windows (greedyView newtag)
-- | Add a new hidden workspace with the given name.
addHiddenWorkspace :: String -> X () addHiddenWorkspace :: String -> X ()
addHiddenWorkspace newtag = do l <- asks (layoutHook . config) addHiddenWorkspace newtag = do l <- asks (layoutHook . config)
windows (addHiddenWorkspace' newtag l) windows (addHiddenWorkspace' newtag l)