aliens/tekuti
1
0
Fork 0
Code Activity

Fix format for comments

Browse source
This commit is contained in:
Andy Wingo 2022-10-20 22:42:57 +02:00
parent 4374fbf1dc
commit f424227fff
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tekuti/comment.scm
View file

@ -88,7 +88,7 @@
(a (@ (href ,(string-append "#" (assq-ref comment 'key))))
,(comment-readable-date comment)))
,(neutralize-links
(let ((format (or (assq-ref comment 'format) 'marxdown)))
(let ((format (or (assq-ref comment 'format) 'wordpress)))
((case format
((wordpress) wordpress->sxml)
((marxdown) marxdown->sxml)
@ -148,6 +148,7 @@
(author . ,(de-newline author))
(author_email . ,email)
(author_url . ,url)
(format . marxdown)
(raw-content . ,content))))
(define (make-new-comment key title comment)