1
0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-09 07:18:39 +01:00

- [GUI] bound 'backspace' key to command to get backward in the browsing history.

This commit is contained in:
cage 2024-05-28 19:50:07 +02:00
parent 7db93c5ea3
commit 2612289b1e

View File

@ -1925,16 +1925,10 @@ local file paths."
(scale-gemtext main-window -0.1))))
:exclusive t)
(gui:bind target
#$<Control-4>$
#$<BackSpace>$
(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))
(funcall (back-iri-clsr main-window)))
:exclusive t))
(defun init-main-window (starting-iri)