[version 0.11.0
ediware**20070824170010] {
hunk ./CHANGELOG 1
+Version 0.11.0
+2007-08-24
+Replaces *DOWNCASE-TAGS-P* with *DOWNCASE-TOKENS-P* (thanks to Osei Poku)
+
hunk ./cl-who.asd 2
-;;; $Header: /usr/local/cvsrep/cl-who/cl-who.asd,v 1.17 2007/07/24 21:53:30 edi Exp $
+;;; $Header: /usr/local/cvsrep/cl-who/cl-who.asd,v 1.18 2007/08/24 08:01:37 edi Exp $
hunk ./cl-who.asd 31
-  :version "0.10.0"
+  :version "0.11.0"
hunk ./doc/index.html 98
-    <li><a href="#*downcase-tags-p*"><code>*downcase-tags-p*</code></a>
+    <li><a href="#*downcase-tokens-p*"><code>*downcase-tokens-p*</code></a>
hunk ./doc/index.html 259
-current version is 0.10.0.
+current version is 0.11.0.
hunk ./doc/index.html 311
-is transformed into an (X)HTML <b>tag</b> of the same (downcased) name by the following rules: 
+is transformed into an (X)HTML <b>tag</b> of the same (usually <href="#*downcase-tokens-p*">downcased</a>) name by the following rules: 
hunk ./doc/index.html 558
-<br><a class=none name="*downcase-tags-p*"><b>*downcase-tags-p*</b></a>
+<br><a class=none name="*downcase-tokens-p*"><b>*downcase-tokens-p*</b></a>
hunk ./doc/index.html 561
-If the value of this variable is <code>NIL</code>, keyword symbols representing a tag name will not be
+If the value of this variable is <code>NIL</code>, keyword symbols representing a tag or attribute name will not be
hunk ./doc/index.html 563
-output case sensitive XML tags.  The default is <code>T</code>.
+output case sensitive XML.  The default is <code>T</code>.
hunk ./doc/index.html 803
-$Header: /usr/local/cvsrep/cl-who/doc/index.html,v 1.57 2007/07/24 21:53:31 edi Exp $
+$Header: /usr/local/cvsrep/cl-who/doc/index.html,v 1.58 2007/08/24 08:01:40 edi Exp $
hunk ./packages.lisp 2
-;;; $Header: /usr/local/cvsrep/cl-who/packages.lisp,v 1.16 2007/07/24 21:53:30 edi Exp $
+;;; $Header: /usr/local/cvsrep/cl-who/packages.lisp,v 1.17 2007/08/24 08:01:37 edi Exp $
hunk ./packages.lisp 39
-           :*downcase-tags-p*
+           :*downcase-tokens-p*
hunk ./specials.lisp 2
-;;; $Header: /usr/local/cvsrep/cl-who/specials.lisp,v 1.1 2007/04/27 09:33:42 edi Exp $
+;;; $Header: /usr/local/cvsrep/cl-who/specials.lisp,v 1.2 2007/08/24 08:01:37 edi Exp $
hunk ./specials.lisp 56
-(defvar *downcase-tags-p* t
-  "If NIL, a keyword symbol representing a tag name will not be
-automatically converted to lowercase.  This is useful when one needs
-to output case sensitive XML tags.")
+(defvar *downcase-tokens-p* t
+  "If NIL, a keyword symbol representing a tag or attribute name will
+not be automatically converted to lowercase.  This is useful when one
+needs to output case sensitive XML.")
hunk ./who.lisp 2
-;;; $Header: /usr/local/cvsrep/cl-who/who.lisp,v 1.34 2007/07/24 21:53:30 edi Exp $
+;;; $Header: /usr/local/cvsrep/cl-who/who.lisp,v 1.35 2007/08/24 08:01:37 edi Exp $
hunk ./who.lisp 188
-        for (attr . val) in attr-list
+        for (orig-attr . val) in attr-list
+        for attr = (if *downcase-tokens-p*
+                     (string-downcase orig-attr)
+                     (string orig-attr))
hunk ./who.lisp 195
-              nconc (list " " (string-downcase attr))
+              nconc (list " " attr)
hunk ./who.lisp 199
-                          (string-downcase attr)
+                          attr
hunk ./who.lisp 209
-                                 (string-downcase attr))
+                                 attr)
hunk ./who.lisp 223
-                                         `(htm ,(format nil " ~A"
-                                                        (string-downcase attr))))
+                                         `(htm ,(format nil " ~A" attr)))
hunk ./who.lisp 227
-                                                        (string-downcase attr)
+                                                        attr
hunk ./who.lisp 229
-                                                        (string-downcase attr)
+                                                        attr
hunk ./who.lisp 232
-                                 (htm ,(format nil " ~A=~C" (string-downcase attr)
-                                               *attribute-quote-char*)
+                                 (htm ,(format nil " ~A=~C" attr *attribute-quote-char*)
hunk ./who.lisp 248
-  (let ((tag (if *downcase-tags-p* (string-downcase tag) (string tag))))
+  (let ((tag (if *downcase-tokens-p* (string-downcase tag) (string tag))))
}