mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 11:30:22 -07:00
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:
parent
5fbfcaada0
commit
b49ebdf2e0
@ -20,13 +20,21 @@
|
||||
module XMonad.Layout.Magnifier
|
||||
( -- * Usage
|
||||
-- $usage
|
||||
|
||||
-- * Magnify Everything
|
||||
magnifier,
|
||||
magnifier',
|
||||
magnifierOff,
|
||||
maxMagnifierOff,
|
||||
magnifiercz,
|
||||
magnifiercz',
|
||||
magnifierczOff,
|
||||
maxMagnifierOff,
|
||||
maximizeVertical,
|
||||
|
||||
-- * Don't Magnify the Master Window
|
||||
magnifier',
|
||||
magnifiercz',
|
||||
magnifierczOff',
|
||||
|
||||
-- * Messages and Types
|
||||
MagnifyMsg (..),
|
||||
Magnifier,
|
||||
) where
|
||||
@ -102,11 +110,20 @@ magnifiercz' cz = ModifiedLayout (Mag 1 (fromRational cz, fromRational cz) On No
|
||||
|
||||
-- | Magnifier that defaults to Off
|
||||
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 = 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
|
||||
maximizeVertical :: l a -> ModifiedLayout Magnifier l a
|
||||
|
Loading…
x
Reference in New Issue
Block a user