cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-03-12 11:20:05 +01:00
Code Issues

- added a title to bookmark page.

Browse Source
This commit is contained in:
cage 2021-08-16 14:30:59 +02:00
parent 377d95af51
commit 804ce88de8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ui-goodies.lisp
View File

@ -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