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

fix bug where ReleaseResources wasn't getting sent to all layouts.

Browse Source
This commit is contained in:
David Roundy
2007-09-25 21:58:16 +00:00
parent 9c78ba538b
commit 71bce5e525
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Operations.hs
View File

@@ -357,6 +357,10 @@ instance ReadableSomeLayout a => Layout LayoutSelection a where
| Just NextLayout <- fromMessage m = switchl rls | Just NextLayout <- fromMessage m = switchl rls
| Just PrevLayout <- fromMessage m = switchl rls' | Just PrevLayout <- fromMessage m = switchl rls'
| Just (JumpToLayout x) <- fromMessage m = switchl (j x) | Just (JumpToLayout x) <- fromMessage m = switchl (j x)
| Just ReleaseResources <- fromMessage m =
do mlls' <- mapM (\ll -> handleMessage ll m) (l:ls)
let lls' = zipWith (\x mx -> maybe x id mx) (l:ls) mlls'
return $ Just $ LayoutSelection lls'
where rls (x:xs) = xs ++ [x] where rls (x:xs) = xs ++ [x]
rls [] = [] rls [] = []
rls' = reverse . rls . reverse rls' = reverse . rls . reverse