aliens/tekuti
1
0
Fork 0
Code Activity

Parse formats to symbol

Browse source
This commit is contained in:
Andy Wingo 2022-10-20 23:03:16 +02:00
parent f920fb678b
commit eebd1b219a
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tekuti/comment.scm
View file

@ -41,7 +41,8 @@
compute-legit-comments compute-bogus-comments))
(define *comment-spec*
`((timestamp . ,string->number)))
`((timestamp . ,string->number)
(format . ,string->symbol)))
(define (blob->comment encoded-name sha1)
(let ((blob (git "show" sha1)))

1
tekuti/post.scm
View file

@ -59,6 +59,7 @@
`((timestamp . ,string->number)
(tags . ,(lambda (v) (string-split/trimming v #\,)))
(title . ,identity)
(format . ,string->symbol)
(comments-closed-timestamp . ,(lambda (str)
(if (string-null? str)
#f