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

xmonad: add magnifier

Browse source
This commit is contained in:
Primrose 2025-09-15 12:24:45 +08:00
parent ae8971032e
commit b297ef80d8
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -22,11 +22,12 @@ import XMonad.Util.EZConfig
import XMonad.Util.Hacks import XMonad.Util.Hacks
import XMonad.Util.NamedScratchpad import XMonad.Util.NamedScratchpad
import XMonad.Util.SpawnOnce import XMonad.Util.SpawnOnce
import XMonad.Layout.Magnifier
import Data.Map.Strict qualified as M import Data.Map.Strict qualified as M
import Data.Monoid (Endo(Endo)) import Data.Monoid
import Graphics.X11.ExtraTypes.XF86
import System.Posix import System.Posix
import Graphics.X11.ExtraTypes.XF86
import Leanamonad.Layouts.ReflectMsg import Leanamonad.Layouts.ReflectMsg
import Leanamonad.GreekChar import Leanamonad.GreekChar
@ -91,12 +92,13 @@ main =
putEnv "MOZ_USE_XINPUT2=1" -- Force touchpad for firefox putEnv "MOZ_USE_XINPUT2=1" -- Force touchpad for firefox
, layoutHook = , layoutHook =
let tallr = reflectMsg . reflectHoriz let tallr = named "Normal"
$ smartSpacingWithEdge 5
$ reflectMsg . reflectHoriz
$ ResizableTall 1 (1/10) (3/7) [] $ ResizableTall 1 (1/10) (3/7) []
in avoidStruts mag = magnifyxy 1.05 1.3 (NoMaster 4) True tallr
$ smartBorders in avoidStruts . smartBorders $
$ named "Normal" (smartSpacingWithEdge 5 tallr) mag ||| Full
||| Full
, manageHook = , manageHook =
let let
@ -184,6 +186,7 @@ main =
, ((superMask, xK_period ), sendMessage Expand ) , ((superMask, xK_period ), sendMessage Expand )
, ((superMask .|. shiftMask, xK_comma ), sendMessage MirrorShrink ) , ((superMask .|. shiftMask, xK_comma ), sendMessage MirrorShrink )
, ((superMask .|. shiftMask, xK_period), sendMessage MirrorExpand ) , ((superMask .|. shiftMask, xK_period), sendMessage MirrorExpand )
, ((superMask , xK_apostrophe), sendMessage Toggle )
-- [D]o sink and lift -- [D]o sink and lift
, ( (superMask, xK_d) , ( (superMask, xK_d)