cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-01 04:26:47 +01:00
Code Issues

- printed sorted topics when generating a gemlog.

Browse Source
This commit is contained in:
cage 2023-06-24 10:52:48 +02:00
parent 69ead2706f
commit 9233f5c6f9
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
data/scripts/generate-gemlog.lisp
View File

@ -178,7 +178,7 @@
(a:when-let ((topics (post-topics post)))
(loop for topic in topics do
(pushnew topic results :test #'string-equal)))))
results))
(sort results #'string<)))
(defun post-date (post)
(with-accessors ((meta meta)) post
@ -186,22 +186,22 @@
(defun sexp->gmi (parsed stream)
(loop for node in parsed do
(let ((line (cond
(let* ((child (first (children node)))
(line (cond
((tag= :h1 node)
(geminize-h1 (first (children node))))
(geminize-h1 child))
((tag= :h2 node)
(geminize-h2 (first (children node))))
(geminize-h2 child))
((tag= :h3 node)
(geminize-h3 (first (children node))))
(geminize-h3 child))
((tag= :li node)
(geminize-list (first (children node))))
(geminize-list child))
((tag= :quote node)
(geminize-quote (first (children node))))
(geminize-quote child))
((tag= :a node)
(geminize-link (strcat " "
(attribute-value (find-attribute :href node))
(geminize-link (strcat (attribute-value (find-attribute :href node))
" "
(first (children node)))))
child)))
((or (tag= :pre node)
(tag= :pre-end node))
"```")