cl-who-devel

cl-who-devel@common-lisp.net

102 discussions

[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

[cl-who-devel] Darcs repositories
by Edi Weitz 22 Feb '07

22 Feb '07

[My apologies if you get this more than once.] Several people have asked for Darcs repositories of my software. These do exists now: http://common-lisp.net/~loliveira/ediware/ Special thanks to Luís Oliveira who made this possible and who maintains the repositories. Cheers, Edi.

1 0

[cl-who-devel] Re: [hunchentoot-devel] Printing the output
by Edi Weitz 08 Feb '07

08 Feb '07

On Thu, 8 Feb 2007 10:40:38 -0500, "Andrei Stebakov" <lispercat(a)gmail.com> wrote: [This should really go to cl-who-devel, see Cc.] > I am a bit confused about using macros like with-html. Let's say if > I want to produce an html with my post parameter value in it. Just > saying (:p (post-parameter "foo")) won't put the value in the <p> > tag. See STR or ESC: http://weitz.de/cl-who/#syntax > On the other hand saying (:p (format t "~a" (post-parameter "foo"))) > or (:p (esc (post-parameter "foo"))) will produce the expected > result. Same goes with > (:p > (esc (with-output-to-string (s) > (format s "~a" (post-parameter "foo"))))) The first form works only by accident, the second form is OK, the third one is a bit overdone. > My question is what's common about the latter examples that makes a > printing possible? Does it mean that all printing within with-html > should happen to *standard-output* and the esc function redirects it > to it? Look at the first parameter of WITH-HTML-OUTPUT[-TO-STRING]. > What package should I look at to have a better understanding of it? Package? What do packages have to do with your question? http://www.lispworks.com/documentation/HyperSpec/Body/11_.htm Have you read the documentation? http://weitz.de/cl-who/ Cheers, Edi.

1 0

[cl-who-devel] Question about *escape-char-p*
by Paul Thirumalai 22 Jan '07

22 Jan '07

HI, Hope this is not too dumb a question. I am trying to run the hunchentoot-test example with the hunchentoot system. Each time I try to run the easy demo, get demo or post demo I get the error "Error in KERNEL:%COERCE-TO-FUNCTION: the function CL-WHO:*ESCAPE-CHAR-P* is undefined." Could you explain why this occurs. It also happens to me when I try use the escape-string method in code. FYI: I changed the *attribute-quote-char* in who.lis from #\' to #\" Thanks Paul

2 3

[cl-who-devel] Factoring out subtrees
by Daniel Gackle 22 Dec '06

22 Dec '06

Hi, I have a really elementary question. I'm generating html that has stuff duplicated in it, like the link tag in this example: (defun page1 () (with-html-output-to-string (*standard-output*) (:html (:head (:link :rel "stylesheet" :type "text/css" :href "style.css")) (:body "hi")))) (defun page2 () (with-html-output-to-string (*standard-output*) (:html (:head (:link :rel "stylesheet" :type "text/css" :href "style.css")) (:body "there")))) How do I eliminate it? Is there a way to do the following? (defun page1 () (with-html-output-to-string (*standard-output*) (:html (:head (css-me-up "style.css")) (:body "hi")))) More generally, I'd like to build html trees and transform them in various ways before passing them to the generator. It feels like there must be an obvious answer here, but I'm missing it... so I'm asking y'all instead. Thanks, Dan

2 4

[cl-who-devel] Newbie confusion
by Vamsee Kanakala 18 Nov '06

18 Nov '06

Hi, I suspect this has got to do with not properly understanding what gensym does, but I think this should work, but I'm only getting empty <li> elements from the list-items function. Where am I going wrong? (defun list-items () (let ((=value= (gensym))) (loop for =value= to 15 collecting `((:li (write-to-string ,=value=)))))) (defmacro show-errors () `(with-html-output (*standard-output*) (:div :id "errorExplanation" (:ul ,@(list-items))))) Thanks, Vamsee.

1 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

cl-who-devel