diff options
| author | daniel <daniel@wagner-home.com> | 2008-03-21 11:44:41 +0100 |
|---|---|---|
| committer | daniel <daniel@wagner-home.com> | 2008-03-21 11:44:41 +0100 |
| commit | efefb727b8c35bcf2bb98cb136a7e992d9b00c5f (patch) | |
| tree | 4c9d005bca3fec40ad633b0a3e7014aec8a258d0 /XMonad/Layout/Magnifier.hs | |
| parent | e0d6d130d309302f13ec7482bad6a60f766d1342 (diff) | |
| download | XMonadContrib-efefb727b8c35bcf2bb98cb136a7e992d9b00c5f.tar.gz XMonadContrib-efefb727b8c35bcf2bb98cb136a7e992d9b00c5f.tar.xz XMonadContrib-efefb727b8c35bcf2bb98cb136a7e992d9b00c5f.zip | |
a magnifier that defaults to not magnifying any windows
darcs-hash:20080321104441-c98ca-e467670cf8efbd3ad8f5d0e41ec09c9e0ceedcd4.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Layout/Magnifier.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/XMonad/Layout/Magnifier.hs b/XMonad/Layout/Magnifier.hs index a153909..d7e73aa 100644 --- a/XMonad/Layout/Magnifier.hs +++ b/XMonad/Layout/Magnifier.hs @@ -22,6 +22,7 @@ module XMonad.Layout.Magnifier -- $usage magnifier, magnifier', + magnifierOff, magnifiercz, magnifiercz', MagnifyMsg (..) @@ -78,6 +79,10 @@ magnifiercz cz = ModifiedLayout (Mag ((fromRational cz)*1.0::Double) On All) magnifier' :: l a -> ModifiedLayout Magnifier l a magnifier' = ModifiedLayout (Mag 1.5 On NoMaster) +-- | Magnifier that defaults to Off +magnifierOff :: l a -> ModifiedLayout Magnifier l a +magnifierOff = ModifiedLayout (Mag 1.5 Off All) + -- | Increase the size of the window that has focus by a custom zoom, -- unless if it is the master window. magnifiercz' :: Rational -> l a -> ModifiedLayout Magnifier l a |