Fixed minor errors in HTML output.

1 files changed, 6 insertions, 1 deletions

diff --git a/config.scm b/config.scm
index c4ea29e8..9b56b471 100644
--- a/config.scm
+++ b/config.scm
@@ -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