diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-30 00:53:24 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-30 00:53:24 +0200 |
commit | bc0ee663a7fb3df71cf1547455d9eb93007b4459 (patch) | |
tree | c628b729b8b3c298fd812a3ca03d89c29c9d7262 /config.scm | |
parent | Create LICENSE (diff) | |
download | calp-bc0ee663a7fb3df71cf1547455d9eb93007b4459.tar.gz calp-bc0ee663a7fb3df71cf1547455d9eb93007b4459.tar.xz |
Fixed minor errors in HTML output.
Diffstat (limited to 'config.scm')
-rw-r--r-- | config.scm | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -36,7 +36,12 @@ (define (a link) `(a (@ (href ,link)) ,link)) (define (parse-html str) - (xml->sxml (string-append "<div>" str "</div>") + ;; extra space to ensure that we don't get a self closing + ;; div tag in the final output + ;; TODO Fix a real sxml->html | The space + ;; method instead of pretending | + ;; that HTML is XML. v + (xml->sxml (string-append "<div> " str "</div>") default-entity-handler: (lambda (port name) (case name |