Join strings into one string

pandoc/pandoc.r5rs.scm

@@ -10,6 +10,13 @@
                   (cons (car list) new-list))
               (cdr list)))))
 
+(define (join-strings-into-one-string list)
+  (let loop ((result "") (tail list))
+    (cond ((null? tail) result)
+          ((string? (car tail)) (loop (string-append result (car tail))
+                                      (cdr tail)))
+          (else (error "Expected all strings" list)))))
+
 (define (vector-refs vec . indexes)
   (let loop ((obj vec) (indexes indexes))
     (if (null? indexes) obj
@@ -40,7 +47,7 @@
             ((equal? type "Code")
              `(code ,@(convert-many (cdr (contents-list)))))
             ((equal? type "CodeBlock")
-             `(pre (@ (data-syntax ,@(join-adjacent-strings
+             `(pre (@ (data-syntax ,(join-strings-into-one-string
                                      (vector->list
                                       (vector-refs (contents) 0 1)))))
                    ,@(convert-many (cdr (contents-list)))))
@@ -53,8 +60,16 @@
                              "h" (number->string (inexact->exact level))))))
                `(,h-tag ,@(convert-many (vector->list
                                          (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")
-             `(a (@ (href ,(join-adjacent-strings
+             `(a (@ (href ,(join-strings-into-one-string
                             (vector->list (vector-ref (contents) 2)))))
                  ,@(convert-many (vector->list (vector-ref (contents) 1)))))
             ((equal? type "Plain")