- [GUI] added scaling of gemtext using mousewheel (actually button 4 and 5).

2025-03-03 10:07:36 +01:00 · 2023-08-16 18:09:58 +02:00 · 2023-08-16 18:09:58 +02:00 · 8a88a51586
commit 8a88a51586
parent a7d7aa8555
1 changed files with 12 additions and 0 deletions
--- a/src/gui/client/main-window.lisp
+++ b/src/gui/client/main-window.lisp
@ -1602,6 +1602,18 @@ local file paths."
            (lambda (e)
              (declare (ignore e))
              (funcall (reload-iri-clsr main-window)))
+            :exclusive t)
+  (gui:bind target
+            #$<Control-4>$
+            (lambda (e)
+              (declare (ignore e))
+              (scale-gemtext main-window 0.1))
+            :exclusive t)
+  (gui:bind target
+            #$<Control-5>$
+            (lambda (e)
+              (declare (ignore e))
+              (scale-gemtext main-window -0.1))
            :exclusive t))

 (defun init-main-window (starting-iri)