aliens/tekuti
1
0
Fork 0
Code Activity

Allow tt in comments, class in pre

Browse source
This commit is contained in:
Andy Wingo 2022-11-29 10:19:11 +01:00
parent 17905ace44
commit f290d7c2c7
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tekuti/filters.scm
View file

@ -94,6 +94,9 @@
(define (marxdown->sxml text) (define (marxdown->sxml text)
(smarxdown->shtml (call-with-input-string text marxdown->smarxdown))) (smarxdown->shtml (call-with-input-string text marxdown->smarxdown)))
(define (pre-class? class)
(string-prefix? "pre-" class))
(define *allowed-tags* (define *allowed-tags*
`((a (href . ,urlish?) title) `((a (href . ,urlish?) title)
(abbr title) (abbr title)
@ -105,9 +108,10 @@
(em) (em)
(i) (i)
(p) (p)
(pre) (pre (class . ,pre-class?))
(strike) (strike)
(strong))) (strong)
(tt)))
(define (compile-sxslt-rules tags) (define (compile-sxslt-rules tags)
(define (ok . body) (define (ok . body)