cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-11 22:35:20 +01:00
Code Issues

- added latest entries to chronology menu.

Browse Source
This commit is contained in:
cage 2024-11-30 16:47:47 +01:00
parent 8a626d1c2d
commit 92b5cbb588
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -262,6 +262,16 @@
(setf (fetching-thread stream-wrapper) stream-thread)
stream-wrapper)))))
(defun menu-latest-history-entries ()
;; get the history for today
(a:when-let ((rows (cev:enqueue-request-and-wait-results :gemini-history-rows
1
ev:+standard-event-priority+
1
0)))
(mapcar (lambda (a) (getf a :input))
(subseq rows 0 (min 5 (length rows))))))
(defun initialize-menu (parent main-window)
(let* ((bar (gui:make-menubar parent))
(file (gui:make-menu bar (_ "File")))
@ -275,6 +285,19 @@
(gui:make-menubutton history
(_ "Manage")
(menu:manage-history-clsr main-window))
(gui:add-separator history)
(let ((history-urls (menu-latest-history-entries)))
(if history-urls
(map nil
(lambda (url)
(gui:make-menubutton history
(ellipsize url 50)
(lambda () (open-iri url main-window t))))
history-urls)
(gui:make-menubutton history
(_ "History empty")
(constantly t)
:state :disabled)))
(gui:make-menubutton tools
(_ "Certificates")
(menu:show-certificates-clsr main-window)