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

code cleanup in selectWorkspace.

Browse Source
This commit is contained in:
David Roundy
2007-10-16 23:12:18 +00:00
parent 763a952c80
commit 551e44ce55
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
DynamicWorkspaces.hs
View File

@@ -63,10 +63,9 @@ withNthWorkspace job wnum = do ws <- gets (sort . map tag . workspaces . windows
selectWorkspace :: XPConfig -> Layout Window -> X () selectWorkspace :: XPConfig -> Layout Window -> X ()
selectWorkspace conf l = workspacePrompt conf $ \w -> selectWorkspace conf l = workspacePrompt conf $ \w ->
do s <- gets windowset windows $ \s -> if tagMember w s
if tagMember w s then greedyView w s
then windows $ greedyView w else addWorkspace' w l s
else windows $ addWorkspace' w l
addWorkspace :: Layout Window -> X () addWorkspace :: Layout Window -> X ()
addWorkspace l = do s <- gets windowset addWorkspace l = do s <- gets windowset