iens

commit 5ad0a6b8d047e1ee6763bee05262df69f8570da7
parent 93a8eb6fe9146c896aea1529b4fa27d1313d1fc0
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Tue, 14 Jul 2026 15:22:58 +0000

Detailed gruik card uses shared fragment generator
Diffstat:
M
src/cgi.scm
 | 
10
+---------

1 file changed, 1 insertion(+), 9 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -636,15 +636,7 @@ END-OF-CSS
                               ((3)  "protected-post")
                               (else "bad-post"))
                    "detailed-post"))
-    (p
-      (span (@ (class "ptime") (title ,id)) ,ptime)
-      ,(if (null? comm-url)
-           `(span (@ (class "section")) ,section)
-           `(a (@ (href ,comm-url) (class "section")) ,section))
-      ,@(if (or (null? tags) (string=? tags "")) '()
-           `((span (@ (class "taglist")) ,tags)))
-      (span (@ (class "title")) ,(if (null? title) "" title))
-      (a (@ (href ,url)) ,url))
+    ,(post-p-fragment id ptime section title url comm-url tags)
     (pre (code ,description))))
 
 (define (post-htmx id)