mirror of https://codeberg.org/cage/tinmop/
24 lines
950 B
Common Lisp
24 lines
950 B
Common Lisp
(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+))
|
|
|
|
(defun internal-iri-gemlogs ()
|
|
(make-internal-iri +internal-path-gemlogs+))
|
|
|
|
(defun internal-iri-view-source (path &optional (query nil) (fragment nil))
|
|
(iri:make-iri +internal-scheme-view-source+ nil nil nil path query fragment))
|
|
|
|
(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))
|
|
(clear-gemtext main-window)
|
|
(client-main-window::initialize-ir-lines main-window)
|
|
(gui:focus (toc-frame main-window))
|
|
(collect-ir-lines (to-s iri) main-window parsed-page))))
|