aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authordaniel <daniel@wagner-home.com>2008-10-15 17:39:11 +0200
committerdaniel <daniel@wagner-home.com>2008-10-15 17:39:11 +0200
commitfcef18aef35e25cd66a6cbd991030c03bbed951b (patch)
treef1902c59c226b5a7c982273998357ee8fb06e9ba /XMonad
parenteb843b084edeb9fbfe8d11c9d13e9cb5af7bc588 (diff)
downloadXMonadContrib-fcef18aef35e25cd66a6cbd991030c03bbed951b.tar.gz
XMonadContrib-fcef18aef35e25cd66a6cbd991030c03bbed951b.tar.xz
XMonadContrib-fcef18aef35e25cd66a6cbd991030c03bbed951b.zip
let MagnifyLess actually magnify less
darcs-hash:20081015153911-c98ca-8e30acd23f81e81eca5e04cda07cbd972a1b00f7.gz
Diffstat (limited to 'XMonad')
-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)