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

DynamicWorkspaces.hs: rm whitespace

Browse Source
This commit is contained in:
gwern0 2010-03-14 20:59:51 +00:00
parent ee38a0328b
commit c3796a9cb1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Actions/DynamicWorkspaces.hs
View File

@ -153,7 +153,7 @@ removeEmptyWorkspaceAfter :: X () -> X ()
removeEmptyWorkspaceAfter = removeEmptyWorkspaceAfterExcept [] removeEmptyWorkspaceAfter = removeEmptyWorkspaceAfterExcept []
-- | Like 'removeEmptyWorkspaceAfter' but use a list of sticky workspaces, -- | Like 'removeEmptyWorkspaceAfter' but use a list of sticky workspaces,
-- whose entries will never be removed. -- whose entries will never be removed.
removeEmptyWorkspaceAfterExcept :: [String] -> X () -> X () removeEmptyWorkspaceAfterExcept :: [String] -> X () -> X ()
removeEmptyWorkspaceAfterExcept sticky f = do removeEmptyWorkspaceAfterExcept sticky f = do
before <- gets (currentTag . windowset) before <- gets (currentTag . windowset)