From 02b086cf1d0c57c94fd93e4de42c6094fb484acb Mon Sep 17 00:00:00 2001
From: Peter De Wachter <pdewacht@gmail.com>
Date: Thu, 21 Jun 2007 21:25:41 +0200
Subject: Magnifier: raise the focus window

darcs-hash:20070621192541-06a25-c0b9f8626bb9c396a128cc0f2d5ed59919ca5630.gz
---
 Magnifier.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Magnifier.hs')

diff --git a/Magnifier.hs b/Magnifier.hs
index b836d5a..b2103ca 100644
--- a/Magnifier.hs
+++ b/Magnifier.hs
@@ -45,7 +45,9 @@ unlessMaster :: DoLayout -> DoLayout
 unlessMaster f r s = if null (up s) then id else f r s
 
 applyMagnifier :: DoLayout
-applyMagnifier r s = map $ \(w,wr) -> if w == focus s then (w, shrink r $ magnify wr) else (w, wr)
+applyMagnifier r s = reverse . foldr accumulate []
+    where accumulate (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'
-- 
cgit v1.2.3