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

Add maxMagnifierOff to Magnifier layout

Browse Source
This commit is contained in:
igor04
2020-05-17 19:37:07 +03:00
parent 14faa12f69
commit 2149f0a07b
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Layout/Magnifier.hs
View File

@@ -23,6 +23,7 @@ module XMonad.Layout.Magnifier
magnifier,
magnifier',
magnifierOff,
maxMagnifierOff,
magnifiercz,
magnifiercz',
maximizeVertical,
@@ -98,6 +99,10 @@ magnifier' = ModifiedLayout (Mag 1 (1.5,1.5) On NoMaster)
magnifierOff :: l a -> ModifiedLayout Magnifier l a
magnifierOff = ModifiedLayout (Mag 1 (1.5,1.5) Off All)
-- | A magnifier that greatly magnifies with defaults to Off
maxMagnifierOff :: l a -> ModifiedLayout Magnifier l a
maxMagnifierOff = ModifiedLayout (Mag 1 (1000,1000) Off All)
-- | Increase the size of the window that has focus by a custom zoom,
-- unless if it is one of the the master windows.
magnifiercz' :: Rational -> l a -> ModifiedLayout Magnifier l a