primrose/.files
1
0
Fork 0
mirror of https://codeberg.org/leana8959/.files.git synced 2026-02-01 14:39:39 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

vanadium/xmonad: magnifier default to off

Browse source
This commit is contained in:
Primrose 2025-12-10 09:27:15 +08:00
parent a1177c3378
commit 95ed521889
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
1 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

20
nix/configurations/vanadium/home/xmonad/xmonad.hs
View file

@ -69,24 +69,26 @@ main =
myLayout =
avoidStruts
$ smartBorders
$ onWorkspace researchWS (toggleLayouts (magnifier tallr) full)
$ onWorkspace chatWS (toggleLayouts (magnifier tallr) full)
$ onWorkspace multimediaWS (toggleLayouts (magnifier tallr) full)
$ toggleLayouts (magnifier tallr) full
$ onWorkspace researchWS (toggleLayouts (mag tallr) full)
$ onWorkspace chatWS (toggleLayouts (mag tallr) full)
$ onWorkspace multimediaWS (toggleLayouts (mag tallr) full)
$ toggleLayouts (mag tallr) full
where
mag = magnifierOff
full = focusTracking Full
tallrN n =
mkTallrN n =
smartSpacingWithEdge 5
$ reflectMsg . reflectHoriz
$ ResizableTall n (1/10) (3/7) []
tallr =
renamed [ Replace "Tall" ]
$ ifMax 3 (tallrN 1)
$ ifMax 5 (tallrN 2)
$ ifMax 7 (tallrN 3)
$ tallrN 4
$ ifMax 3 (mkTallrN 1)
$ ifMax 5 (mkTallrN 2)
$ ifMax 7 (mkTallrN 3)
$ mkTallrN 4
isSioyek :: Query Bool
isSioyek = className =? "sioyek"