diff options
| author | daniel <daniel@wagner-home.com> | 2008-10-15 17:39:11 +0200 |
|---|---|---|
| committer | daniel <daniel@wagner-home.com> | 2008-10-15 17:39:11 +0200 |
| commit | fcef18aef35e25cd66a6cbd991030c03bbed951b (patch) | |
| tree | f1902c59c226b5a7c982273998357ee8fb06e9ba /XMonad/Layout | |
| parent | eb843b084edeb9fbfe8d11c9d13e9cb5af7bc588 (diff) | |
| download | XMonadContrib-fcef18aef35e25cd66a6cbd991030c03bbed951b.tar.gz XMonadContrib-fcef18aef35e25cd66a6cbd991030c03bbed951b.tar.xz XMonadContrib-fcef18aef35e25cd66a6cbd991030c03bbed951b.zip | |
let MagnifyLess actually magnify less
darcs-hash:20081015153911-c98ca-8e30acd23f81e81eca5e04cda07cbd972a1b00f7.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Layout/Magnifier.hs | 4 |
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) |