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
|
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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user