diff options
| author | Peter De Wachter <pdewacht@gmail.com> | 2007-06-30 09:22:06 +0200 |
|---|---|---|
| committer | Peter De Wachter <pdewacht@gmail.com> | 2007-06-30 09:22:06 +0200 |
| commit | 1a23ef975fac557cdacb28824a26307c389230bc (patch) | |
| tree | 9d38a9d23a3a321587b8b7d41b4b5f57d4cf650a /Magnifier.hs | |
| parent | b75c9b6aa6c48d5bf36b20b2adad44e141833f44 (diff) | |
| download | XMonadContrib-1a23ef975fac557cdacb28824a26307c389230bc.tar.gz XMonadContrib-1a23ef975fac557cdacb28824a26307c389230bc.tar.xz XMonadContrib-1a23ef975fac557cdacb28824a26307c389230bc.zip | |
Magnifier: unbreak: raise focus window
darcs-hash:20070630072206-06a25-30138cf10620a3a86b7aa712d668cae222412002.gz
Diffstat (limited to 'Magnifier.hs')
| -rw-r--r-- | Magnifier.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Magnifier.hs b/Magnifier.hs index da18c2e..584d869 100644 --- a/Magnifier.hs +++ b/Magnifier.hs @@ -43,9 +43,9 @@ unlessMaster mainmod r s wrs = if null (up s) then return (wrs, Nothing) else mainmod r s wrs applyMagnifier :: Eq a => ModDo a -applyMagnifier r s wrs = return (map mag wrs, Nothing) - where mag (w,wr) | w == focus s = (w, shrink r $ magnify wr) - | otherwise = (w,wr) +applyMagnifier r s wrs = return (reverse $ foldr mag [] wrs, Nothing) + where mag (w,wr) ws | w == focus s = ws ++ [(w, shrink r $ magnify wr)] + | otherwise = (w,wr) : ws magnify :: Rectangle -> Rectangle magnify (Rectangle x y w h) = Rectangle x' y' w' h' |