March 2007 - cl-who-devel@common-lisp.net

[cl-who-devel] should cl-who::*html-mode* be a compile time flag?
by Mac Chan 05 Apr '07

05 Apr '07

Hi, The following code (defparameter *checked* nil) (with-html-output (#:out nil :prologue nil :indent nil) (:input :type "checkbox" :checked *checked*)) will get expanded to => (let ((#:out #:out)) (progn nil (write-string "<input type=\"checkbox\"" #:out) (let ((#:g2546 *checked*)) (cond ((null #:g2546)) ((and (eq #:g2546 t) (eq cl-who::*html-mode* :xml)) (progn (write-string " checked=\"checked\"" #:out))) ((and (eq #:g2546 t) (eq cl-who::*html-mode* :sgml)) (progn (write-string " checked" #:out))) (t (progn (write-string " checked=\"" #:out) (princ #:g2546 #:out) (write-string "\"" #:out))))) (write-string " />" #:out))) My question is, should the macro generate code based on the value of *html-mode* at compile/load time instead of runtime? If there are a lot of attributes the generated code will be bloated and I can't imagine a situation where you want to apply the same cl-who syntax tree with different *html-mode* at runtime. If there's a rational behind this I'd like to learn about it. Thanks, -- Mac

2 4

[cl-who-devel] case sensitive tag
by Mac Chan 23 Mar '07

23 Mar '07

Hi, 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. Cheers, -- Mac

2 3

[cl-who-devel] indent textarea
by Inge Bylemans 15 Mar '07

15 Mar '07

Hi, When I put the :indent option to true in with-html-output-to-string, the textarea is filled with spaces, even when it is not empty, a new line start with spaces behind it. Is there a way to put :indent to true without side effect on my textarea? Thanks Inge

4 7

[cl-who-devel] HTML form refresh with Firefox
by Edi Weitz 12 Mar '07

12 Mar '07

Maybe someone on this list has an idea what the problem might be: http://groups.google.com/group/comp.lang.lisp/browse_frm/thread/6e38159beec… Cheers, Edi.

1 0

[cl-who-devel] script tag
by Giorgos Pontikakis 08 Mar '07

08 Mar '07

Hello, I think I found a bug in cl-who. The following sample code: (defun script-bug () (with-html-output-to-string (*standard-output* nil :indent t) (:html (:head (:script :src "/myscript.js" :type "text/javascript")) (:body (:p "Some text") (:script :type "text/javascript" "alert(5);"))))) gives: " <html> <head> <script src='/myscript.js' type='text/javascript' /> </head> <body> <p> Some text </p> <script type='text/javascript'> alert(5); </script> </body> </html>" The first script tag is not closed properly. It should be: <script src='/myscript.js' type='text/javascript'></script> If I get this right, this happens because there are no <script> contents. But the ending </script> must not be omitted even in this case. This seems to prevent correct parsing of the document. Cheers, Giorgos

3 3