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

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
Download patch file Download diff file Expand all files Collapse all files

10
scripts/zoomin
View file

@ -4,7 +4,7 @@
(defparameter output
(with-output-to-string (out)
(run-program "hyprctl"
'("getoption" "misc:cursor_zoom_factor")
'("getoption" "cursor:zoom_factor")
:search "/run/current-system/sw/bin/"
:output out)
out))
@ -19,14 +19,14 @@
(car (parse-string-to-float
(subseq output (+ (search "float: " output) 7) (+ (search "float: " output) 13)))))
(defparameter increment (+ zoom 0.1))
(defparameter decrement (- zoom 0.1))
(defparameter increment (+ zoom 0.3))
(defparameter decrement (- zoom 0.3))
(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/"
:output *standard-output*)
(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/"
:output *standard-output*)))