[XMonad] Add sublayouts code
This commit is contained in:
parent
419a594548
commit
28fd2438e1
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user