X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=genpage.lisp;h=9e34467e5744f30facdeead1ee3ba05ad19091c8;hb=1fa7614ba895d7a1bccd310cf9d8e8e1e2472d14;hp=bc5d57df1725deaf019b8a3f383ae46ab275230c;hpb=de82da84115f8e2a6ad7add24cb73e7876c89a3b;p=wol.git diff --git a/genpage.lisp b/genpage.lisp index bc5d57d..9e34467 100644 --- a/genpage.lisp +++ b/genpage.lisp @@ -7,12 +7,12 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Jun 2003 ;;;; -;;;; $Id: genpage.lisp,v 1.1 2003/07/16 16:02:21 kevin Exp $ +;;;; $Id$ ;;;; ;;;; 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") @@ -105,11 +105,14 @@ (when title-str (html (:title (lml-write-string title-str))))))) +(defvar +std-entities+ " + +") (defun page-prologue (title format css altcss) (ecase format (:xml - (dtd-prologue format) + (dtd-prologue format :entities +std-entities+) (lml-format "~%" (aif css it "http://b9.com/umlsxml.css")) (lml-write-string "") @@ -124,7 +127,7 @@ (lml-write-string "")) ((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional :xhtml10-frameset) - (dtd-prologue format) + (dtd-prologue format :entities +std-entities+) (lml-write-string "") (ml-head title (aif css it "http://b9.com/main.css") altcss)