From 804ce88de839a29336670cd1055d7dd18db1ba96 Mon Sep 17 00:00:00 2001 From: cage Date: Mon, 16 Aug 2021 14:30:59 +0200 Subject: [PATCH] - added a title to bookmark page. --- src/ui-goodies.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index f15ed1b..0ec8073 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -2105,12 +2105,13 @@ gemini page the program is rendering." (defun generate-bookmark-page () (let ((bookmarks-sections (db:bookmark-all-grouped-by-section))) (with-output-to-string (stream) + (format stream (gemini-parser:geminize-h1 (_ "My bookmark~2%"))) (loop for section in bookmarks-sections do (let ((header (car section)) (bookmarks (cdr section))) (when (string-empty-p header) (setf header (_ "Uncategorized"))) - (write-string (gemini-parser:geminize-h1 header) stream) + (write-string (gemini-parser:geminize-h2 header) stream) (write-char #\Newline stream) (write-char #\Newline stream) (loop for bookmark in bookmarks do