diff options
| -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 |