aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Layout')
-rw-r--r--XMonad/Layout/NoBorders.hs5
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]