diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 05:40:08 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 05:40:08 +0200 |
| commit | a8b9cc434474fa8e49b8dc626714864dd13c968c (patch) | |
| tree | 6f853e91c9238ba4a9b77af78fc0e5fb290abce0 /LayoutHints.hs | |
| parent | a66077bede3c950f48bccce8f2176238d80b85c7 (diff) | |
| download | XMonadContrib-a8b9cc434474fa8e49b8dc626714864dd13c968c.tar.gz XMonadContrib-a8b9cc434474fa8e49b8dc626714864dd13c968c.tar.xz XMonadContrib-a8b9cc434474fa8e49b8dc626714864dd13c968c.zip | |
Add simpler layoutHints
darcs-hash:20070928034008-a5988-6867a64ced80db435e38a15c41e1c92373c7e04e.gz
Diffstat (limited to 'LayoutHints.hs')
| -rw-r--r-- | LayoutHints.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/LayoutHints.hs b/LayoutHints.hs index 2e8d87e..9b3684f 100644 --- a/LayoutHints.hs +++ b/LayoutHints.hs @@ -14,6 +14,7 @@ module XMonadContrib.LayoutHints ( -- * usage -- $usage + layoutHints, LayoutHints) where import Operations ( applySizeHints, D ) @@ -31,6 +32,9 @@ import XMonadContrib.LayoutModifier -- %layout , ModifiedLayout LayoutHints $ layoutHints tiled -- %layout , ModifiedLayout LayoutHints $ mirror tiled +layoutHints :: (Layout l a) => l a -> ModifiedLayout LayoutHints l a +layoutHints = ModifiedLayout LayoutHints + -- | Expand a size by the given multiple of the border width. The -- multiple is most commonly 1 or -1. adjBorders :: Dimension -> D -> D |