[cl-who-devel] case sensitive tag

[Edi Weitz]

On Mon, 19 Mar 2007 17:00:35 -0700, "Mac Chan" <emailmac at gmail.com> wrote:

> Another handy use of cl-who is to generate xml testing data, like
> so:
>
> (with-html
>    (loop repeat 500 do
>          (htm
>           (:|Item|
>             (:|ASIN| (str (format nil "~D" (random 9999999999))))
>             (:|DetailPageURL| "http://www.amazon.com/")
>             (:|ItemAttributes|
>               (:|Author| (str (conc (random-word) " " (random-word))))
>               (:|Manufacturer| (str (random-word)))
>               (:|ProductGroup| (str (random-word)))
>               (:|Title| (str (conc (random-word) " " (random-word)" "
> (random-word)))))))))
>
> Attached is a simple patch to introduce a special var
> cl-who:*downcase-tag* to control whether cl-who should downcase
> tagname by default.
>
> Originally I thought just using the (eql *html-mode* :xml) test
> should be sufficient. But I see that a lot of people actually only
> use lowercase xml tags for internal projects and requiring them to
> quote a symbol with :|| is kind of inconvenient.

Thanks.  I can't apply the patch, though.  Can you send the output of
"diff -u" please?

Thanks,
Edi.