- [script] added topics to the bottom of the generated posts.

2025-01-31 04:24:48 +01:00 · 2024-05-25 19:30:17 +02:00 · 2024-05-25 19:30:17 +02:00 · 36a796f76c
commit 36a796f76c
parent 2b40d78625
1 changed files with 2 additions and 0 deletions
--- a/data/scripts/generate-gemlog.lisp
+++ b/data/scripts/generate-gemlog.lisp
@ -327,6 +327,8 @@
                                    :if-does-not-exist :create
                                    :if-exists         :supersede)
              (sexp->gmi (content post) stream)
+              (write-sequence (geminize-preformatted (format nil "~{#~a~^ ~}" (post-topics post)))
+                              stream)
              (write-sequence (geminize-link (strcat " "
                                                     *post-home-backlink*
                                                     " "