[XMonad] Add sublayouts code

This commit is contained in:
Ivan Malison 2017-03-10 16:14:37 -08:00
parent 419a594548
commit 28fd2438e1
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -48,6 +48,7 @@ import XMonad.Layout.MultiToggle.Instances
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
import qualified XMonad.Layout.Renamed as RN import qualified XMonad.Layout.Renamed as RN
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import XMonad.Layout.SubLayouts
import XMonad.Layout.Tabbed import XMonad.Layout.Tabbed
import XMonad.Layout.WindowNavigation import XMonad.Layout.WindowNavigation
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
@ -290,9 +291,17 @@ selectLayout =
(sendMessage . JumpToLayout) (sendMessage . JumpToLayout)
myLayoutHook = myLayoutHook =
avoidStruts . minimize . boringAuto . mkToggle1 MIRROR . mkToggle1 LIMIT . avoidStruts .
mkToggle1 GAPS . mkToggle1 MAGICFOCUS . mkToggle1 NBFULL . workspaceNamesHook . minimize .
lessBorders Screen $ fst layoutInfo windowNavigation .
subTabbed .
boringAuto .
mkToggle1 MIRROR .
mkToggle1 LIMIT .
mkToggle1 GAPS .
mkToggle1 MAGICFOCUS .
mkToggle1 NBFULL . workspaceNamesHook . lessBorders Screen $
fst layoutInfo
-- WindowBringer -- WindowBringer