Index: who.lisp =================================================================== --- who.lisp (revision 4611) +++ who.lisp (working copy) @@ -30,13 +30,13 @@ (in-package :cl-who) (defun html-mode () - "Returns the current HTML mode. :SGML for \(SGML-)HTML and -:XML for XHTML." + "Returns the current HTML mode. :SGML for \(SGML-)HTML, :XML for +XHTML and :HTML5 for HTML5 (HTML syntax)." *html-mode*) (defun (setf html-mode) (mode) "Sets the output mode to XHTML or \(SGML-)HTML. MODE can be -:SGML for HTML or :XML for XHTML." +:SGML for HTML, :XML for XHTML or :HTML5 for HTML5 (HTML syntax)." (ecase mode ((:sgml) (setf *html-mode* :sgml @@ -45,7 +45,11 @@ ((:xml) (setf *html-mode* :xml *empty-tag-end* " />" - *prologue* "")))) + *prologue* "")) + ((:html5) + (setf *html-mode* :html5 + *empty-tag-end* ">" + *prologue* "")))) (defun process-tag (sexp body-fn) (declare (optimize speed space)) Index: doc/index.html =================================================================== --- doc/index.html (revision 4611) +++ doc/index.html (working copy) @@ -61,7 +61,7 @@ code inserted by the user of the macro. CL-WHO will make sure that there aren't two adjacent WRITE-STRING forms with constant strings. CL-WHO's output is -either XHTML (default) or 'plain' (SGML) HTML — depending on +either XHTML (default), 'plain' (SGML) HTML or HTML5 (using HTML syntax) — depending on what you've set HTML-MODE to.

CL-WHO is intended to be portable and should work with all @@ -541,7 +541,7 @@


Set this to NIL to if you want to use CL-WHO as a strict XML generator. Otherwise, CL-WHO will only write empty tags listed in -*HTML-EMPTY-TAGS* as <tag/> (XHTML mode) or <tag> (SGML mode). For +*HTML-EMPTY-TAGS* as <tag/> (XHTML mode) or <tag> (SGML mode or HTML mode). For all other tags, it will always generate <tag></tag>. The initial value of this variable is T.
@@ -553,9 +553,9 @@ *HTML-EMPTY-TAG-AWARE-P*. The initial value is the list 
-(:area :atop :audioscope :base :basefont :br :choose :col :frame
- :hr :img :input :isindex :keygen :left :limittext :link :meta
- :nextid :of :over :param :range :right :spacer :spot :tab :wbr)
+(:area :atop :audioscope :base :basefont :br :choose :col :command :embed
+ :frame :hr :img :input :isindex :keygen :left :limittext :link :meta :nextid
+ :of :over :param :range :right :source :spacer :spot :tab :track :wbr)
@@ -585,11 +585,14 @@
html-mode => mode
(setf (html-mode) mode)

-The function HTML-MODE returns the current mode for generating HTML. The default is :XML for XHTML. You can change this by setting it with (SETF (HTML-MODE) :SGML) to pre-XML HTML mode. +The function HTML-MODE returns the current mode for generating HTML. The default is :XML for XHTML. You can change this by setting it with (SETF (HTML-MODE) :SGML) to pre-XML HTML mode or (SETF (HTML-MODE) :HTML5) to HTML5 mode (using HTML syntax).

Setting it to SGML HTML sets the *prologue* to the doctype string for HTML 4.01 transitional: 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
Code generation in SGML HTML is slightly different from XHTML - there's no need to end empty elements with /> and empty attributes are allowed. +

+Setting it to HTML5 sets the *prologue* to the following doctype string: +

<!DOCTYPE html>


[Function] Index: specials.lisp =================================================================== --- specials.lisp (revision 4611) +++ specials.lisp (working copy) @@ -51,7 +51,7 @@ indentation dynamically.") (defvar *html-mode* :xml - ":SGML for \(SGML-)HTML, :XML \(default) for XHTML.") + ":SGML for \(SGML-)HTML, :XML \(default) for XHTML, :HTML5 for HTML5.") (defvar *downcase-tokens-p* t "If NIL, a keyword symbol representing a tag or attribute name will @@ -73,6 +73,8 @@ :br :choose :col + :command + :embed :frame :hr :img @@ -89,9 +91,11 @@ :param :range :right + :source :spacer :spot :tab + :track :wbr) "The list of HTML tags that should be output as empty tags. See *HTML-EMPTY-TAG-AWARE-P*.") @@ -100,7 +104,7 @@ "Set this to NIL to if you want to use CL-WHO as a strict XML generator. Otherwise, CL-WHO will only write empty tags listed in *HTML-EMPTY-TAGS* as \(XHTML mode) or \(SGML -mode). For all other tags, it will always generate +mode and HTML5 mode). For all other tags, it will always generate .") (defconstant +newline+ (make-string 1 :initial-element #\Newline)