- cl-who-devel@common-lisp.net - mailman3.common-lisp.net

[cl-who-devel] convert-tag-to-string-list and *html-empty-tag* bug maybe :)
by Simon Cusack 28 May '07

28 May '07

Hi, >From my testing it seems that the default convert-tag-to-string-list isn't finding the tags in html-empty-tag when it should. It looks like tag is getting converted to a string but *html-empty-tags* are keywords. I changed (member tag *html-empty-tags*) to (member tag *html-empty-tags* :test #'string-equal) and made it happy. the following test (in-package :who) (with-html-output-to-string (blah) (with-html-output (blah) (:input :value "test this") (:div) (:div "test this"))) Used to produce: "<input value='test this'></input><div></div><div>test this</div>" and now produces; "<input value='test this' /><div></div><div>test this</div>"

3 4

[cl-who-devel] MACROLET inside HTM
by Volkan YAZICI 23 May '07

23 May '07

Hi, I've been trying to use MACROLET in HTM with no success: (with-html-output (*standard-output*) (:div (macrolet ((foo (bar) `(:div ,bar))) (htm (foo "baz") (foo "moo"))))) Here's the fully macroexpand result of the above form: (LET ((*STANDARD-OUTPUT* *STANDARD-OUTPUT*)) (PROGN (WRITE-STRING "<div>" *STANDARD-OUTPUT*) (MACROLET ((FOO (BAR) `(:DIV ,BAR))) (HTM (:DIV "baz") (:DIV "moo"))) (WRITE-STRING "</div>" *STANDARD-OUTPUT*))) I will be appreciated if anybody would help me to figure out how to use MACROLET inside HTM bodies. Regards.

2 1

[cl-who-devel] escaping attributes question
by Simon Cusack 22 May '07

22 May '07

Hi all, I have read the syntax and semantics chapter and was just wondering why values in the attribute position aren't escaped by default? Or is there something I am missing? - sim

3 5

[cl-who-devel] semantic for (str NIL) and (esc NIL)
by Mac Chan 08 May '07

08 May '07

Hi all, This happened to me a couple times where I have a form like this (with-html (:html (:body (str (get-error-messages))))) Now if there's no error, (get-error-messages) returns NIL, otherwise it returns a description of the problem. This function also serve as a predicate for other code. But (str (get-error-messages)) actually prints a "NIL" to the browser. Of course I could replace (str (get-error-messages)) with (let ((messages (get-error-messages)) (when messages (str messages)))) or (str (or (get-error-messages) "")) however it's getting rather verbose. But the real issue is that the string "NIL" really doesn't make sense in HTML, XML or JSON. It's only something that a Lisp programmer would understand. So I'm purposing to change the substitution of (str form) => (princ form1 s) to (str form) => (let ((#:result form1)) (when #:result (princ #:result s))) Attached is a diff for this change in case you guys agree that this makes sense. Thanks, -- Mac

4 3

[cl-who-devel] html empty tags
by Mac Chan 27 Apr '07

27 Apr '07

As you probably know, there are certain html tags that will break the browser's rendering if they are not paired up properly with a close tag </tag> even if it's content is empty. For example, <textarea> and <script> (ie) Well today I'm bitten by this, where <div id='header' /> messes up firefox's rendering coupled with some css rules. Even though I'm awared of how to get around it, sometimes it's rather hard to spot that with a sea of nested (:div (:div ...)). This is also a recurring problem for newbie and there were a few threads regarding this. Attach is a patch to fix this. [Special variable] *html-empty-tag-aware* Set to NIL to if you want to use cl-who as a strict XML generator. Otherwise, CL-WHO will only close empty tag defined in *html-empty-tags* with <tag/> (XHTML mode) or <tag> (SGML mode). For all other tags, it will always generate <tag></tag>. The default is T. [Special variable] *html-empty-tags* List of html tags that should close by itself. The default values are '(:base :basefont :br :frame :hr :img :input :isindex :link :meta :nextid :range :spacer :wbr :audioscope :area :param :keygen :col :limittext :spot :tab :over :right :left :choose :atop :of) I'm not sure if anyone is using cl-who to generate XML. If it is, then you need to set *html-empty-tag-aware* to NIL, because this patch will change the default behavior (to do the right thing). Regards, -- Mac

3 4

[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

[cl-who-devel] CL-WHO transformation rule not working?
by Nico de Jager 15 Nov '06

15 Nov '06

Hi It seems that the last transformation rule (and example) for attribute values described in CL-WHO's documentation is not working. I am using: LispWorks 5.0 for Linux (Debian Sarge) CL-WHO-0.6.2 HUNCHENTOOT-0.4.9 E.g. (defun logon-page-html () ;logon-action) (with-html-output (*standard-output*) (:html (:head (:title "test")) (:body "Some text" (:table :border "3" ; Going to change this! (:tr (:td "1-1") (:td "1-2"))))))) gives the following in 2 browsers: Some text 1-1 1-2 html: <html><head><title>test</title></head><body>Some text<table border='3'><tr><td>1-1</td><td>1-2</td></tr></table></body></html> While: (defun logon-page-html () ;logon-action) (with-html-output (*standard-output*) (:html (:head (:title "test")) (:body "Some text" (:table :border (+ 1 2) ;Substituted (+ 1 2) for "3". (:tr (:td "1-1") (:td "1-2"))))))) only gives the following in the same browsers: >1-11-2 html: ><tr><td>1-1</td><td>1-2</td></tr></table></body></html> The output of both cl-who:show-html-expansion and cl-who:with-html-output appear correct in the listener, though: CL-USER 11 > (cl-who:show-html-expansion (*standard-output*) (:html (:head (:title "test")) (:body "Some text" (:table :border (+ 1 2) (:tr (:td "1-1") (:td "1-2")))))) (LET ((*STANDARD-OUTPUT* *STANDARD-OUTPUT*)) (PROGN NIL (WRITE-STRING "<html><head><title>test</title></head><body>Some text<table" *STANDARD-OUTPUT*) (LET ((#:G4088 (+ 1 2))) (COND ((NULL #:G4088)) ((AND (EQ #:G4088 T) (EQ CL-WHO::*HTML-MODE* :XML)) (PROGN (WRITE-STRING " border='border'" *STANDARD-OUTPUT*))) ((AND (EQ #:G4088 T) (EQ CL-WHO::*HTML-MODE* :SGML)) (PROGN (WRITE-STRING " border" *STANDARD-OUTPUT*))) (T (PROGN (WRITE-STRING " border='" *STANDARD-OUTPUT*) (PRINC #:G4088 *STANDARD-OUTPUT*) (WRITE-STRING "'" *STANDARD-OUTPUT*))))) (WRITE-STRING "><tr><td>1-1</td><td>1-2</td></tr></table></body></html>" *STANDARD-OUTPUT*))) It seems that only the output of the last "write-string" is sent to the browser for the second example. Thanks. Nico

2 2

[cl-who-devel] New version 0.6.2
by Edi Weitz 10 Oct '06

10 Oct '06

ChangeLog: Version 0.6.2 2006-10-10 Reintroduced ESCAPE-STRING-ISO-8859-1 for backwards compatibility Download: http://weitz.de/files/cl-who.tar.gz Cheers, Edi.

1 0

[cl-who-devel] CL-WHO:STR behavior and package nicknames.
by Erik Enge 27 Jul '06

27 Jul '06

(cl-who 0.6.0, linux, sbcl 0.9.13) Hi! In the documentation I find the following example: (:table :border (+ 1 2)) => (write-string "<table border='" s) (princ (+ 1 2) s) (write-string "' />" s) However, in my implementation I see the following: CL-USER> (cl-who:with-html-output-to-string (*standard-output*) (:table :border (+ 1 2))) "<table border='(+ 1 2)' />" This makes sense because CONSTANTP returns T for that form in SBCL and NIL in CMUCL. In which case I think I'm supposed to use the STR operator: CL-USER> (cl-who:with-html-output-to-string (*standard-output*) (:table :border (cl-who:str (+ 1 2)))) "<table3 border='3' />" ESC does pretty much the same thing. So does FMT I guess except it doesn't print the border attribute since the format call returns nil, which I think makes sense. Is this the expected behavior? Is there another way of having (:table :border (+ 1 2)) do what I want (output <table border='3' />)? Separately, would you consider adding the nickname "who" (or whatever you like, just shorter than "cl-who") to the package? Thanks, Erik.

2 1

[cl-who-devel] Pre-filled forms
by Adam Thorsen 04 May '06

04 May '06

I'm using TBNL in a small web-app. A common need when developing webapps is to display a form with fields pre-populated from the database (i.e. email address, street address, etc.). I'm wondering if it's possible to do this with cl-who in some generic way? I thought perhaps I could customize cl-who using the convert-tag-to-string-list method. The function below overrides default handling of (:input) tags to look for a :tuple attribute with a value set to a hash containing the values from the database needed to pre-fill the form the input element is part of. This approach doesn't work, however, because convert-tag-to-string serializes the string at compile time, and the data needs to be retrieved from the database at run time. Any ideas? (defmethod convert-tag-to-string-list ((tag (eql :input)) attr-list body body-fn) ;;(declare (ignore attr-list)) (let ((name (cdr (assoc :name attr-list))) (type (cdr (assoc :type attr-list))) (tuple (eval (cdr (assoc :tuple attr-list))))) (nconc (cons (format nil "<input name='~a' type='~a' value='~a'>" name type (if tuple (gethash name tuple) "")) (funcall body-fn body)) (list "</input>")))) Thanks, -Adam Thorsen

2 1

[cl-who-devel] setting *attribute-quote-char*
by Austin Haas 20 Mar '06

20 Mar '06

Hi, Could someone please tell me the proper way to set *attribute-quote-char*? I'm a noob, but I've spent the past 4 hours trying every way I could think of, to no avail. If I recompile a handler function, then it will take, but I can't get it to be set when I load the system via asdf. It's likely some ignorance on my part regarding packages or macros, but I would really appreciate it if someone could show me an example of how they use it. Thanks. -austin

2 3

[cl-who-devel] Re: CL-WHO question
by Edi Weitz 01 Feb '06

01 Feb '06

Hi! [Please use the mailing list for questions about CL-WHO.] On Tue, 31 Jan 2006 16:39:30 -0000, "Rob Blackwell" <rob.blackwell(a)aws.net> wrote: > I've been experimenting with CL-WHO, but I'm struggling to understand the > following behaviour and I wondered whether you would be kind enough to offer > advice? > > I want to take a string, say "rob", and turn it into a link like "<a > href='rob.htm'>rob</a>". > > I've tried various things like > > (let ((person "rob")) > (with-html-output-to-string (*standard-output*) > (htm (:a :href (fmt "~a.htm" person) (str person))))) > > But that returns > > "<arob.htm>rob</a>" (let ((person "rob")) (with-html-output-to-string (*standard-output*) (htm (:a :href (format nil "~a.htm" person) (str person))))) (let* ((person "rob") (link (format nil "~a.htm" person))) (with-html-output-to-string (*standard-output*) (htm (:a :href link (str person))))) Attribute values aren't treated like the body of a tag. See <http://weitz.de/cl-who/#syntax> for details. Cheers, Edi.

1 0

[cl-who-devel] New version 0.6.0
by Edi Weitz 02 Aug '05

02 Aug '05

ChangeLog: Version 0.6.0 2005-08-02 Introduced *ATTRIBUTE-QUOTE-CHAR* and HTML-MODE and adapted code accordingly (patch by Stefan Scholl) Download: <http://weitz.de/files/cl-who.tar.gz> Cheers, Edi.

1 0

[cl-who-devel] New version 0.5.0
by Edi Weitz 02 Mar '05

02 Mar '05

Changelog: Version 0.5.0 2005-03-01 Enable customization via CONVERT-TAG-TO-STRING-LIST Download: <http://weitz.de/files/cl-who.tar.gz> Cheers, Edi.

1 0

[cl-who-devel] New version 0.4.4
by Edi Weitz 22 Jan '05

22 Jan '05

Changelog: Version 0.4.4 2005-01-22 Explicitely provide elementy type for +SPACES* to prevent problems with LW (thanks to Bob Hutchinson) Download: <http://weitz.de/files/cl-who.tar.gz> Cheers, Edi.

1 0

[cl-who-devel] New version 0.4.3
by Edi Weitz 13 Sep '04

13 Sep '04

Hi! A new release is available from <http://weitz.de/files/cl-who.tgz>. Here's the relevant part from the changelog: Version 0.4.3 2004-09-13 ESCAPE-STRING-ISO-8859 wasn't exported Have fun, Edi.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

cl-who-devel