r8226: update to new dtd writing functions

[wol.git] / genpage.lisp
diff --git a/genpage.lisp b/genpage.lisp

index 9e34467e5744f30facdeead1ee3ba05ad19091c8..4b1dbf44861f24ee43ce04e9593a6e39bb229b92 100644 (file)
--- a/genpage.lisp
+++ b/genpage.lisp
@@ -105,14 +105,10 @@
      (when title-str
        (html (:title (lml-write-string title-str)))))))
  
-(defvar +std-entities+ "<!ENTITY nbsp \"&#160;\">
-<!ENTITY reg \"&#174;\">
-<!ENTITY copy \"&#169;\">")
-
  (defun page-prologue (title format css altcss)
    (ecase format
      (:xml
-     (dtd-prologue format :entities +std-entities+)
+     (dtd-prologue format)
       (lml-format "<?xml-stylesheet type=\"text/css\" href=\"~A\" ?>~%"
                  (aif css it "http://b9.com/umlsxml.css"))
       (lml-write-string "<pagedata xmlns:xlink=\"http://www.w3.org/1999/xlink\" xmlns:html=\"http://www.w3.org/TR/REC-html40\">")
@@ -127,7 +123,7 @@
       (lml-write-string "<body>"))
      ((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional
        :xhtml10-frameset)
-     (dtd-prologue format :entities +std-entities+)
+     (dtd-prologue format)
       (lml-write-string
        "<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\">")
       (ml-head title (aif css it "http://b9.com/main.css") altcss)