From 47c8349cc9945be38ed29c244094c0f6e175c4fd Mon Sep 17 00:00:00 2001 From: intrigeri Date: Tue, 11 Dec 2007 02:55:54 +0100 Subject: Magnifier: custom zoom ratio for magnifier' too darcs-hash:20071211015554-35915-d5478f3afc67a632164f281566c3c561886ae819.gz --- XMonad/Layout/Magnifier.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'XMonad') 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 -- cgit v1.2.3