XMonad.Layout.NoBorders: fix floating fullscreen logic

This commit is contained in:
Lukas Mai
2008-03-26 17:28:44 +00:00
parent 1c6798a639
commit 6761a61cad

View File

@@ -87,7 +87,7 @@ instance LayoutModifier SmartBorder Window where
[ w | [ w |
(w, W.RationalRect px py wx wy) <- M.toList . W.floating $ wset, (w, W.RationalRect px py wx wy) <- M.toList . W.floating $ wset,
px <= 0, py <= 0, px <= 0, py <= 0,
wx >= 1, wy >= 1 wx + px >= 1, wy + py >= 1
] ]
asks (borderWidth . config) >>= setBorders (s \\ ws) asks (borderWidth . config) >>= setBorders (s \\ ws)
setBorders ws 0 setBorders ws 0