X.L.Magnifier: Add magnifierczOff and magnifierczOff'

Instead of exporting the internal constructor, define a few more
functions for people who like their magnifier to start of in the Off
position.

Closes: https://github.com/xmonad/xmonad-contrib/issues/168
This commit is contained in:
slotThe 2021-03-24 09:59:29 +01:00
parent 5fbfcaada0
commit b49ebdf2e0

View File

@ -20,13 +20,21 @@
module XMonad.Layout.Magnifier module XMonad.Layout.Magnifier
( -- * Usage ( -- * Usage
-- $usage -- $usage
-- * Magnify Everything
magnifier, magnifier,
magnifier',
magnifierOff, magnifierOff,
maxMagnifierOff,
magnifiercz, magnifiercz,
magnifiercz', magnifierczOff,
maxMagnifierOff,
maximizeVertical, maximizeVertical,
-- * Don't Magnify the Master Window
magnifier',
magnifiercz',
magnifierczOff',
-- * Messages and Types
MagnifyMsg (..), MagnifyMsg (..),
Magnifier, Magnifier,
) where ) where
@ -102,11 +110,20 @@ magnifiercz' cz = ModifiedLayout (Mag 1 (fromRational cz, fromRational cz) On No
-- | Magnifier that defaults to Off -- | Magnifier that defaults to Off
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 = magnifierczOff 1.5
-- | A magnifier that greatly magnifies with defaults to Off -- | A magnifier that greatly magnifies the focused window; defaults to
-- @Off@.
maxMagnifierOff :: l a -> ModifiedLayout Magnifier l a maxMagnifierOff :: l a -> ModifiedLayout Magnifier l a
maxMagnifierOff = ModifiedLayout (Mag 1 (1000,1000) Off All) maxMagnifierOff = magnifierczOff 1000
-- | Like 'magnifiercz', but default to @Off@.
magnifierczOff :: Rational -> l a -> ModifiedLayout Magnifier l a
magnifierczOff cz = ModifiedLayout (Mag 1 (fromRational cz, fromRational cz) Off All)
-- | Like 'magnifiercz'', but default to @Off@.
magnifierczOff' :: Rational -> l a -> ModifiedLayout Magnifier l a
magnifierczOff' cz = ModifiedLayout (Mag 1 (fromRational cz, fromRational cz) Off NoMaster)
-- | A magnifier that greatly magnifies just the vertical direction -- | A magnifier that greatly magnifies just the vertical direction
maximizeVertical :: l a -> ModifiedLayout Magnifier l a maximizeVertical :: l a -> ModifiedLayout Magnifier l a