1
0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-22 23:47:56 +01:00

- [GUI] added show bookmarks command.

This commit is contained in:
cage 2023-05-14 17:33:31 +02:00
parent b05e44de1c
commit 064c7efa00
4 changed files with 35 additions and 5 deletions

View File

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

View File

@ -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+)

View File

@ -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 ()

View File

@ -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