From 9a26658d445e98d4c9ecef000b62c37da9835fe5 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Sat, 27 Oct 2007 00:45:10 +0200 Subject: add more details on using smartBorders darcs-hash:20071026224510-cba2c-a3b79ebb8558a577e9bf59f1a5c77a6a8006c6bd.gz --- NoBorders.hs | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/NoBorders.hs b/NoBorders.hs index f9395f6..f9a9751 100644 --- a/NoBorders.hs +++ b/NoBorders.hs @@ -43,6 +43,7 @@ import Data.List ((\\)) -- borders -- -- > layouts = [ Layout (noBorders Full), ... ] +-- -- %import XMonadContrib.NoBorders -- %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 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 = ModifiedLayout (SmartBorder []) -- cgit v1.2.3