aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout
diff options
context:
space:
mode:
authorLukas Mai <l.mai@web.de>2008-03-17 19:30:43 +0100
committerLukas Mai <l.mai@web.de>2008-03-17 19:30:43 +0100
commitd3775426358270b089138cca15b63d215850b130 (patch)
tree3491940da5c263904688c03cd97ffa014de973d5 /XMonad/Layout
parent48756f5118e9564c8f915dd61136526660cebed8 (diff)
downloadXMonadContrib-d3775426358270b089138cca15b63d215850b130.tar.gz
XMonadContrib-d3775426358270b089138cca15b63d215850b130.tar.xz
XMonadContrib-d3775426358270b089138cca15b63d215850b130.zip
XMonad.Layout.NoBorders: always unborder fullscreen floating windows, even when there are multiple screens
darcs-hash:20080317183043-462cf-f76ad58ff9d4ded34d0ee5333d2dd772916d4683.gz
Diffstat (limited to 'XMonad/Layout')
-rw-r--r--XMonad/Layout/NoBorders.hs6
1 files changed, 2 insertions, 4 deletions
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 |