- [GUI] added show bookmarks command.

etc/gui.conf

@@ -205,4 +205,6 @@ keybinding.back                     = "BackSpace"
 
 keybinding.up                       = "U"
 
-keybinding.bookmark                 = "Control-d"
+keybinding.bookmark.toggle          = "Control-d"
+
+keybinding.bookmark.show            = "Control-b"

src/gui/client/client-configuration.lisp

@@ -40,7 +40,10 @@
                            next
                            shuffle
                            manage
-                           up)
+                           up
+                           bookmark
+                           toggle
+                           show)
 
 (defun load-config-file (&optional (virtual-filepath +client-conf-filename+)
                            (perform-missing-value-check nil))
@@ -291,3 +294,17 @@
                           +key-keybinding+
                           +key-tour+
                           +key-manage+)
+
+(swconf:gen-simple-access (keybinding-bookmark-toggle
+                           :transform-value-fn (lambda (a) (keybinding->tk-event a))
+                           :configuration-tree *client-configuration*)
+                          +key-keybinding+
+                          +key-bookmark+
+                          +key-toggle+)
+
+(swconf:gen-simple-access (keybinding-bookmark-show
+                           :transform-value-fn (lambda (a) (keybinding->tk-event a))
+                           :configuration-tree *client-configuration*)
+                          +key-keybinding+
+                          +key-bookmark+
+                          +key-show+)

src/gui/client/main-window.lisp

@@ -230,7 +230,10 @@
                          (_ "About")
                          #'menu:help-about
                          :accelerator (client-configuration:get-keybinding :about))
-    (gui:make-menubutton bookmarks (_ "Show") (menu:show-bookmarks-clsr main-window))
+    (gui:make-menubutton bookmarks
+                         (_ "Show")
+                         (menu:show-bookmarks-clsr main-window)
+                         :accelerator (client-configuration:config-keybinding-bookmark-show))
     (gui:make-menubutton bookmarks (_ "Manage") (menu:manage-bookmarks-clsr main-window))
     (gui:make-menubutton tour
                          (_ "Manage")
@@ -1328,10 +1331,16 @@
               (funcall (up-iri-clsr main-window)))
             :exclusive t)
   (gui:bind (gui:root-toplevel)
-            (client-configuration:get-keybinding :bookmark)
+            (client-configuration:config-keybinding-bookmark-toggle)
             (lambda (e)
               (declare (ignore e))
               (funcall (toggle-bookmark-iri-clsr main-window)))
+            :exclusive t)
+  (gui:bind (gui:root-toplevel)
+            (client-configuration:config-keybinding-bookmark-show)
+            (lambda (e)
+              (declare (ignore e))
+              (funcall (menu:show-bookmarks-clsr main-window)))
             :exclusive t))
 
 (defun init-main-window ()

src/package.lisp

@@ -3291,7 +3291,9 @@
    :config-keybinding-tour-shuffle
    :config-keybinding-tour-manage
    :config-keybinding-tour-next
-   :config-gemtext-padding))
+   :config-gemtext-padding
+   :config-keybinding-bookmark-toggle
+   :config-keybinding-bookmark-show))
 
 (defpackage :client-os-utils
   (:use