diff options
| author | Arun Isaac | 2023-12-02 00:20:23 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-12-02 00:20:23 +0000 |
| commit | 0d874b45d0834aefc7edf02eb7c916ae6ab197b3 (patch) | |
| tree | 04088115c218ab50b10673bd9a9e770585bda2e1 | |
| parent | 6c6ac6922d4fb4dfec9fa58dcb9e9023db09a72c (diff) | |
| download | skribilo-0d874b45d0834aefc7edf02eb7c916ae6ab197b3.tar.gz skribilo-0d874b45d0834aefc7edf02eb7c916ae6ab197b3.tar.lz skribilo-0d874b45d0834aefc7edf02eb7c916ae6ab197b3.zip | |
html: Do not assume authors are strings.
* src/guile/skribilo/engine/html.scm (html-title-authors): Use output
to convert authors to strings.
| -rw-r--r-- | src/guile/skribilo/engine/html.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm index b00b93c..b57cba1 100644 --- a/src/guile/skribilo/engine/html.scm +++ b/src/guile/skribilo/engine/html.scm @@ -1048,7 +1048,11 @@ ignored, return #f." (html-open 'div `((style . ,(style-declaration '((text-align . "center")))))) - (display (string-join authors ", ")) + (display (string-join (map (lambda (author) + (with-output-to-string + (cut output author engine))) + authors) + ", ")) (html-close 'div)))) ;*---------------------------------------------------------------------*/ |