chris/dotfiles
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

adding better zoom

Browse source
This commit is contained in:
Chris Cochrun 2025-02-20 12:27:52 -06:00
parent f2190dae67
commit 217e0d8826
2 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
home/modules/hyprland.nix
View file

@ -263,6 +263,9 @@ in
",Print,exec,screenshot" ",Print,exec,screenshot"
"SUPERSHIFT,mouse_down,exec,zoomin in" "SUPERSHIFT,mouse_down,exec,zoomin in"
"SUPERSHIFT,mouse_up,exec,zoomin out" "SUPERSHIFT,mouse_up,exec,zoomin out"
"SUPERALT,r,exec,zoomin in"
"SUPERALT,m,exec,zoomin out"
"SUPERALT,f,exec,hyprctl keyword cursor:zoom_factor 1.0"
"SUPER,P,exec,/home/chris/bin/rbw.sh" "SUPER,P,exec,/home/chris/bin/rbw.sh"
"SUPER,M,fullscreen,1" "SUPER,M,fullscreen,1"

10
scripts/zoomin
View file

@ -4,7 +4,7 @@
(defparameter output (defparameter output
(with-output-to-string (out) (with-output-to-string (out)
(run-program "hyprctl" (run-program "hyprctl"
'("getoption" "misc:cursor_zoom_factor") '("getoption" "cursor:zoom_factor")
:search "/run/current-system/sw/bin/" :search "/run/current-system/sw/bin/"
:output out) :output out)
out)) out))
@ -19,14 +19,14 @@
(car (parse-string-to-float (car (parse-string-to-float
(subseq output (+ (search "float: " output) 7) (+ (search "float: " output) 13))))) (subseq output (+ (search "float: " output) 7) (+ (search "float: " output) 13)))))
(defparameter increment (+ zoom 0.1)) (defparameter increment (+ zoom 0.3))
(defparameter decrement (- zoom 0.1)) (defparameter decrement (- zoom 0.3))
(if (member "in" (uiop:command-line-arguments) :test #'string=) (if (member "in" (uiop:command-line-arguments) :test #'string=)
(run-program "hyprctl" `("keyword" "misc:cursor_zoom_factor" ,(write-to-string increment)) (run-program "hyprctl" `("keyword" "cursor:zoom_factor" ,(write-to-string increment))
:search "/run/current-system/sw/bin/" :search "/run/current-system/sw/bin/"
:output *standard-output*) :output *standard-output*)
(if (member "out" (uiop:command-line-arguments) :test #'string=) (if (member "out" (uiop:command-line-arguments) :test #'string=)
(run-program "hyprctl" `("keyword" "misc:cursor_zoom_factor" ,(write-to-string decrement)) (run-program "hyprctl" `("keyword" "cursor:zoom_factor" ,(write-to-string decrement))
:search "/run/current-system/sw/bin/" :search "/run/current-system/sw/bin/"
:output *standard-output*))) :output *standard-output*)))