aliens/tekuti
1
0
Fork 0
Code Activity

Neutralize links in comments.

Browse source
This commit is contained in:
Andy Wingo 2017-03-03 17:13:36 +01:00
parent 01ca951b76
commit 42b77efe6a
1 changed files with 16 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
tekuti/comment.scm
View file

@ -65,6 +65,16 @@
(define (comment-raw-content comment)
(assq-ref comment 'raw-content))
(define (neutralize-links sxml)
(pre-post-order
sxml
`((a . ,(lambda sxml
(match sxml
(('a ('@ . attrs) . body)
`(a (@ (rel "external nofollow") . ,attrs) . ,body)))))
(*default* . ,(lambda sxml sxml))
(*text* . ,(lambda (tag text) text)))))
(define (comment-sxml-content comment)
`(li (@ (class "alt") (id ,(assq-ref comment 'key)))
(cite ,(let ((url (assq-ref comment 'author_url))
@ -76,11 +86,12 @@
(small (@ (class "commentmetadata"))
(a (@ (href ,(string-append "#" (assq-ref comment 'key))))
,(comment-readable-date comment)))
,(let ((format (or (assq-ref comment 'format) 'wordpress)))
((case format
((wordpress) wordpress->sxml)
(else (lambda (text) `(pre ,text))))
(comment-raw-content comment)))))
,(neutralize-links
(let ((format (or (assq-ref comment 'format) 'wordpress)))
((case format
((wordpress) wordpress->sxml)
(else (lambda (text) `(pre ,text))))
(comment-raw-content comment))))))
(define (comment-timestamp comment-alist)
(or (assq-ref comment-alist 'timestamp) #f))