From af88859f7275000a3bc09f0c4b4878fe5e35e1be Mon Sep 17 00:00:00 2001 From: daniel Date: Fri, 21 Mar 2008 11:46:05 +0100 Subject: allow magnifier to toggle whether it's active darcs-hash:20080321104605-c98ca-a7a7093ed198ecd299ad132dd5f69fe60f6dcc03.gz --- XMonad/Layout/Magnifier.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/XMonad/Layout/Magnifier.hs b/XMonad/Layout/Magnifier.hs index d7e73aa..ef959ec 100644 --- a/XMonad/Layout/Magnifier.hs +++ b/XMonad/Layout/Magnifier.hs @@ -88,7 +88,7 @@ magnifierOff = ModifiedLayout (Mag 1.5 Off All) 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 ) +data MagnifyMsg = MagnifyMore | MagnifyLess | ToggleOn | ToggleOff | Toggle deriving ( Typeable ) instance Message MagnifyMsg data Magnifier a = Mag Zoom Toggle MagnifyMaster deriving (Read, Show) @@ -108,8 +108,10 @@ instance LayoutModifier Magnifier Window where | Just MagnifyMore <- fromMessage m = return . Just $ (Mag (z + 0.1) On t) | Just MagnifyLess <- fromMessage m = return . Just $ (Mag (z - 0.1) On t) | Just ToggleOff <- fromMessage m = return . Just $ (Mag (z ) Off t) + | Just Toggle <- fromMessage m = return . Just $ (Mag (z ) Off t) handleMess (Mag z Off t) m | Just ToggleOn <- fromMessage m = return . Just $ (Mag z On t) + | Just Toggle <- fromMessage m = return . Just $ (Mag z On t) handleMess _ _ = return Nothing modifierDescription (Mag _ On All ) = "Magnifier" -- cgit v1.2.3