diff options
| author | Arun Isaac | 2023-12-02 00:17:53 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-12-02 00:20:19 +0000 |
| commit | 6c6ac6922d4fb4dfec9fa58dcb9e9023db09a72c (patch) | |
| tree | 4910e42d599fa67ba52c22fc7f402c36c092f647 | |
| parent | 8fdca7f2bc1b24e9cb2cc71d0381ccd131b4bf9f (diff) | |
| download | skribilo-6c6ac6922d4fb4dfec9fa58dcb9e9023db09a72c.tar.gz skribilo-6c6ac6922d4fb4dfec9fa58dcb9e9023db09a72c.tar.lz skribilo-6c6ac6922d4fb4dfec9fa58dcb9e9023db09a72c.zip | |
html: Output address only when it is a list.
* src/guile/skribilo/engine/html.scm (author): Output address only
when it is a list.
| -rw-r--r-- | src/guile/skribilo/engine/html.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm index 96b5565..b00b93c 100644 --- a/src/guile/skribilo/engine/html.scm +++ b/src/guile/skribilo/engine/html.scm @@ -1083,8 +1083,10 @@ ignored, return #f." (when title (row title)) ;; affiliation (when affiliation (row affiliation)) - ;; address - (when address (for-each row address)) + ;; Output address only if it is a list. address could + ;; be a markup object. + (when (list? address) + (for-each row address)) ;; telephone (when phone (row phone)) ;; email |