- [GUI] added scaling of gemtext using mousewheel events (not fired on GNU/linux, maybe in other OS).

2025-06-05 01:09:17 +02:00 · 2023-08-16 18:16:05 +02:00
parent 8a88a51586
commit 8730bbd192
1 changed files with 8 additions and 0 deletions
--- a/src/gui/client/main-window.lisp
+++ b/src/gui/client/main-window.lisp
@@ -1603,6 +1603,14 @@ local file paths."
              (declare (ignore e))
              (funcall (reload-iri-clsr main-window)))
            :exclusive t)
+  (gui:bind target
+            #$<Control-MouseWheel>$
+            (lambda (e)
+              (let ((clockwise (< (gui:event-delta e) 0)))
+                (if clockwise
+                    (scale-gemtext main-window 0.1)
+                    (scale-gemtext main-window -0.1))))
+            :exclusive t)
  (gui:bind target
            #$<Control-4>$
            (lambda (e)