From def606e713a207d5e3404bd539b8d707cedda743 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 9 Nov 2016 13:54:48 -0800 Subject: [PATCH] [XMonad] Add limitWindows layout --- dotfiles/xmonad/xmonad.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 2ecdebf8..edd4666b 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -27,6 +27,7 @@ import XMonad.Hooks.FadeInactive import XMonad.Layout.BoringWindows import XMonad.Layout.LayoutCombinators import XMonad.Layout.LayoutModifier +import XMonad.Layout.LimitWindows import XMonad.Layout.MagicFocus import XMonad.Layout.Minimize import XMonad.Layout.MultiColumns @@ -83,9 +84,10 @@ myManageHook = composeAll . concat $ -- TODO: Figure out how to disable focus follows mouse for magicFocus layouts = multiCol [1, 1] 2 0.01 (-0.5) ||| Full ||| - Tall 1 (3/100) (1/2) ||| magicFocus (Tall 1 (3/100) (3/4)) + Tall 1 (3/100) (1/2) ||| magicFocus (Tall 1 (3/100) (3/4)) ||| + limitWindows 2 (Tall 1 (3/100) (1/2)) -myLayoutHook = avoidStruts . smartSpacing 10 . minimize . boringWindows . +myLayoutHook = avoidStruts . smartSpacing 10 . minimize . boringAuto . boringWindows . mkToggle (MIRROR ?? EOT) . workspaceNamesHook . smartBorders . noBorders $ layouts