;;;; This file, part of wol, is Copyright (c) 2003 by Kevin M. Rosenberg
;;;; *************************************************************************
-(in-package #:wol)
+(in-package wol)
(defvar *header-table* (make-hash-table :size 100 :test 'eq)
"Table of header functions indexed by site")
(when title-str
(html (:title (lml-write-string title-str)))))))
+(defvar +std-entities+ "<!ENTITY nbsp \" \">
+<!ENTITY reg \"®\">
+<!ENTITY copy \"©\">")
(defun page-prologue (title format css altcss)
(ecase format
(:xml
- (dtd-prologue format)
+ (dtd-prologue format :entities +std-entities+)
(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\">")
(lml-write-string "<body>"))
((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional
:xhtml10-frameset)
- (dtd-prologue format)
+ (dtd-prologue format :entities +std-entities+)
(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)
(net.aserve:with-http-response
((aserve-request ,req)
(entity-aserve-entity ,ent)
- :content-type (ml::format-string ,format)
+ :content-type (ml::format-string ,format ,headers)
:timeout ,timeout
:response
(case ,response-code
,result ,outstr ,stream)
(declare (ignorable ,stream))
(write-header-line "Status" ,response-string)
- (write-header-line "Content-Type" (ml::format-string ,fmt))
+ (write-header-line "Content-Type" (ml::format-string ,fmt ,headers))
(dolist (,hdr ,headers)
(write-header-line (car ,hdr) (cdr ,hdr)))
(unless ,precomp
projects / wol.git / commitdiff