cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- [GUI] fixed bookmarking URL.

Browse Source
This commit is contained in:
cage 2023-05-14 17:22:41 +02:00
parent f7d8f4132f
commit b05e44de1c
2 changed files with 9 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/gui/client/bookmark-window.lisp
View File

@ -4,13 +4,13 @@
(defun add-to-bookmark-clsr (toplevel iri-entry section-entry description-entry)
(lambda ()
(let ((iri (gui:text iri-entry))
(section (if (text-utils:string-empty-p (gui:text section-entry))
(_ "Default")
(gui:text section-entry)))
(description (if (text-utils:string-empty-p (gui:text description-entry))
iri-entry
(gui:text description-entry))))
(let* ((iri (gui:text iri-entry))
(section (if (text-utils:string-empty-p (gui:text section-entry))
(_ "Default")
(gui:text section-entry)))
(description (if (text-utils:string-empty-p (gui:text description-entry))
iri
(gui:text description-entry))))
(if (gemini-parser:gemini-iri-p iri)
(ev:with-enqueued-process-and-unblock ()
(comm:make-request :gemini-bookmark-delete 1 iri)

10
src/gui/client/main-window.lisp
View File

@ -230,14 +230,8 @@
(_ "About")
#'menu:help-about
:accelerator (client-configuration:get-keybinding :about))
(gui:make-menubutton bookmarks
(_ "Show")
(menu:show-bookmarks-clsr main-window)
:underline 0)
(gui:make-menubutton bookmarks
(_ "Manage")
(menu:manage-bookmarks-clsr main-window)
:underline 0)
(gui:make-menubutton bookmarks (_ "Show") (menu:show-bookmarks-clsr main-window))
(gui:make-menubutton bookmarks (_ "Manage") (menu:manage-bookmarks-clsr main-window))
(gui:make-menubutton tour
(_ "Manage")
#'menu:show-tour