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

add more details on using smartBorders

Browse Source
This commit is contained in:
Don Stewart
2007-10-26 22:45:10 +00:00
parent 9ef767dc77
commit 1ec36de78f
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
NoBorders.hs
View File

@@ -43,6 +43,7 @@ import Data.List ((\\))
-- borders -- borders
-- --
-- > layouts = [ Layout (noBorders Full), ... ] -- > layouts = [ Layout (noBorders Full), ... ]
--
-- %import XMonadContrib.NoBorders -- %import XMonadContrib.NoBorders
-- %layout -- prepend noBorders to default layouts above to remove their borders, like so: -- %layout -- prepend noBorders to default layouts above to remove their borders, like so:
@@ -95,5 +96,11 @@ instance LayoutModifier SmartBorder Window where
ws = map fst wrs ws = map fst wrs
singleton = null . drop 1 singleton = null . drop 1
--
-- | You can cleverly set no borders on a range of layouts, using a
-- layoutHook like so:
--
-- > layoutHook = Layout $ smartBorders $ Select layouts
--
smartBorders :: LayoutClass l a => l a -> ModifiedLayout SmartBorder l a smartBorders :: LayoutClass l a => l a -> ModifiedLayout SmartBorder l a
smartBorders = ModifiedLayout (SmartBorder []) smartBorders = ModifiedLayout (SmartBorder [])