aliens/tekuti
1
0
Fork 0
Code Activity

Fix some marxdown bugs

Browse source
This commit is contained in:
Andy Wingo 2022-10-20 22:57:13 +02:00
parent 9720ba7bcf
commit f920fb678b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tekuti/marxdown.scm
View file

@ -605,14 +605,14 @@
(('inline-xml xml) (handle-inline-xml xml))
(('code . body) exp)
(('emph . body) `(emph . ,(map transform-inline body)))
(('strong . body) `(string . ,(map transform-inline body)))
(('strong . body) `(strong . ,(map transform-inline body)))
(('link dest . body) `(a (@ (href ,dest)) . ,(map transform-inline body)))
((? string? str) str)))
(define (transform-block exp)
(match exp
(('block-xml xml) (handle-block-xml xml))
(('para . body) `(p . ,(map transform-inline body)))
(('blockquote . body) `(blockquote . (map transform-block body)))
(('blockquote . body) `(blockquote . ,(map transform-block body)))
(('list-item . body) (error "fixme"))
(('pre #f . body) `(pre . ,body))
(('pre info . body) `(pre (@ (class ,(string-append "pre-" info)))
@ -628,4 +628,4 @@
`(,tag . ,(map transform-inline body))))))
(match exp
(('top exp ...)
`(top . ,(map transform-block exp)))))
`(div . ,(map transform-block exp)))))