;;; A "standard site" is a format for a certain style of web page.
;;; It is based on the LML2 package.
;;; A stdsite page expects to include the following files:
;;; A "standard site" is a format for a certain style of web page.
;;; It is based on the LML2 package.
;;; A stdsite page expects to include the following files:
(lml-load "contents.lml_"))
((:td :valign "top")
,@body
(std-footer ,file))))))))
(lml-load "contents.lml_"))
((:td :valign "top")
,@body
(std-footer ,file))))))))
- (xhtml-prologue)
- (html
- ((:html :xmlns "http://www.w3.org/1999/xhtml")
- (std-head ,title)
- (std-body ,file ,@body)))))
+ (dtd-prologue ,format)
+ (html
+ ((:html :xmlns "http://www.w3.org/1999/xhtml")
+ (std-head ,title)
+ (std-body ,file ,@body)))))
- (print-std-page (lml-file-name ,out-file :source) ,title ,@body))))
+ (print-std-page (lml-file-name ,out-file :source) ,title ,format ,@body))))