lassik
/
pandoc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add preliminary Image support

This commit is contained in:
Lassi Kortela 2024-11-08 22:55:44 +02:00
parent f345442407
commit 0a1fda4a08
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pandoc/pandoc.r5rs.scm
View File

@ -53,6 +53,14 @@
"h" (number->string (inexact->exact level)))))) "h" (number->string (inexact->exact level))))))
`(,h-tag ,@(convert-many (vector->list `(,h-tag ,@(convert-many (vector->list
(list-ref (contents-list) 2)))))) (list-ref (contents-list) 2))))))
((equal? type "Image")
`(img (@ (src
,(join-strings-into-one-string
(vector->list (vector-ref (contents) 2))))
#;
(alt
,(join-strings-into-one-string
(vector->list (vector-ref (contents) 1)))))))
((equal? type "Link") ((equal? type "Link")
`(a (@ (href ,(join-adjacent-strings `(a (@ (href ,(join-adjacent-strings
(vector->list (vector-ref (contents) 2))))) (vector->list (vector-ref (contents) 2)))))