colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Don't magnify in tabbed layout

Browse Source
This commit is contained in:
Ivan Malison 2021-08-04 22:28:33 -06:00
parent d8ffcc5d74
commit 29584eecbd
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dotfiles/config/xmonad/xmonad-contrib

@ -1 +1 @@
Subproject commit 29e3974c937073aa25343f2eead95b3f1aec7922
Subproject commit e08cfede71d33edf7eda6e11d95da4df5ad682e6

13
dotfiles/config/xmonad/xmonad.hs
View File

@ -61,6 +61,7 @@ import XMonad.Hooks.TaffybarPagerHints
import XMonad.Hooks.WorkspaceHistory
import XMonad.Layout.Accordion
import XMonad.Layout.BoringWindows
import XMonad.Layout.ConditionalModifier
import XMonad.Layout.Cross
import XMonad.Layout.Grid
import XMonad.Layout.LayoutCombinators
@ -266,11 +267,21 @@ data MyToggles
| MAGNIFY
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
transform LIMIT x k = k (limitSlice 2 x) unmodifyLayout
transform GAPS x k = k (smartSpacing 5 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]
otherToggles = [NBFULL, MIRROR, NOBORDERS, SMARTBORDERS]