From 8d49aea49077fd1203100d44dc6100ff4f8ce9e0 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sat, 8 Mar 2008 23:42:44 +0100 Subject: make smartBorders ignore screens with no dimensions. darcs-hash:20080308224244-72aca-a97a3505a284f30a2fa38051195397700338a205.gz --- XMonad/Layout/NoBorders.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'XMonad/Layout/NoBorders.hs') diff --git a/XMonad/Layout/NoBorders.hs b/XMonad/Layout/NoBorders.hs index 6b022ed..7bcd609 100644 --- a/XMonad/Layout/NoBorders.hs +++ b/XMonad/Layout/NoBorders.hs @@ -72,7 +72,7 @@ instance LayoutModifier SmartBorder Window where unhook (SmartBorder s) = asks (borderWidth . config) >>= setBorders s redoLayout (SmartBorder s) _ _ wrs = do - ss <- gets (W.screens . windowset) + ss <- gets (filter (nonzerorect . screenRect . W.screenDetail) . W.screens . windowset) if singleton ws && singleton ss then do @@ -85,6 +85,8 @@ instance LayoutModifier SmartBorder Window where where ws = map fst wrs singleton = null . drop 1 + nonzerorect (Rectangle _ _ 0 0) = False + nonzerorect _ = True -- -- | You can cleverly set no borders on a range of layouts, using a -- cgit v1.2.3