twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 20:21:51 -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 conf l = workspacePrompt conf $ \w ->
do s <- gets windowset
if tagMember w s
then windows $ greedyView w
else windows $ addWorkspace' w l
windows $ \s -> if tagMember w s
then greedyView w s
else addWorkspace' w l s
addWorkspace :: Layout Window -> X ()
addWorkspace l = do s <- gets windowset