From 28fd2438e1adcba2a4e85660c8709952f142d1fe Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Fri, 10 Mar 2017 16:14:37 -0800 Subject: [PATCH] [XMonad] Add sublayouts code --- dotfiles/xmonad/xmonad.hs | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 76369e70..d7da0ae8 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -48,6 +48,7 @@ import XMonad.Layout.MultiToggle.Instances import XMonad.Layout.NoBorders import qualified XMonad.Layout.Renamed as RN import XMonad.Layout.Spacing +import XMonad.Layout.SubLayouts import XMonad.Layout.Tabbed import XMonad.Layout.WindowNavigation import qualified XMonad.StackSet as W @@ -290,9 +291,17 @@ selectLayout = (sendMessage . JumpToLayout) myLayoutHook = - avoidStruts . minimize . boringAuto . mkToggle1 MIRROR . mkToggle1 LIMIT . - mkToggle1 GAPS . mkToggle1 MAGICFOCUS . mkToggle1 NBFULL . workspaceNamesHook . - lessBorders Screen $ fst layoutInfo + avoidStruts . + minimize . + windowNavigation . + subTabbed . + boringAuto . + mkToggle1 MIRROR . + mkToggle1 LIMIT . + mkToggle1 GAPS . + mkToggle1 MAGICFOCUS . + mkToggle1 NBFULL . workspaceNamesHook . lessBorders Screen $ + fst layoutInfo -- WindowBringer