twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-04 22:21:54 -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,
magnifier', magnifier',
magnifierOff, magnifierOff,
maxMagnifierOff,
magnifiercz, magnifiercz,
magnifiercz', magnifiercz',
maximizeVertical, maximizeVertical,
@@ -98,6 +99,10 @@ magnifier' = ModifiedLayout (Mag 1 (1.5,1.5) On NoMaster)
magnifierOff :: l a -> ModifiedLayout Magnifier l a magnifierOff :: l a -> ModifiedLayout Magnifier l a
magnifierOff = ModifiedLayout (Mag 1 (1.5,1.5) Off All) 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, -- | Increase the size of the window that has focus by a custom zoom,
-- unless if it is one of the the master windows. -- unless if it is one of the the master windows.
magnifiercz' :: Rational -> l a -> ModifiedLayout Magnifier l a magnifiercz' :: Rational -> l a -> ModifiedLayout Magnifier l a