On Mon, 19 Mar 2007 17:00:35 -0700, "Mac Chan" emailmac@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.
Thanks, I've now released a new version which incorporates your patch.