- [GUI] added keybindings for reloading the current gemini address.

etc/gui.conf

@@ -221,6 +221,8 @@ keybinding.gemtext.scaling.decrease = "Control-minus"
 
 keybinding.gemtext.scaling.reset    = "Control-0"
 
+keybinding.gemtext.refresh          = "Control-r"
+
 # emphasize text
 
 emphasize.wrapped.asterisk           = yes

src/gui/client/client-configuration.lisp

@@ -53,7 +53,8 @@
                            scaling
                            increase
                            decrease
-                           reset)
+                           reset
+                           refresh)
 
 (defun load-config-file (&optional (virtual-filepath +client-conf-filename+)
                            (perform-missing-value-check nil))
@@ -413,6 +414,13 @@
                           +key-scaling+
                           +key-reset+)
 
+(swconf:gen-simple-access (keybinding-gemtext-refresh
+                           :transform-value-fn (lambda (a) (keybinding->tk-event a))
+                           :configuration-tree *client-configuration*)
+                          +key-keybinding+
+                          +key-gemtext+
+                          +key-refresh+)
+
 (defun main-window-select-colors ()
   (values (gui-goodies:parse-color (access:accesses *client-configuration*
                                                     swconf:+key-gemini+

src/gui/client/main-window.lisp

@@ -1520,6 +1520,12 @@
             (lambda (e)
               (declare (ignore e))
               (scale-gemtext main-window nil))
+            :exclusive t)
+  (gui:bind target
+            (client-configuration:config-keybinding-gemtext-refresh)
+            (lambda (e)
+              (declare (ignore e))
+              (funcall (reload-iri-clsr main-window)))
             :exclusive t))
 
 (defun init-main-window (starting-iri)

src/package.lisp

@@ -3298,6 +3298,7 @@
    :config-keybinding-gemtext-scaling-increase
    :config-keybinding-gemtext-scaling-decrease
    :config-keybinding-gemtext-scaling-reset
+   :config-keybinding-gemtext-refresh
    :config-gemtext-padding
    :config-keybinding-bookmark-toggle
    :config-keybinding-bookmark-show