diff options
| author | joachim.fasting <joachim.fasting@gmail.com> | 2007-06-18 23:22:15 +0200 |
|---|---|---|
| committer | joachim.fasting <joachim.fasting@gmail.com> | 2007-06-18 23:22:15 +0200 |
| commit | 1814ad0224ac36c8b3d3f335b7845f3d0b6ef572 (patch) | |
| tree | 41c01beb191086f2b453e4ce14dad547b34dd61d /Magnifier.hs | |
| parent | 991448164b177dbf468f4c1a608262f961bb47a6 (diff) | |
| download | XMonadContrib-1814ad0224ac36c8b3d3f335b7845f3d0b6ef572.tar.gz XMonadContrib-1814ad0224ac36c8b3d3f335b7845f3d0b6ef572.tar.xz XMonadContrib-1814ad0224ac36c8b3d3f335b7845f3d0b6ef572.zip | |
Magnifier.hs: add usage instructions.
darcs-hash:20070618212215-ea16c-1339b2797edeb6141f91bb0b2d4f84cc0e95c600.gz
Diffstat (limited to 'Magnifier.hs')
| -rw-r--r-- | Magnifier.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Magnifier.hs b/Magnifier.hs index 3f378ff..8334844 100644 --- a/Magnifier.hs +++ b/Magnifier.hs @@ -17,12 +17,19 @@ ----------------------------------------------------------------------------- -module XMonadContrib.Magnifier (magnifier) where +module XMonadContrib.Magnifier ( + -- * Usage + -- $usage + magnifier) where import Graphics.X11.Xlib import XMonad import StackSet +-- $usage +-- > import XMonadContrib.Magnifier +-- > defaultLayouts = [ magnifier tiled , magnifier $ mirror tiled ] + magnifier :: Layout -> Layout magnifier l = l { doLayout = \r s -> applyMagnifier r s `fmap` doLayout l r s , modifyLayout = \x -> fmap magnifier `fmap` modifyLayout l x } |