From d3775426358270b089138cca15b63d215850b130 Mon Sep 17 00:00:00 2001
From: Lukas Mai <l.mai@web.de>
Date: Mon, 17 Mar 2008 19:30:43 +0100
Subject: XMonad.Layout.NoBorders: always unborder fullscreen floating windows,
 even when there are multiple screens

darcs-hash:20080317183043-462cf-f76ad58ff9d4ded34d0ee5333d2dd772916d4683.gz
---
 XMonad/Layout/NoBorders.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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

diff --git a/XMonad/Layout/NoBorders.hs b/XMonad/Layout/NoBorders.hs
index a481536..783d814 100644
--- a/XMonad/Layout/NoBorders.hs
+++ b/XMonad/Layout/NoBorders.hs
@@ -76,11 +76,9 @@ instance LayoutModifier SmartBorder Window where
         wset <- gets windowset
         let
             screens = filter (nonzerorect . screenRect . W.screenDetail) . W.screens $ wset
-            ws
-                | singleton screens = tiled ++ floating
-                | otherwise = []
+            ws = tiled ++ floating
             tiled = case wrs of
-                [(w, _)] -> [w]
+                [(w, _)] | singleton screens -> [w]
                 _ -> []
             floating =
                 [ w |
-- 
cgit v1.2.3