forked from colonelpanic/dotfiles
[XMonad] Don't magnify in tabbed layout
This commit is contained in:
parent
d8ffcc5d74
commit
29584eecbd
@ -1 +1 @@
|
|||||||
Subproject commit 29e3974c937073aa25343f2eead95b3f1aec7922
|
Subproject commit e08cfede71d33edf7eda6e11d95da4df5ad682e6
|
@ -61,6 +61,7 @@ import XMonad.Hooks.TaffybarPagerHints
|
|||||||
import XMonad.Hooks.WorkspaceHistory
|
import XMonad.Hooks.WorkspaceHistory
|
||||||
import XMonad.Layout.Accordion
|
import XMonad.Layout.Accordion
|
||||||
import XMonad.Layout.BoringWindows
|
import XMonad.Layout.BoringWindows
|
||||||
|
import XMonad.Layout.ConditionalModifier
|
||||||
import XMonad.Layout.Cross
|
import XMonad.Layout.Cross
|
||||||
import XMonad.Layout.Grid
|
import XMonad.Layout.Grid
|
||||||
import XMonad.Layout.LayoutCombinators
|
import XMonad.Layout.LayoutCombinators
|
||||||
@ -266,11 +267,21 @@ data MyToggles
|
|||||||
| MAGNIFY
|
| MAGNIFY
|
||||||
deriving (Read, Show, Eq, Typeable)
|
deriving (Read, Show, Eq, Typeable)
|
||||||
|
|
||||||
|
data DisableOnTabbedCondition = DisableOnTabbedCondition deriving (Read, Show)
|
||||||
|
|
||||||
|
instance ModifierCondition DisableOnTabbedCondition where
|
||||||
|
shouldApply _ = do
|
||||||
|
not . isInfixOf "Tabbed" . description . W.layout <$> currentWorkspace
|
||||||
|
|
||||||
|
disableOnTabbed = ConditionalLayoutModifier DisableOnTabbedCondition
|
||||||
|
|
||||||
|
myMagnify = ModifiedLayout $ disableOnTabbed (Mag 1 (1.3, 1.3) On (AllWins 1))
|
||||||
|
|
||||||
instance Transformer MyToggles Window where
|
instance Transformer MyToggles Window where
|
||||||
transform LIMIT x k = k (limitSlice 2 x) unmodifyLayout
|
transform LIMIT x k = k (limitSlice 2 x) unmodifyLayout
|
||||||
transform GAPS x k = k (smartSpacing 5 x) unmodifyLayout
|
transform GAPS x k = k (smartSpacing 5 x) unmodifyLayout
|
||||||
transform MAGICFOCUS x k = k (magicFocus x) unmodifyLayout
|
transform MAGICFOCUS x k = k (magicFocus x) unmodifyLayout
|
||||||
transform MAGNIFY x k = k (magnify (1.3) (AllWins 1) True x) unmodifyLayout
|
transform MAGNIFY x k = k (myMagnify x) unmodifyLayout
|
||||||
|
|
||||||
myToggles = [LIMIT, GAPS, MAGICFOCUS, MAGNIFY]
|
myToggles = [LIMIT, GAPS, MAGICFOCUS, MAGNIFY]
|
||||||
otherToggles = [NBFULL, MIRROR, NOBORDERS, SMARTBORDERS]
|
otherToggles = [NBFULL, MIRROR, NOBORDERS, SMARTBORDERS]
|
||||||
|
Loading…
Reference in New Issue
Block a user