diff options
| author | intrigeri <intrigeri@boum.org> | 2007-12-11 02:55:54 +0100 |
|---|---|---|
| committer | intrigeri <intrigeri@boum.org> | 2007-12-11 02:55:54 +0100 |
| commit | 47c8349cc9945be38ed29c244094c0f6e175c4fd (patch) | |
| tree | 2722ec55316c0b3768d12d4a0ca8d126ffcedb84 | |
| parent | 874f496009c1a6b91b2fe41fef878bc17bc654e1 (diff) | |
| download | XMonadContrib-47c8349cc9945be38ed29c244094c0f6e175c4fd.tar.gz XMonadContrib-47c8349cc9945be38ed29c244094c0f6e175c4fd.tar.xz XMonadContrib-47c8349cc9945be38ed29c244094c0f6e175c4fd.zip | |
Magnifier: custom zoom ratio for magnifier' too
darcs-hash:20071211015554-35915-d5478f3afc67a632164f281566c3c561886ae819.gz
| -rw-r--r-- | XMonad/Layout/Magnifier.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/XMonad/Layout/Magnifier.hs b/XMonad/Layout/Magnifier.hs index 36e08fd..8ab9bb3 100644 --- a/XMonad/Layout/Magnifier.hs +++ b/XMonad/Layout/Magnifier.hs @@ -23,6 +23,7 @@ module XMonad.Layout.Magnifier magnifier, magnifier', magnifiercz, + magnifiercz', MagnifyMsg (..) ) where @@ -81,6 +82,11 @@ 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) +-- | 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 +magnifiercz' cz = ModifiedLayout (Mag ((fromRational cz)*1.0::Double) On NoMaster) + data MagnifyMsg = MagnifyMore | MagnifyLess | ToggleOn | ToggleOff deriving ( Typeable ) instance Message MagnifyMsg |