aliens/tekuti
1
0
Fork 0
Code Activity

New posts are marxdown

Browse source
This commit is contained in:
Andy Wingo 2022-10-20 22:54:07 +02:00
parent ddb029d674
commit 9720ba7bcf
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/post.scm
View file

@ -168,7 +168,7 @@
((assq-ref parsed k)
=> (lambda (v) (format #t "~a: ~a\n" k v)))))
'(timestamp tags status title name comment_status
comments-closed-timestamp))))
comments-closed-timestamp format))))
(content (with-output-to-blob (display (assq-ref parsed 'body))))
(key (assq-ref parsed 'key))
(message (format #f "~a: \"~a\""
@ -230,6 +230,7 @@
(comments-closed-timestamp . ,comments-closed-timestamp)
(timestamp . ,timestamp)
(name . ,name)
(format . marxdown)
(key . ,(string-downcase
(uri-encode
(string-append (date->string (timestamp->date timestamp)