mynix/system
1
1
Fork 0
Code Issues 2 Pull requests Activity

refac(prog/xmonad): change layout

Browse source
This commit is contained in:
Dmitriy Pleshevskiy 2022-05-15 11:27:51 +03:00
parent 2f66fbc3d1
commit f7bbf39cbc
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
programs/xmonad/xmonad.hs
View file

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