- [GUI] added more keybindings;

- [GUI] parsed keybindings.

etc/gui.conf

@@ -200,3 +200,7 @@ keybinding.gemlog                   = "Control-g"
 keybinding.about                    = "Control-a"
 
 keybinding.type-address             = "Alt-d"
+
+keybinding.back                     = "BackSpace"
+
+keybinding.up                       = "U"

src/gui/client/client-configuration.lisp

@@ -39,7 +39,8 @@
                            type-address
                            next
                            shuffle
-                           manage)
+                           manage
+                           up)
 
 (defun load-config-file (&optional (virtual-filepath +client-conf-filename+)
                            (perform-missing-value-check nil))
@@ -263,7 +264,7 @@
                                                                      +key-underline+)))))
 
 (defun keybinding->tk-event (keys)
-  (strcat "<" keys ">"))
+  (nodgui.event-parser:parse-event (strcat "<" keys ">")))
 
 (defun get-keybinding (key)
   (keybinding->tk-event (access:accesses *client-configuration*

src/gui/client/main-window.lisp

@@ -1320,6 +1320,18 @@
             (lambda (e)
               (declare (ignore e))
               (funcall (tour-visit-next-iri-clsr main-window)))
+            :exclusive t)
+  (gui:bind (gui:root-toplevel)
+            (client-configuration:get-keybinding :back)
+            (lambda (e)
+              (declare (ignore e))
+              (funcall (back-iri-clsr main-window)))
+            :exclusive t)
+  (gui:bind (gui:root-toplevel)
+            (client-configuration:get-keybinding :up)
+            (lambda (e)
+              (declare (ignore e))
+              (funcall (up-iri-clsr main-window)))
             :exclusive t))
 
 (defun init-main-window ()