better Layout.NoBorders.smartBorders behavior on xinerama

Ignore-this: 36737ce2fa2087c4a16ddf226d3b0f0a

Now smartBorders shows borders when you have multiple screens with one window
each. In the case where only one window is visible, no borders are drawn.

darcs-hash:20090314170058-1499c-d684d8e2a27f0b4df4f7f4acb64ccbd42687ad71.gz

1 files changed, 4 insertions, 1 deletions

diff --git a/XMonad/Layout/NoBorders.hs b/XMonad/Layout/NoBorders.hs
index 99a877f..ec6d6e7 100644
--- a/XMonad/Layout/NoBorders.hs
+++ b/XMonad/Layout/NoBorders.hs
@@ -28,6 +28,7 @@ module XMonad.Layout.NoBorders (
 import XMonad
 import XMonad.Layout.LayoutModifier
 import qualified XMonad.StackSet as W
+import Data.Maybe(isJust)
 import Data.List ((\\))
 import qualified Data.Map as M
 
@@ -78,7 +79,9 @@ instance LayoutModifier SmartBorder Window where
     redoLayout (SmartBorder s) _ mst wrs = do
         wset <- gets windowset
         let managedwindows = W.integrate' mst
-            screens = filter (nonzerorect . screenRect . W.screenDetail) . W.screens $ wset
+            screens = [ scr | scr <- W.screens wset,
+                              isJust . W.stack $ W.workspace scr,
+                              nonzerorect . screenRect $ W.screenDetail scr]
             ws = tiled ++ floating
             tiled = case filter (`elem` managedwindows) $ map fst wrs of
                 [w] | singleton screens -> [w]