refac(prog/xmonad): change layout

This commit is contained in:
Dmitriy Pleshevskiy 2022-05-15 11:27:51 +03:00
parent 2f66fbc3d1
commit f7bbf39cbc

View file

@ -86,8 +86,8 @@ myKeys conf = mkKeymap conf $
, ("M4-S-c", kill)
-- Rotate through the available layout algorithms
, ("M-<Space>", cycleThroughLayouts ["Full", "Tall"])
, ("M-<Tab>", cycleThroughLayouts ["Grid", "Tall"])
, ("M-<Space>", cycleThroughLayouts ["Full", "Mirror Tall"])
, ("M-<Tab>", cycleThroughLayouts ["Grid", "Tall", "Mirror Tall"])
-- Reset the layouts on the current workspace to default
, ("M-S-<Space>", setLayout $ XMonad.layoutHook conf)
@ -190,10 +190,12 @@ myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList
-- which denotes layout choice.
--
myLayout = avoidStruts
$ onWorkspaces ["1:web", "4:chat"] (myTall (1/2) ||| myFull ||| Grid)
$ myTall (2/3) ||| myFull ||| Grid
$ onWorkspaces ["2:front", "3:back"] (myMirror (2/3) ||| myTall (1/2) ||| myFull ||| Grid)
$ myTall (1/2) ||| myMirror (1/2) ||| myFull ||| Grid
where
myTall = limitWindows 4 . boringWindows . smartBorders . Tall 1 (3/100)
myMirror = limitWindows 4 . Mirror . myTall
myTall = boringWindows . smartBorders . Tall 1 (3/100)
myFull = noBorders Full