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