aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Layout/Magnifier.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout/Magnifier.hs b/XMonad/Layout/Magnifier.hs
index b27f2c7..bba0697 100644
--- a/XMonad/Layout/Magnifier.hs
+++ b/XMonad/Layout/Magnifier.hs
@@ -119,8 +119,8 @@ instance LayoutModifier Magnifier Window where
redoLayout _ _ _ wrs = return (wrs, Nothing)
handleMess (Mag z On t) m
- | Just MagnifyMore <- fromMessage m = return . Just $ (Mag (z `addto` 0.1) On t)
- | Just MagnifyLess <- fromMessage m = return . Just $ (Mag (z `addto` 0.1) On t)
+ | Just MagnifyMore <- fromMessage m = return . Just $ (Mag (z `addto` 0.1 ) On t)
+ | Just MagnifyLess <- fromMessage m = return . Just $ (Mag (z `addto` (-0.1)) On t)
| Just ToggleOff <- fromMessage m = return . Just $ (Mag (z ) Off t)
| Just Toggle <- fromMessage m = return . Just $ (Mag (z ) Off t)
where addto (x,y) i = (x+i,y+i)