From a00a385ae330d750b0878361523101ab964db42b Mon Sep 17 00:00:00 2001
From: "Jakob L. Kreuze" <jakob.kreuze@us.af.mil>
Date: Fri, 11 Nov 2022 20:55:22 -0500
Subject: [dynamic] Add commonmark parsing for comments

---
 haunt/jakob/utils/comments.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/haunt/jakob/utils/comments.scm b/haunt/jakob/utils/comments.scm
index 65befca..7cb4768 100644
--- a/haunt/jakob/utils/comments.scm
+++ b/haunt/jakob/utils/comments.scm
@@ -15,6 +15,7 @@
 ;;; <http://www.gnu.org/licenses/>.
 
 (define-module (jakob utils comments)
+  #:use-module (commonmark)
   ;; #:use-module (dynamic capabilities comments)
   #:use-module (dynamic util)
   #:use-module (gcrypt base16)
@@ -79,7 +80,8 @@
                          "(" ,(strip author-url) ")"))
                     `()))
          (div (@ (class "e-content p-name comment-content"))
-              ,content-text)
+              ,@(chain content-text
+                       (safe-markdown->sxml _)))
          (div (@ (class "metaline"))
               (a (@ (class "u-url")
                     (href ,author-url))
@@ -91,7 +93,7 @@
          (ul (@ (class "comment-reactions"))
              ,@(map (match-lambda
                       ((emote . count)
-                       `(li ,(format "~a (~a)" emote count))))
+                       `(li ,(format #f "~a (~a)" emote count))))
                     content-reactions)))))
 
 (define (render-comment-view response)
-- 
cgit v1.3