twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-15 20:23:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

work around Magnifier's problems with floating windows

Browse Source
This commit is contained in:
Peter De Wachter
2007-08-05 14:10:51 +00:00
parent ec1c059de5
commit 5b3bbf21b0
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Magnifier.hs
View File

@@ -21,7 +21,7 @@ module XMonadContrib.Magnifier (
-- $usage -- $usage
magnifier, magnifier') where magnifier, magnifier') where
import Graphics.X11.Xlib import Graphics.X11.Xlib (Window, Rectangle(..))
import XMonad import XMonad
import StackSet import StackSet
import XMonadContrib.LayoutHelpers import XMonadContrib.LayoutHelpers
@@ -31,21 +31,22 @@ import XMonadContrib.LayoutHelpers
-- > defaultLayouts = [ magnifier tiled , magnifier $ mirror tiled ] -- > defaultLayouts = [ magnifier tiled , magnifier $ mirror tiled ]
-- | Increase the size of the window that has focus, unless it is the master window. -- | Increase the size of the window that has focus, unless it is the master window.
magnifier :: Eq a => Layout a -> Layout a magnifier :: Layout Window -> Layout Window
magnifier = layoutModify (unlessMaster applyMagnifier) idModMod magnifier = layoutModify (unlessMaster applyMagnifier) idModMod
-- | Increase the size of the window that has focus, even if it is the master window. -- | Increase the size of the window that has focus, even if it is the master window.
magnifier' :: Eq a => Layout a -> Layout a magnifier' :: Layout Window -> Layout Window
magnifier' = layoutModify applyMagnifier idModMod magnifier' = layoutModify applyMagnifier idModMod
unlessMaster :: ModDo a -> ModDo a unlessMaster :: ModDo Window -> ModDo Window
unlessMaster mainmod r s wrs = if null (up s) then return (wrs, Nothing) unlessMaster mainmod r s wrs = if null (up s) then return (wrs, Nothing)
else mainmod r s wrs else mainmod r s wrs
applyMagnifier :: Eq a => ModDo a applyMagnifier :: ModDo Window
applyMagnifier r s wrs = return (reverse $ foldr mag [] wrs, Nothing) applyMagnifier r _ wrs = do focused <- withWindowSet (return . peek)
where mag (w,wr) ws | w == focus s = ws ++ [(w, shrink r $ magnify wr)] let mag (w,wr) ws | focused == Just w = ws ++ [(w, shrink r $ magnify wr)]
| otherwise = (w,wr) : ws | otherwise = (w,wr) : ws
return (reverse $ foldr mag [] wrs, Nothing)
magnify :: Rectangle -> Rectangle magnify :: Rectangle -> Rectangle
magnify (Rectangle x y w h) = Rectangle x' y' w' h' magnify (Rectangle x y w h) = Rectangle x' y' w' h'