From cf7f8956062695046f96442b0058c224c3ca214f Mon Sep 17 00:00:00 2001 From: Braden Shepherdson Date: Wed, 5 Mar 2008 23:23:02 +0100 Subject: Fix ToggleOff: It was adding 0.1 to the magnification. darcs-hash:20080305222302-d53a8-7c2da98e774ebd47e2004c37b8b51f89ca39767a.gz --- XMonad/Layout/Magnifier.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/XMonad/Layout/Magnifier.hs b/XMonad/Layout/Magnifier.hs index b163fe4..1a69a7b 100644 --- a/XMonad/Layout/Magnifier.hs +++ b/XMonad/Layout/Magnifier.hs @@ -106,7 +106,7 @@ instance LayoutModifier Magnifier Window where handleMess (Mag z On t) m | 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 + 0.1) Off t) + | Just ToggleOff <- fromMessage m = return . Just $ (Mag (z ) Off t) handleMess (Mag z Off t) m | Just ToggleOn <- fromMessage m = return . Just $ (Mag z On t) handleMess _ _ = return Nothing -- cgit v1.2.3