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

[cl-who-devel] ESC inside FMT doesn't get expanded
by Leslie P. Polzer 02 May '08

02 May '08

Is this some kind of CL limitation? Leslie

3 9

[cl-who-devel] select tag and selected
by Rommel Martinez 24 Apr '08

24 Apr '08

How do I achieve something like the following in CL-WHO? <select> <option>foo</option> <option selected>bar</option> </select> -- Rommel M. Martinez <ebzzry(a)gmail.com>

2 4

[cl-who-devel] Macroexpansion of with-html-output body?
by Eli Naeher 02 Mar '08

02 Mar '08

Hello, It seems like it would be nice to expand any macros detected while walking the tree of the w-h-o body. This would allow users to define their own pseudo-tags a little more flexibly than is possible with convert-tag-to-string-list. In particular, it would allow the user to create a tag which modifies its body (as a tree) even when that body contains the expansion of another user-defined tag. I don't believe this is currently possible, as this hypothetical outer tag would have access only to the HTML strings returned by the convert-tag-to-string-list specialized on the inner tag and not to the relevant s-expressions. Is there any interest in a patch implementing this behavior? Thanks, --Eli

7 17

[cl-who-devel] Parsing html again
by Andrei Stebakov 27 Feb '08

27 Feb '08

When we generate the JavaScript <script> with cl-who we need to put the empty string at the end of the command to have the closing </script> tag like so: (with-html-output-to-string (*standard-output* nil :prologue nil :indent nil) (:html (:head (:title "Temporary page") (:script :language "JavaScript" :src "/test/scripts.js" :type "text/javascript" "")))) It will generate: <html><head><title>Temporary page</title><script language='JavaScript' src='/test/scripts.js' type='text/javascript'></script></head></html> Now if we parse the html with html-parse:parse-html command and convert it back to the string with tree-to-string (here is the thread<http://common-lisp.net/pipermail/cl-who-devel/2007-November/000109.html>about this command) we'll get the broken <script> tag without the closing </script> It's because html-parse:parse-html will produce ((:HTML (:HEAD (:TITLE "Temporary page") ((:SCRIPT :LANGUAGE "JavaScript" :SRC "/test/scripts.js" :TYPE "text/javascript"))))) Note, that there is no "" at the end of (:script) anymore. My question is where this problem should be fixed at html-parse:parse-html level so that parse-html would insert the "" when it finds the <script> tag, or there is a clean way to do it in cl-who?

2 1

[cl-who-devel] Unexpected behavior of pre directive with indented output
by Jeff Cunningham 29 Dec '07

29 Dec '07

Hi, I ran into some unexpected behavior this morning when using the pre directive. Here is an example: (with-html-output (*standard-output* nil :prologue nil :indent t) (:body (:pre "This block of text should all be justified to the left edge of the window when rendered by a browser, even if the HTML itself is indented, no?"))) What is generated is the following: <body> <pre> This block of text should all be justified to the left edge of the window when rendered by a browser, even if the HTML itself is indented, no? </pre> </body> Which will "indent" the first line unexpectedly, as well as pre-pending an unexpected line break. I realize that I can turn off indenting in my output, but this seems inelegant. It seems like the pre directive needs to be handled as a special case. --Jeff

2 5

[cl-who-devel] Parsing html and creating a new output
by Andrei Stebakov 25 Nov '07

25 Nov '07

I am using drakma to get the html and cl-html-parse to parse it. Let's say I need to parse and modify the html and use hunchentoot to handle the request giving out the new html. In cl-who I see only the macro with-html-output-to-string which prints html given a body of s-exp. In my case I will only have a list of s-exp like '(:div "some text"). If I give a list to with-html-output-to-string it will return an empty string. I am wondering is there a function inside cl-who that I can use to convert s-exp html list like '(:body "some body") to an HTML text? Or how can I use the with-html-output-to-string macro for the purpose? Thank you, Andrew

3 7

[cl-who-devel] Case-sensitive XML
by Ken Harris 12 Nov '07

12 Nov '07

Hi! I'm having trouble outputting case-sensitive XML using cl-who. The *downcase-tokens-p* variable claims to be the answer, but it only controls whether the output is all-upper-case or all-lower-case: (setq *downcase-tokens-p* nil) (with-html-output-to-string (s) (:twoWords)) => "<TWOWORDS/>" (setq *downcase-tokens-p* t) (with-html-output-to-string (s) (:twoWords)) => "<twowords/>" I don't get how this is supposed to help with case-sensitive XML: keywords (like all symbols) are case-folded by the CL reader before cl-who sees them, no? :twoWords => :TWOWORDS. To support generation of XML with mixedCase tags or attributes, I would think that cl-who would need to allow strings where it allows only keywords now. Or maybe I'm just completely missing something, because the question that prompted the creation of *downcase-tokens-p* was a camelCase attribute. Can cl-who support mixedCase tags/attributes? Or if it's as simple as changing (keywordp x) to (or (keywordp x) (stringp x)), would such a patch be well-received? thanks! - Ken

2 3

[cl-who-devel] Re: (Str ... in attributes
by yazicivo＠ttnet.net.tr 28 Aug '07

28 Aug '07

> I have an incorrect output when using (str.... as the value of an attribute. > (Or is that not allowed?) You shouldn't be using STR/FMT/ESC for attribute values. See CL-WHO documentation related with the syntax. Regards.

2 1

[cl-who-devel] (Str ... in attributes
by helmut＠cybernetic-systems.de 26 Aug '07

26 Aug '07

Some problems with (str ... Version: $Header: /usr/local/cvsrep/cl-who/cl-who.asd,v 1.16 2007/05/28 18:31:31 edi Exp $ I have an incorrect output when using (str.... as the value of an attribute. (Or is that not allowed?) Helmut Example: CL-USER> (cl-who:with-html-output (*standard-output*) (:input :onmouseover (cl-who:str "style.border=\"thin solid black\";"))) Result NotSoOK:> <inputstyle.border="thin solid black"; onmouseover='style.border="thin solid black";' /> CL-USER> (cl-who:with-html-output (*standard-output*) (:input :onmouseover "style.border=\"thin solid black\";")) Result OK:> <input onmouseover='style.border="thin solid black";' /> Same with a variable: CL-USER> (let ((ot "style.border=\"thin solid black\";")) (cl-who:with-html-output (*standard-output*) (:input :onmouseover (cl-who:str ot)))) Result NotOK:> <inputstyle.border="thin solid black"; onmouseover='style.border="thin solid black";' /> CL-USER> (let ((ot "style.border=\"thin solid black\";")) (cl-who:with-html-output (*standard-output*) (:input :onmouseover ot))) Result OK:> <input onmouseover='style.border="thin solid black";' />

1 0

[cl-who-devel] case sensitivity
by Osei Poku 24 Aug '07

24 Aug '07

I am evaluating cl-who for the capability of generating svg documents. One issue I have encountered is the viewBox attribute of a top-level svg tag which appears to be case sensitive. so for example: (with-html-output (*standard-output* nil :indent t) (:svg :width "500" :height "400" :viewBox "0 0 1000 800" (:rect :x "1" :y "1" :width "600" :height "500" :fill "none" :stroke-width "4" :stroke "red")) nil) gives: <svg width='500' height='400' viewbox='0 0 1000 800'> <rect x='1' y='1' width='600' height='500' fill='none' stroke-width='4' stroke='red'/> </svg> which outputs a rectangle with some of the edges outside the viewable area instead of inside the viewable area. Ideally the point of viewbox is to scale all the coordinates used within the svg tag such that they fit in the specified width and height of the svg tag. Is there a clean way (other than special casing that tag) to create the case sensitive attribute? I am not sure why it is case-sensitive but the following viewers seem to recognize the camelCase version and not the all lowercase version. opera inkscape sketsa SVG graphics editor xara xtreme Thanks, -- Osei Poku

3 4