diff options
| author | Lukas Mai <l.mai@web.de> | 2008-03-17 19:30:43 +0100 |
|---|---|---|
| committer | Lukas Mai <l.mai@web.de> | 2008-03-17 19:30:43 +0100 |
| commit | d3775426358270b089138cca15b63d215850b130 (patch) | |
| tree | 3491940da5c263904688c03cd97ffa014de973d5 /XMonad | |
| parent | 48756f5118e9564c8f915dd61136526660cebed8 (diff) | |
| download | XMonadContrib-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')
| -rw-r--r-- | XMonad/Layout/NoBorders.hs | 6 |
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 | |