From 89be6d47df80d576fc63c015337169c4e680a569 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Fri, 16 May 2008 20:48:55 +0200
Subject: fix bug in smartBorders when combined with decorated windows.

darcs-hash:20080516184855-72aca-4766ef523005dde370e5ee0e4fcae456c89db948.gz
---
 XMonad/Layout/NoBorders.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'XMonad/Layout/NoBorders.hs')

diff --git a/XMonad/Layout/NoBorders.hs b/XMonad/Layout/NoBorders.hs
index ad55ea8..389cccd 100644
--- a/XMonad/Layout/NoBorders.hs
+++ b/XMonad/Layout/NoBorders.hs
@@ -75,13 +75,13 @@ data SmartBorder a = SmartBorder [a] deriving (Read, Show)
 instance LayoutModifier SmartBorder Window where
     unhook (SmartBorder s) = asks (borderWidth . config) >>= setBorders s
 
-    redoLayout (SmartBorder s) _ _ wrs = do
+    redoLayout (SmartBorder s) _ st wrs = do
         wset <- gets windowset
-        let
+        let managedwindows = W.integrate st
             screens = filter (nonzerorect . screenRect . W.screenDetail) . W.screens $ wset
             ws = tiled ++ floating
-            tiled = case wrs of
-                [(w, _)] | singleton screens -> [w]
+            tiled = case filter (`elem` managedwindows) $ map fst wrs of
+                [w] | singleton screens -> [w]
                 _ -> []
             floating =
                 [ w |
-- 
cgit v1.2.3