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

Adapt layout to screen width

master
Hektor Misplon 2023-06-04 14:49:51 +02:00
parent 9da2a4c443
commit 31f45fdff8
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
.xmonad/xmonad.hs
View File

@ -105,12 +105,19 @@ myManageHook =
-- layoutHook -- layoutHook
myLayoutHook = myLayoutHook =
showWName' myShowWNameConfig $ showWName' myShowWNameConfig $
ifWider smallWidth (
t ||| -- Tiled layouts t ||| -- Tiled layouts
c3 ||| -- Column layouts c3 ||| -- Column layouts
c3m ||| -- c3m ||| --
f -- Monocle layouts f -- Monocle layouts
) (
t ||| -- Tiled layouts
f -- Monocle layouts
)
where where
t = renamed [Replace "[]+"] $ centeredIfSingle 0.8 0.9 $ Tall nmaster delta ratio smallWidth = 1920
t = renamed [Replace "[]+"] $ ifWider smallWidth (centeredIfSingle 0.8 0.9 $ Tall nmaster delta ratio)
(Tall nmaster delta ratio)
c3 = renamed [Replace "|||"] $ ThreeCol nmaster delta ratio c3 = renamed [Replace "|||"] $ ThreeCol nmaster delta ratio
c3m = renamed [Replace "[|]"] $ ThreeColMid nmaster delta ratio c3m = renamed [Replace "[|]"] $ ThreeColMid nmaster delta ratio
f = renamed [Replace "[+]"] Full f = renamed [Replace "[+]"] Full