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

Make Magnifier's master window behavior customizable

Browse Source 
based on a suggestion by Tim Hobbs
This commit is contained in:
Peter De Wachter
2007-06-20 17:00:20 +00:00
parent 8ed5dc82cf
commit 3f08632b37
1 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Magnifier.hs
View File

@@ -11,8 +11,6 @@
-- Screenshot : http://caladan.rave.org/magnifier.png -- Screenshot : http://caladan.rave.org/magnifier.png
-- --
-- This layout hack increases the size of the window that has focus. -- This layout hack increases the size of the window that has focus.
-- The master window is left alone. (Maybe that should be an option.)
--
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
@@ -20,7 +18,7 @@
module XMonadContrib.Magnifier ( module XMonadContrib.Magnifier (
-- * Usage -- * Usage
-- $usage -- $usage
magnifier) where magnifier, magnifier') where
import Graphics.X11.Xlib import Graphics.X11.Xlib
import XMonad import XMonad
@@ -30,13 +28,24 @@ import StackSet
-- > import XMonadContrib.Magnifier -- > import XMonadContrib.Magnifier
-- > 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.
magnifier :: Eq a => Layout a -> Layout a magnifier :: Eq a => Layout a -> Layout a
magnifier l = l { doLayout = \r s -> applyMagnifier r s `fmap` doLayout l r s magnifier l = l { doLayout = \r s -> unlessMaster applyMagnifier r s `fmap` doLayout l r s
, modifyLayout = \x -> fmap magnifier `fmap` modifyLayout l x } , modifyLayout = \x -> fmap magnifier `fmap` modifyLayout l x }
applyMagnifier :: Eq a => Rectangle -> Stack a -> [(a, Rectangle)] -> [(a, Rectangle)] -- | Increase the size of the window that has focus, even if it is the master window.
applyMagnifier r s | null (up s) = id -- don't change the master window magnifier' :: Eq a => Layout a -> Layout a
| otherwise = map $ \(w,wr) -> if w == focus s then (w, shrink r $ magnify wr) else (w, wr) magnifier' l = l { doLayout = \r s -> applyMagnifier r s `fmap` doLayout l r s
, modifyLayout = \x -> fmap magnifier' `fmap` modifyLayout l x }
type DoLayout = Eq a => Rectangle -> Stack a -> [(a, Rectangle)] -> [(a, Rectangle)]
unlessMaster :: DoLayout -> DoLayout
unlessMaster f r s = if null (up s) then id else f r s
applyMagnifier :: DoLayout
applyMagnifier r s = map $ \(w,wr) -> if w == focus s then (w, shrink r $ magnify wr) else (w, wr)
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'