twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-14 11:45:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

let MagnifyLess actually magnify less

Browse Source
This commit is contained in:
daniel
2008-10-15 15:39:11 +00:00
parent 9d409b6b3d
commit a2cf9d4d97
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Layout/Magnifier.hs
View File

@@ -119,8 +119,8 @@ instance LayoutModifier Magnifier Window where
redoLayout _ _ _ wrs = return (wrs, Nothing) redoLayout _ _ _ wrs = return (wrs, Nothing)
handleMess (Mag z On t) m handleMess (Mag z On t) m
| Just MagnifyMore <- 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 MagnifyLess <- fromMessage m = return . Just $ (Mag (z `addto` (-0.1)) On t)
| Just ToggleOff <- fromMessage m = return . Just $ (Mag (z ) Off t) | Just ToggleOff <- fromMessage m = return . Just $ (Mag (z ) Off t)
| Just Toggle <- 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) where addto (x,y) i = (x+i,y+i)