hektor
/
dots
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update layouts

master
Hektor Misplon 2022-10-25 21:14:38 +02:00
parent 31eb8d11ea
commit 01e5b41bad
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
.xmonad/xmonad.hs
View File

@ -64,11 +64,17 @@ myXmobarPP = def
-- Magnifier is off by default (can be controlled using arrow keys) -- layoutHook
myLayout = smartBorders $ myLayoutHook= smartBorders $
-- Column layouts
threeCol |||
threeColMid ||| threeColMid |||
-- Tiled layouts
-- Note: magnifier is off by default
-- (controllable usingarrow keys)
magnifiercz magnificationFactorH tiled ||| magnifiercz magnificationFactorH tiled |||
magnifiercz magnificationFactorV (Mirror tiled) ||| magnifiercz magnificationFactorV (Mirror tiled) |||
-- Single window / monocle layout
Full Full
where where
magnificationFactorV = 1.384 magnificationFactorV = 1.384
@ -148,11 +154,10 @@ myKeysP = [
, ("M--", sendMessage MagnifyLess >> sendMessage Mag.ToggleOn) , ("M--", sendMessage MagnifyLess >> sendMessage Mag.ToggleOn)
-- Reset magnification -- Reset magnification
, ("M-S-=", sendMessage Mag.ToggleOff) , ("M-S-=", sendMessage Mag.ToggleOff)
-- Layouts
, ("M-t", sendMessage $ JumpToLayout "Tall") , ("M-t", sendMessage $ JumpToLayout "Magnifier Tall")
, ("M-c", sendMessage $ JumpToLayout "ThreeCol")
, ("M-f", sendMessage $ JumpToLayout "Full") , ("M-f", sendMessage $ JumpToLayout "Full")
, ("M-S-\\", sendMessage $ JumpToLayout "ThreeCol")
] ]
-- Keybindings to be removed -- Keybindings to be removed