2023-04-09 11:47:41 +02:00
|
|
|
(in-package :client-main-window)
|
|
|
|
|
|
|
|
(defun make-internal-iri (path &optional (query nil) (fragment nil))
|
|
|
|
(iri:make-iri +internal-scheme+ nil nil nil path query fragment))
|
|
|
|
|
|
|
|
(defun internal-iri-bookmark ()
|
|
|
|
(make-internal-iri +internal-path-bookmark+))
|
|
|
|
|
2023-05-07 12:21:29 +02:00
|
|
|
(defun internal-iri-gemlogs ()
|
|
|
|
(make-internal-iri +internal-path-gemlogs+))
|
|
|
|
|
2023-04-09 11:47:41 +02:00
|
|
|
(defun show-bookmarks-page (main-window)
|
|
|
|
(ev:with-enqueued-process-and-unblock ()
|
|
|
|
(let ((parsed-page (comm:make-request :gemini-generate-bookmark-page 1))
|
|
|
|
(iri (internal-iri-bookmark)))
|
|
|
|
(set-address-bar-text main-window (to-s iri))
|
|
|
|
(clean-gemtext main-window)
|
2023-05-14 17:35:51 +02:00
|
|
|
(gui:focus (toc-frame main-window))
|
2023-04-09 11:47:41 +02:00
|
|
|
(collect-ir-lines (to-s iri) main-window parsed-page))))
|