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

[cl-who-devel] regression for *attribute-quote-char* in cl-who-0.11.1
by Andrei Stebakov 09 Mar '09

09 Mar '09

in cl-who-0.11.0 the *attribute-quote-char* works well: (let ((cl-who:*attribute-quote-char* #\")) (with-html-output-to-string (*standard-output* nil :prologue nil :indent nil) (:p :onmouseover "func()"))) produces: "<p onmouseover=\"func()\"></p>" in cl-who-0.11.1 it produces "<p onmouseover='func()'></p>" Thank you, Andrei

2 1

[cl-who-devel] Sharing indentation info
by Slawek Zak 05 Mar '09

05 Mar '09

Hi, I'd like to propose a small patch to cl-who, which allows for *indent* retention across function calls. Regards, /S

2 1

[cl-who-devel] Double sexp tree traversal
by Slawek Zak 05 Mar '09

05 Mar '09

Hi, Is it necessary to walk the tree two times in cl-who? CL-USER> (cl-who:with-html-output-to-string (*standard-output*) (:one (:two))) 0[7]: (CL-WHO::TREE-TO-TEMPLATE ((:ONE (:TWO)))) 1[7]: (CL-WHO::PROCESS-TAG (:ONE (:TWO)) #<Function TREE-TO-TEMPLATE>) 2[7]: (CL-WHO::TREE-TO-TEMPLATE ((:TWO))) 3[7]: (CL-WHO::PROCESS-TAG (:TWO) #<Function TREE-TO-TEMPLATE>) 3[7]: returned ("<" "two" ">" "</" "two" ">") 2[7]: returned ("<" "two" ">" "</" "two" ">") 1[7]: returned ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">") 0[7]: returned ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">") 0[7]: (CL-WHO::TREE-TO-TEMPLATE ((:ONE (:TWO)))) 1[7]: (CL-WHO::PROCESS-TAG (:ONE (:TWO)) #<Function TREE-TO-TEMPLATE>) 2[7]: (CL-WHO::TREE-TO-TEMPLATE ((:TWO))) 3[7]: (CL-WHO::PROCESS-TAG (:TWO) #<Function TREE-TO-TEMPLATE>) 3[7]: returned ("<" "two" ">" "</" "two" ">") 2[7]: returned ("<" "two" ">" "</" "two" ">") 1[7]: returned ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">") 0[7]: returned ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">") I use version: $Header: /usr/local/cvsrep/cl-who/who.lisp,v 1.36 2008/03/27 23:17:55 edi Exp Thanks, /S

2 2

[cl-who-devel] Doc correction and a question
by Ala'a (cmo-0) 04 Dec '08

04 Dec '08

Hi, i was reading the documentation for cl-who library and i have a question in the 'syntax and semantics', it said: "The first form following either the tag's name itself or an attribute value which is not a keyword determines the beginning of the tag's content. **This and all the following forms are subject to the transformation rules we're just describing**." (the stars are added by me) my question is: what are the rules which will be applied to the content? if it is the previous rules regarding constants, tags and attr/val then shouldn't the content be printed by princ at runtime? other thing i noticed in the line: "Forms that look like (esc form1 form*) will be substituted with (let ((result form1)) (when result (write-string (escape-string result s)))). " shouldn't the last code snippet be like this: (let ((result form1)) (when result (write-string (escape-string result) s))) the last s should be shifted forward one parentheses regards, and thanks for the nice library and documentation combined! Ala'a (cmo-0) -- It does not matter how fast your code is, if it does not work! -- It does not matter how fast your code is, if it does not work!

1 0

[cl-who-devel] Case sensitivity idea
by Ken Harris 03 Nov '08

03 Nov '08

Hi again, I'm using cl-who for generating a lot of HTML and lowercase XML, and a tiny bit of mixed-case XML. (I don't know who thought up mixed-case XML schemas, but I swear it's not my fault. For that matter, neither is the XML. :-) To generate mixed-case XML, I should turn off *downcase-tokens-p*, and then wrap every existing :foo like :|foo| in all my cl-who calls, just to be able to generate a couple mixedCase XML attributes. This idea doesn't thrill me. (Or I could change the readtable-case, but that'll mean changing all my code to upper-case, and I'm not excited about that, either.) What if there was another mode (call it, say, *downcase-tokens-unless-mixedcase-p*) for case handling, whose rule was: - "downcase tokens, *unless* the token's string representation is mixed-case (in which case leave it alone)" That way, I could say (:a :href "/foo") like normal, but also (:|feGaussianBlur| :|stdDeviation| 2), and everything would work like it looks and like I want. I suppose it would be impossible to generate all-uppercase tags in this mode, but (a) I don't think I've ever seen an XML schema that required any all-caps tags, and (b) in *downcase-tokens-p* mode, there are tags it's impossible to generate, so I'm thinking "any tag in any mode" isn't a strict requirement. Thoughts? I could whip up a patch, if somebody else thought this was a decent approach... - Ken

3 3

[cl-who-devel] Specifying prologues (and a digression into special variables)
by Ken Harris 27 Oct '08

27 Oct '08

Hi, I'm using cl-who for a project where I want to generate 2 kinds of XML, and each has their own prologue. I started by passing these as literals to the keyword parameter :prologue, but I'd like to pull them out into constants, and eventually one will need to be computed at runtime. At first, I tried just passing an expression to :prologue, but that obviously failed (because defmacro evaluates it at macroexpand-time, not run-time, I think): (defconstant +my-prologue+ "header") (with-html-output-to-string (s nil :prologue +my-prologue+) (:a)) => " <a></a>" Then I went and read Erann Gat's "Idiot's Guide to Special Variables". It doesn't mention macros, but I figured I could get close with something like this, but no, it ignores my *prologue* setting: (let ((*prologue* "header")) (with-html-output-to-string (s nil :prologue t) (:a))) => "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\"> <a></a>" So obviously I'm missing the boat on special variables and defmacro. I know I could just setq *prologue* before calling cl-who (or even cruder approaches), but that seems awkward, and I'd like to learn what's going on with special variables and macros. As an aside, special variables and macros aren't behaving the same in my 2 Lisp implementations (all of the above is with SBCL), so it seems that at least somebody out there thinks the same way as me: :-) (defvar *special* 5) (defun show-special () *special*) (defmacro with-special () *special*) (show-special) (let ((*special* 10)) (show-special)) (with-special) (let ((*special* 10)) (with-special)) ;; CLISP 2.43: 5, 10, 5, 10 ;; SBCL 1.0.13: 5, 10, 5, 5 If anybody could shed some light on this, and show how to most naturally use an expression as a :prologue with cl-who, it'd be much appreciated. Thanks! - Ken

2 2

[cl-who-devel] Vertical whitespace
by Robin Lee Powell 12 Oct '08

12 Oct '08

Is it possible to control production of vertical whitespace in cl-who output? Having everything on one line gets really old after a while. -Robin -- They say: "The first AIs will be built by the military as weapons." And I'm thinking: "Does it even occur to you to try for something other than the default outcome?" -- http://shorl.com/tydruhedufogre http://www.digitalkingdom.org/~rlpowell/ *** http://www.lojban.org/

2 2

[cl-who-devel] Looks like a bug to me?
by Robin Lee Powell 29 Sep '08

29 Sep '08

(require 'cl-who) (use-package 'cl-who) (let ((userid 46)) (with-html-output (*standard-output*) (:a :id 7) (str (format nil "~%")) (:a :id "7") (str (format nil "~%")) (:a :id (str userid)))) I'm sure there's some better way to get newlines in the output. Anyways, output is: <a id='7'></a> <a id='7'></a> <a46 id='46'></a> That last one is really staggeringly wrong. Is it me or the code? -Robin -- Lojban Reason #17: http://en.wikipedia.org/wiki/Buffalo_buffalo Proud Supporter of the Singularity Institute - http://singinst.org/ http://www.digitalkingdom.org/~rlpowell/ *** http://www.lojban.org/

3 3

[cl-who-devel] loop problem
by Jens Teich 27 Sep '08

27 Sep '08

I need this expression for creation of a macro: WEBCAT 24 > (WITH-HTML-OUTPUT (*STANDARD-OUTPUT*) (LOOP FOR ITEM IN '((FMT "12") (FMT "13")) DO (HTM (:TD ITEM)))) <td></td><td></td> NIL how do I have to correct the expression so that the output is <td>12</td><td>13</td> NIL Jens

2 2

[cl-who-devel] New invitation from Paul Thirumalai
by Paul Thirumalai 05 Sep '08

05 Sep '08

You have been invited to connect as friends with Paul Thirumalai <paul.thirumalai(a)gmail.com> Please accept or reject this invitation by clicking below: http://www.bebo.com/in/7750480851a673686173b135 ...................................................................... Please do not reply directly to this email. This email was sent to you at the direct request of Paul Thirumalai <paul.thirumalai(a)gmail.com>. You have not been added to a mailing list. If you would prefer not to receive invitations from ANY Bebo members please click here - http://www.bebo.com/unsub/7750480851a673686173 Bebo, Inc., 795 Folsom St, 6th Floor, San Francisco, CA 94107, USA.

1 0