diff -ru cl-who-0.11.1.old/doc/index.html cl-who-0.11.1/doc/index.html --- cl-who-0.11.1.old/doc/index.html 2010-08-14 00:24:46.000000000 +0300 +++ cl-who-0.11.1/doc/index.html 2010-08-15 18:11:10.000000000 +0300 @@ -436,7 +436,7 @@ CL-WHO exports the following symbols:


[Macro] -
with-html-output (var &optional stream &key prologue indent) declaration* form* => result* +
with-html-output (var &optional stream &key prologue indent downcase-tokens-p) declaration* form* => result*


This is the main macro of CL-WHO. It will transform its body by the transformation rules described @@ -454,18 +454,22 @@ is guaranteed to be the first thing sent to the stream from within the body of this macro. If prologue is T the prologue string is the value -of *PROLOGUE*. CL-WHO will -usually try not to insert any unnecessary whitespace in order to save -bandwidth. However, if indent is true -line breaks will be inserted and nested tags will be indented -properly. The value of indent - if it is an -integer - will be taken as the initial indentation. If it is not an -integer it is assumed to mean 0. (But note that -indentation might change the semantics of the generated HTML. This is -for example the case for the PRE -and TEXTAREA tags, and in certain situations additional -whitespace might also change the layout of tables.) -The results are the values returned by +of *PROLOGUE*. downcase-tokens-p +is a boolean whose default value is equal to +*DOWNCASE-TOKENS-P*. +If dowcase-tokens-p is equal to NIL, +then keyword symbols representing a tag or attributes will be +case-sensitive. CL-WHO will usually try not to insert any unnecessary +whitespace in order to save bandwidth. However, +if indent is true line breaks will be +inserted and nested tags will be indented properly. The value +of indent - if it is an integer - will be taken as +the initial indentation. If it is not an integer it is assumed to +mean 0. (But note that indentation might change the +semantics of the generated HTML. This is for example the case for +the PRE and TEXTAREA tags, and in certain +situations additional whitespace might also change the layout of +tables.) The results are the values returned by the forms.

Note that the keyword arguments prologue and indent are used at macro expansion time. @@ -494,7 +498,7 @@


[Macro] -
with-html-output-to-string (var &optional string-form &key element-type prologue indent) declaration* form* => result* +
with-html-output-to-string (var &optional string-form &key element-type prologue indent dowcase-tokens-p) declaration* form* => result*


This is just a thin wrapper around WITH-HTML-OUTPUT. Indeed, the wrapper is so thin that the best explanation probably is to show its definition: @@ -502,19 +506,23 @@ (defmacro with-html-output-to-string ((var &optional string-form &key (element-type 'character) prologue - indent) + indent + (downcase-tokens-p *dowcase-tokens-p*) &body body) "Transform the enclosed BODY consisting of HTML as s-expressions into Lisp code which creates the corresponding HTML as a string." `(with-output-to-string (,var ,string-form :elementy-type ,element-type) - (with-html-output (,var nil :prologue ,prologue :indent ,indent) + (with-html-output (,var nil + :prologue ,prologue + :indent ,indent + :dowcase-tokens-p ,dowcase-tokens-p) ,@body))) Note that the results of this macro are determined by the behaviour of WITH-OUTPUT-TO-STRING.


[Macro] -
show-html-expansion (var &optional stream &key prologue indent) declaration* form* => <no values> +
show-html-expansion (var &optional stream &key prologue indent downcase-tokens-p) declaration* form* => <no values>


This macro is intended for debugging purposes. It'll print to *STANDARD-OUTPUT* the code which would have been generated by WITH-HTML-OUTPUT had it been invoked with the same arguments. diff -ru cl-who-0.11.1.old/who.lisp cl-who-0.11.1/who.lisp --- cl-who-0.11.1.old/who.lisp 2010-08-14 00:24:46.000000000 +0300 +++ cl-who-0.11.1/who.lisp 2010-08-14 00:36:04.000000000 +0300 @@ -439,7 +439,8 @@ (defmacro with-html-output ((var &optional stream &key prologue - ((:indent *indent*) *indent*)) + ((:indent *indent*) *indent*) + (downcase-tokens-p *downcase-tokens-p*)) &body body) "Transform the enclosed BODY consisting of HTML as s-expressions into Lisp code to write the corresponding HTML as strings to VAR - @@ -451,24 +452,30 @@ (when (eq prologue t) (setq prologue *prologue*)) `(let ((,var ,(or stream var))) - ,(tree-to-commands body var prologue))) + ,(let ((*downcase-tokens-p* downcase-tokens-p)) + (tree-to-commands body var prologue)))) (defmacro with-html-output-to-string ((var &optional string-form &key (element-type ''character) prologue - indent) + indent + (downcase-tokens-p *downcase-tokens-p*)) &body body) "Transform the enclosed BODY consisting of HTML as s-expressions into Lisp code which creates the corresponding HTML as a string." `(with-output-to-string (,var ,string-form #-(or :ecl :cmu :sbcl) :element-type #-(or :ecl :cmu :sbcl) ,element-type) - (with-html-output (,var nil :prologue ,prologue :indent ,indent) + (with-html-output (,var nil + :prologue ,prologue + :indent ,indent + :downcase-tokens-p ,downcase-tokens-p) ,@body))) (defmacro show-html-expansion ((var &optional stream &key prologue - ((:indent *indent*) *indent*)) + ((:indent *indent*) *indent*) + (downcase-tokens-p *downcase-tokens-p*)) &body body) "Show the macro expansion of WITH-HTML-OUTPUT." (when (and *indent* @@ -477,7 +484,8 @@ (when (eq prologue t) (setq prologue *prologue*)) `(pprint '(let ((,var ,(or stream var))) - ,(tree-to-commands body var prologue)))) + ,(let ((*downcase-tokens-p* downcase-tokens-p)) + (tree-to-commands body var prologue))))) ;; stuff for Nikodemus Siivola's HYPERDOC ;; see