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

prettier haddock markup for L.NoBorders

Browse Source
This commit is contained in:
Adam Vogt
2010-04-05 18:40:20 +00:00
parent c37cbbadf5
commit 2477f81f73
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
XMonad/Layout/NoBorders.hs
View File

@@ -128,11 +128,11 @@ instance (Read p, Show p, SetsAmbiguous p) => LayoutModifier (ConfigurableBorder
-- --
-- > layoutHook = lessBorders (Combine Difference Screen OnlyFloat) (Tall 1 0.5 0.03 ||| ... ) -- > layoutHook = lessBorders (Combine Difference Screen OnlyFloat) (Tall 1 0.5 0.03 ||| ... )
-- --
-- To get the same result as smartBorders: -- To get the same result as 'smartBorders':
-- --
-- > layoutHook = lessBorders (Combine Never) (Tall 1 0.5 0.03 ||| ...) -- > layoutHook = lessBorders (Combine Never) (Tall 1 0.5 0.03 ||| ...)
-- --
-- This indirect method is required to keep the Read and Show for -- This indirect method is required to keep the 'Read' and 'Show' for
-- ConfigurableBorder so that xmonad can serialize state. -- ConfigurableBorder so that xmonad can serialize state.
class SetsAmbiguous p where class SetsAmbiguous p where
hiddens :: p -> WindowSet -> Maybe (W.Stack Window) -> [(Window, Rectangle)] -> [Window] hiddens :: p -> WindowSet -> Maybe (W.Stack Window) -> [(Window, Rectangle)] -> [Window]
@@ -172,7 +172,7 @@ instance SetsAmbiguous Ambiguity where
-- | In order of increasing ambiguity (less borders more frequently), where -- | In order of increasing ambiguity (less borders more frequently), where
-- subsequent constructors add additional cases where borders are not drawn -- subsequent constructors add additional cases where borders are not drawn
-- than their predecessors. These behaviors make most sense with with multiple -- than their predecessors. These behaviors make most sense with with multiple
-- screens: for single screens, Never or 'smartBorders' makes more sense. -- screens: for single screens, 'Never' or 'smartBorders' makes more sense.
data Ambiguity = Combine With Ambiguity Ambiguity data Ambiguity = Combine With Ambiguity Ambiguity
-- ^ This constructor is used to combine the -- ^ This constructor is used to combine the
-- borderless windows provided by the -- borderless windows provided by the
@@ -194,7 +194,7 @@ data Ambiguity = Combine With Ambiguity Ambiguity
-- | Used to indicate to the 'SetsAmbiguous' instance for 'Ambiguity' how two -- | Used to indicate to the 'SetsAmbiguous' instance for 'Ambiguity' how two
-- lists should be combined. -- lists should be combined.
data With = Union -- ^ Combine with Data.List.union data With = Union -- ^ uses 'Data.List.union'
| Difference -- ^ Combine with Data.List.\\ | Difference -- ^ uses 'Data.List.\\'
| Intersection -- ^ Combine with Data.List.intersect | Intersection -- ^ uses 'Data.List.intersect'
deriving (Read, Show) deriving (Read, Show)