[XMonad] Don't magnify in tabbed layout

colonelpanic8 · Aug 5, 2021 · 29584ee · 29584ee
1 parent d8ffcc5
commit 29584ee
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/dotfiles/config/xmonad/xmonad-contrib b/dotfiles/config/xmonad/xmonad-contrib
diff --git a/dotfiles/config/xmonad/xmonad.hs b/dotfiles/config/xmonad/xmonad.hs
@@ -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]
+6 −0		CHANGES.md
+100 −0		XMonad/Layout/ConditionalModifier.hs
+2 −1		XMonad/Layout/Magnifier.hs
+1 −0		xmonad-contrib.cabal