Fix verbatim processing fully

No more special-casing on the surface of the code; that is, the filter expects a list of strings and outputs a single string, etc.

1 files changed, 5 insertions, 4 deletions

@@ -84,7 +84,7 @@
     (printf (get-format 'verb 'stanza)
             ((get-filter 'verb 'stanza) t)))
   (let ((el (car stanza))
-        (text (string-join (apply append (cdr stanza)) "\n")))
+        (text (apply append (cdr stanza))))
     (with-output-to-string
       (lambda ()
         (cond
@@ -98,12 +98,13 @@
                     (process command (cdr cmdline)
                              (cons `("JIMMY_OUTPUT" . ,(->string (output-type)))
                                    (get-environment-variables)))
-                  (display (ensure-newline text) out)
+                  (display ((o ensure-newline (cut string-join <> "\n")) text)
+                           out)
                   (close-output-port out)
                   (display (read-string #f in))
                   (newline))
-                (emit-verbatim t))))
-         (else (emit-verbatim t)))))))
+                (emit-verbatim text))))
+         (else (emit-verbatim text)))))))
 
 ;;; Utilities