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

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)