Update layouts
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user