twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-07 23:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

XMonad.Layout.NoBorders: always unborder fullscreen floating windows, even when there are multiple screens

Browse Source
This commit is contained in:
Lukas Mai
2008-03-17 18:30:43 +00:00
parent a1fce4af5a
commit 7a341fa790
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Layout/NoBorders.hs
View File

@@ -76,11 +76,9 @@ instance LayoutModifier SmartBorder Window where
wset <- gets windowset wset <- gets windowset
let let
screens = filter (nonzerorect . screenRect . W.screenDetail) . W.screens $ wset screens = filter (nonzerorect . screenRect . W.screenDetail) . W.screens $ wset
ws ws = tiled ++ floating
| singleton screens = tiled ++ floating
| otherwise = []
tiled = case wrs of tiled = case wrs of
[(w, _)] -> [w] [(w, _)] | singleton screens -> [w]
_ -> [] _ -> []
floating = floating =
[ w | [ w |