twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

Export `removeEmptyWorkspaceByTag'

Browse Source 
It looks like this function should have been exported all along but
was overlooked.
This commit is contained in:
Peter Jones 2016-11-21 17:15:53 -07:00
parent 217abc39a2
commit be036f9bb9
No known key found for this signature in database
GPG Key ID: 9DAFAA8D01941E49
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Actions/DynamicWorkspaces.hs
View File

@ -23,6 +23,7 @@ module XMonad.Actions.DynamicWorkspaces (
removeWorkspace, removeWorkspace,
removeWorkspaceByTag, removeWorkspaceByTag,
removeEmptyWorkspace, removeEmptyWorkspace,
removeEmptyWorkspaceByTag,
removeEmptyWorkspaceAfter, removeEmptyWorkspaceAfter,
removeEmptyWorkspaceAfterExcept, removeEmptyWorkspaceAfterExcept,
addHiddenWorkspace, addHiddenWorkspaceAt, addHiddenWorkspace, addHiddenWorkspaceAt,
@ -177,7 +178,7 @@ addWorkspaceAt add newtag = addHiddenWorkspaceAt add newtag >> windows (greedyVi
addWorkspacePrompt :: XPConfig -> X () addWorkspacePrompt :: XPConfig -> X ()
addWorkspacePrompt conf = mkXPrompt (Wor "New workspace name: ") conf (const (return [])) addWorkspace addWorkspacePrompt conf = mkXPrompt (Wor "New workspace name: ") conf (const (return [])) addWorkspace
-- | Prompt for the name of a new workspace, appending it to the end of the list of workspaces -- | Prompt for the name of a new workspace, appending it to the end of the list of workspaces
-- if it does not already exist, and switch to it. -- if it does not already exist, and switch to it.
appendWorkspacePrompt :: XPConfig -> X () appendWorkspacePrompt :: XPConfig -> X ()
appendWorkspacePrompt conf = mkXPrompt (Wor "New workspace name: ") conf (const (return [])) appendWorkspace appendWorkspacePrompt conf = mkXPrompt (Wor "New workspace name: ") conf (const (return [])) appendWorkspace