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

[cl-who-devel] strange behaviour: package and/or macro relevant?
by olivier buechel 26 Aug '08

26 Aug '08

This works: (in-package :cl-user) (let* ((txt1 "hallo") (txt2 "yellow")) (cl-who:show-html-expansion (str nil :indent t) ((:a) txt1 txt2))) This does not work and hell breaks out when compiling: (defpackage :dummy-package (:use :cl :cl-user :cl-who)) (in-package :dummy-package) (let* ((txt1 "hallo") (txt2 "yellow")) (cl-who:show-html-expansion (str nil :indent t) ((:a) txt1 txt2))) ==> (LET ((STR STR)) (PROGN (WRITE-STRING " <a> " LET ((#:G1 NIL)) (WHEN #:G1 (PRINC #:G1 STR))) TXT1 (WRITE-STRING " " LET ((#:G2 NIL)) (WHEN #:G2 (PRINC #:G2 STR))) TXT2 (WRITE-STRING " </a>" LET ((#:G3 NIL)) (WHEN #:G3 (PRINC #:G3 STR))))) Well, I really don't get it with packages, so I just tried around and found that this code here works: (defpackage :dummy-package (:use :cl :cl-user :cl-who)) (in-package :dummy-package) (let* ((txt1 "hallo") (txt2 "yellow")) (cl-who:show-html-expansion (s nil :indent t) ((:a) txt1 txt2))) So kind-of it's not the package alone the problem, somehow it's the combination of package and using str in macro Ha, just tried with fmt instead of str: same problem Hint: Maybe no protection with gensym? And why does it work in cl-user?!? Using cl-who-0.11.1 And yes, I was in hell... And now (after changing str to s) I want just to understand what happend to me. thanks olli

2 1

[cl-who-devel] Changing *attribute-quote-char*
by Andrei Stebakov 16 Aug '08

16 Aug '08

By default the variable is initialized to #\' If I want to change it to #\" via local binding I still get the single quotes in the resulting string. (let ((*attribute-quote-char* #\")) (with-html-output-to-string (*standard-output* nil :prologue nil :indent nil) (:html (:head (:title "title") (:meta :name "DESCRIPTION" :content "description") (:meta :name "KEYWORDS" :content "keywords"))))) I get: "<html><head><title>title</title><meta name='DESCRIPTION' content='description' /><meta name='KEYWORDS' content='keywords' /></head></html>" Is it possible to make a local new binding or I should change it only globally? Thank you, Andrew

3 9

[cl-who-devel] Macro expansion...
by Andrei Stebakov 16 Aug '08

16 Aug '08

I am trying to incorporate parenscript into cl-who tree. I tried to insert a small macro but for some reasons I get various errors linke "cl-who:fmt not defined" or ":script not defined". I guess I need help to figure out the way macros work with cl-who... (defmacro js-body (&rest body) `(:script :type "text/javascript" (fmt (ps ,@body)))) (with-html-output-to-string (*standard-output* nil :prologue nil :indent nil) (:html (:head (:title "Some title")) (js-body (defun some-func () (alert "Hello!"))))) I think parenscript is not really relevant to the task, so I am looking for some help to figure out why I have these expansion errors. BTW, when I run (macroexpand '(with-html-output-to-string (*standard-output* nil :prologue nil :indent nil) (:html (:head (:title "Some title")) (js-body (defun some-func () (alert "Hello!")))))) I get: (LET ((*STANDARD-OUTPUT* (MAKE-STRING-OUTPUT-STREAM :ELEMENT-TYPE 'CHARACTER))) (UNWIND-PROTECT (PROGN (WITH-HTML-OUTPUT (*STANDARD-OUTPUT* NIL :PROLOGUE NIL :INDENT NIL) (:HTML (:HEAD (:TITLE "Some title")) (JS-BODY (DEFUN SOME-FUNC () (ALERT "Hello!")))))) (CLOSE *STANDARD-OUTPUT*)) (GET-OUTPUT-STREAM-STRING *STANDARD-OUTPUT*)) The HyperSpec says: "*macroexpand* <#macroexpand> repeatedly expands *form*until it is no longer a *macro form"* <26_glo_m.htm#macro_form> Why js-body or with-html-output doesn't get expanded in this case? I am using sbcl 1.0.18 on Ubuntu. Thank you! Andrew

2 1

[cl-who-devel] with-html-output-to-string (str)
by Victor Kryukov 09 Aug '08

09 Aug '08

The following code produces errors on two of my systems (Linux and Mac) for both CLISP and SBCL: (require 'asdf) (asdf:oos 'asdf:load-op :cl-who) (defpackage :test (:use :cl :cl-who)) (in-package :test) (with-html-output-to-string (str) (:html (:title "test"))) It looks like a bug, macro variable capture, to me, but it may well be my misunderstanding/misuse of CL-WHO. I'd appreciate your comments, as usual. -- Yours Sincerely, Victor Kryukov

2 2

[cl-who-devel] Generating HTML using the result of a function call
by Taylor Venable 30 Jul '08

30 Jul '08

Hello, I've been trying to figure out how to do something in CL-WHO and haven't been able to get it yet, so I thought perhaps somebody on here might be able to help me out. I'm working on an RSS / blog component on my website which is written in Lisp (running on top of Hunchentoot, specifically). Each entry in the blog consists of a file located in a hierarchy that composes a date: e.g. /blog/2008/05/02 for the entry of May 2nd, 2008. Each entry file is a Lisp file with the following structure: ((title . "The Title Goes Here") (description . "This is what gets shown in the RSS feed.") (body . (:div :id "content" (:p "This is the first paragraph in the entry.") (:p "Here's another paragraph with " (:a :href "/foo" "a link") " inside of it.")))) My goal is to use the Lisp reader to read the list into a variable, let's call it "content", and to pull out of "content" the things that I need to render. With RSS this was possible by using something like: (cl-who:with-html-output (output) (:item (:title (cl-who:str (cdr (assoc :title content)))) (:description (cl-who:str (cdr (assoc :description content)))))) But I also want to render HTML pages constructed from the "body" part of the entry, something that would work like: (with-open-file (input (site-file path)) (let ((content (read input))) (cl-who:with-html-output (output) (cdr (assoc :body content))))) But evaluate (cdr (assoc :body content)) and use the result [in this case it would turn into the HTML template code that I wanted] rather than doing what seems to be the default behaviour of evaluating the expression but then outputting nothing. Is this possible with CL-WHO at this time? If not, would it be difficult to add such feature in a manner similar to how CL-WHO:STR and CL-WHO:HTM work? Thanks for any help or ideas. I'm using version 0.11.1 running under SBCL 1.0.11 on Ubuntu GNU/Linux 8.04.1 -- Taylor Venable http://real.metasyntax.net:2357/ foldr = lambda f, i, l: (len(l) == 1 and [f(l[0], i)] or [f(l[0], foldr(f, i, l[1:]))])[0]

2 2

[cl-who-devel] Macroexpansion of with-html-output body? (follow-up)
by Vsevolod 29 Jul '08

29 Jul '08

Hi, Once again (hopefully, for the last time) I want to address the question "to use or not to use", so to say, macroexpansion inside w-h-o form, and moreover, how to do it right. I have experimented with the previously proposed solution of introducing additional EMB keyword and have found, that it as well has some drawbacks. More precisely, they exist because of the nature of the w-h-o macro itself, which uses special processing for the forms, contained inside HTM: they are processed before any function application, that is why if you EMBed some macros, which use HTM keyword, which should output to their own streams, the result can be emitted in the unexpected order. To illustrate this vague statement, I can show the piece of the code, that combines cl-who and parenscript forms to make a currency selection form with some javascript backing: (defmacro cur-sel () (w/uniqs (cur) (let ((sel-str `(:select :id "currency" (dolist (,cur *currencies*) (htm (:option :selected (string= ,cur *default-currency*) (str ,cur))))))) `(htm (emb (ps-script* (write-htm (:a :class "toggle" :onclick (ps-inline* `(lambda () ,(write-htm ,sel-str))) (str (ie-val *default-currency*)))))) (:noscript ,sel-str))))) (defmacro write-htm (form) ``(.write document ,(who ,form))) The macro CUR-SEL, that is intended to itself be EMBedded, uses WRITE-HTM to emit HTML forms to string, that will in turn be an argument to javascript document.write(). But, as after macroexpansion of sel-str HTM forms appear as arguments to WRITE-HTM, the output of the containing w-h-o forms goes to the stream, bound by the topmost w-h-o and not the innermost, as it's supposed... Anyway, after some re-thinking of a problem, I've come to a conclusion, that my approach was not the most natural one. Now, I believe, that the more lispy way is to view w-h-o macro as solely a good processor for static pseudo-html data (like '(:p some text (:br) (:a :href ....), and on top of it build macros, which will allow eventually to add macroexpansion ability. My initial target was to be able to use macros with pseudo-html forms, like in the following simple example: (def-who-macro (arg) `(:p some text (:br) (:a :href ,arg))) inside w-h-o body the same way you would use an ordinary macro, but I'd got carried away with modifying the w-h-o macro itself to allow for such usage. It turned out, that it's not hard to implement the separated approach. My variant is below: (defmacro def-who-macro (name (&rest args) pseudo-html-form) "Produces functions for generating pseudo-html forms, which can be embedded in WHO-PAGEs" `(defun ,name (,@args) ,pseudo-html-form)) (defmacro def-who-page (name (&optional stream) pseudo-html-form) "Creates a function to generate an HTML page with the use of WITH-HTML-OUTPUT macro, in which pseudo-html forms, constructed with DEF-WHO-MACRO, can be embedded. If STREAM is nil/not supplied WITH-HTML-OUTPUT-TO-STRING to a throwaway string will be used, otherwise -- WITH-HTML-OUTPUT" `(macrolet ((who-tmp () `(,@',(if stream `(with-html-output (,stream nil :prologue t)) `(with-html-output-to-string (,(gensym) nil :prologue t))) ,,pseudo-html-form))) (defun ,name () (who-tmp)))) (defmacro who (pseudo-html-form) "An analog of DEF-WHO-PAGE, which not only creates an w-h-o pseudo-HTML to HTML translation function, but as well runs it and emits the obtained HTML as a string" `(macrolet ((who-tmp () `(with-html-output-to-string (,(gensym)) ,,pseudo-html-form))) (who-tmp))) And the example usage can be: (def-who-macro ps-script (&body body) `(:script :type "text/javascript" (fmt "~%// <![CDATA[~%") (str (js:ps ,@body)) (fmt "~%// ]]>~%"))) (def-who-page demo-page () `(:html (:head ,(:ps-script (defun hi () (alert "Hello world!")))) (:body (:input :type "button" :value "Click here...")))) The only catch is that DEF-WHO-MACRO actually generates not a macro in Lisp terms, but a function, which constructs lists of pseudo-HTML forms. I hope, the given code will be useful. Best regards, Vsevolod Dyomkin

2 2

[cl-who-devel] Strange (str ...) behavior.
by Stas Boukarev 08 Jul '08

08 Jul '08

I have the following with cl-who-0.11.1: > (with-html-output-to-string (i) (:div :id (str "foo"))) "<divfoo id='foo'></div>" -- With Best Regards, Stas.

2 2

[cl-who-devel] Macroexpansion of with-html-output body?
by Vsevolod 06 Jul '08

06 Jul '08

I have experimented with the solution, that I've sent previously and have found out, that it's better to place the macroexpansion part in the TREE-TO-TEMPLATE function (instead of TREE-TO-COMMANDS). Thus it's possible to support nested EMB's. The diff looks like this: @@ -11,12 +11,10 @@ ;; normal tag (process-tag element #'tree-to-template)) ((listp element) - ;; most likely a normal Lisp form (check if we - ;; have nested HTM subtrees) or an EMB form + ;; most likely a normal Lisp form - check if we + ;; have nested HTM subtrees (list - (if (eql (car element) 'emb) - (replace-htm (list 'htm (macroexpand-1 (cadr element))) #'tree-to-template) - (replace-htm element #'tree-to-template)))) + (replace-htm element #'tree-to-template))) (t (if *indent* (list +newline+ (n-spaces *indent*) element) - Vsevolod

1 0

[cl-who-devel] Macroexpansion of with-html-output body?
by Vsevolod 28 Jun '08

28 Jun '08

Below is the message I've sent today to Edi Weitz on this topic. Unfortunately, I've missed the existence of this mailing-list, that's why I didn't consult the archives. Today I have quickly pierced the discussion and, as far as I've seen, the solution, I propose, hadn't being mentioned. So, I suggest an implementation strategy for the macroexpansion inside with-html-output and provide a patch against the current version (0.11.1)... I tried to use CL-WHO a couple of times in the past and always stumbled over the fact, that it's possible to do something like that (example from the site): (with-html-output (*http-stream*) (:table :border 0 :cellpadding 4 (loop for i below 25 by 5 do (htm (:tr :align "right" (loop for j from i below (+ i 5) do (htm (:td :bgcolor (if (oddp j) "pink" "green") (fmt "~@R" (1+ j)))))))))) ...but not something like this (i.e. make a macro, to compress some of the pseudo-html tree): (with-html-output (*http-stream*) (:table :border 0 :cellpadding 4 (loop for i below 25 by 5 do (htm (:tr :align "right" (loop for j from i below (+ i 5) do (htm (embed-td j)))))))) (defmacro embed-td (j) `(:td :bgcolor (if (oddp ,j) "pink" "green") (fmt "~@R" (1+ ,j)))) Thus to write such a macro for with-htm-output you should do it in two steps (at least, this is the only way I have discovered): The original form should be like the following (with STR): (with-html-output (*http-stream*) (:table :border 0 :cellpadding 4 (loop for i below 25 by 5 do (htm (:tr :align "right" (loop for j from i below (+ i 5) do (STR (embed-td j)))))))) ...and the macro should itself use w-h-o-to-string: (defmacro embed-td (j) (let ((str (gensym))) `(with-html-output-to-string (,str) (:td :bgcolor (if (oddp ,j) "pink" "green") (fmt "~@R" (1+ ,j)))))) I think it's quite a common case in the usage of the w-h-o macro to want such macros (at least for me it always comes up). So I suggest to add another keyword to a list of STR, ESC and HTM -- EMB -- specially for such cases, which will mean "macroexpand-1 the enclosed form". With it the above code may be expressed like: (with-html-output (*http-stream*) (:table :border 0 :cellpadding 4 (loop for i below 25 by 5 do (htm (:tr :align "right" (loop for j from i below (+ i 5) do (htm (emb (embed-td j))))))))) (defmacro embed-td (j) `(:td :bgcolor (if (oddp ,j) "pink" "green") (fmt "~@R" (1+ ,j)))) or like this: (with-html-output (*http-stream*) (:table :border 0 :cellpadding 4 (loop for i below 25 by 5 do (htm (:tr :align "right" (emb (embed-tr i))))))) (defmacro embed-tr (i) (let ((j (gensym))) `(loop for ,j from ,i below (+ ,i 5) do (htm (:td :bgcolor (if (oddp ,j) "pink" "green") (fmt "~@R" (1+ ,j)))))) I think, sometimes such flexibility is necessary. Although, I'm not absolutely sure, that the solution, I've hacked, is flawless... The patch is attached. I tried to follow the guidelines for patches with this one. The only thing, that I didn't do, is provide examples of the usage of EMB keyword in the doc (only a brief reference). I think, that the examples in the letter might suit, but I'm not sure. Best regards, Vsevolod Dyomkin

1 0

[cl-who-devel] When tagname/attributes can be determined only at runtime (WITH-HTML-TAG)
by Chaitanya Gupta 25 May '08

25 May '08

Hi, While using CL-WHO recently, I ran into a small problem wherein some tagnames/attributes could be determined only at runtime. Not knowing any easy way to do this "out of the box" in CL-WHO, I wrote this small macro (inspired by XML-EMITTER:WITH-TAG) - (defmacro with-html-tag ((name &optional attributes) &body body) (let ((body-fn (gensym))) `(flet ((,body-fn () ,@body)) (call-with-html-tag ,name ,attributes #',body-fn)))) (defun call-with-html-tag (name attributes body-fn) (let ((tag-name (typecase name (symbol (string-downcase name)) (t name)))) (format t "<~A" tag-name) (when attributes (format t "~{~A~}" (cl-who:convert-attributes attributes))) (format t ">") (funcall body-fn) (format t "</~A>" tag-name))) Note that it writes only to *standard-output*. Usage ----- (defvar *x* :blockquote) => *X* (with-output-to-string (*standard-output*) (cl-who:with-html-output (*standard-output*) (:body (with-html-tag (*x*) (cl-who:htm (:p "foo bar")))))) => "<body><blockquote><p>foo bar</p></blockquote></body>" (with-output-to-string (*standard-output*) (cl-who:with-html-output (*standard-output*) (:body (with-html-tag (*x* '(("id" . "foo123"))) (cl-who:htm (:p "foo bar")))))) => "<body><blockquote id='foo123'><p>foo bar</p></blockquote></body>" I think this will be a useful addition to CL-WHO (although this particular implementation can be improved a bit). Or did I miss out on some other way that CL-WHO can easily handle this? Chaitanya

1 0

[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

[cl-who-devel] Fwd: *downcase-tags-p* for attributes, setting *downcase-tags-p* for compile-time
by Dave Cooper 24 Aug '07

24 Aug '07

Hi, Has anyone else found it necessary to conditionalize the downcasing of attribute names, like what is currently done with regular tags? For example in the following bit of X3D: (with-html-output (*stream* nil :indent t) (:Shape (:Appearance (:Material :diffuseColor "0 1 0") ... ))) the diffuseColor attribute name needs to have its case preserved. Second question: the *downcase-tags-p* has to be set to nil at compile time. This is probably more of a general Lisp question and not so specific to cl-who, but what is the preferred way of setting a variable like this to a non-default value for the duration of compiling a file, similar to what one would do with a special variable at runtime with (let ((*downcase-tags-p* nil)) ...) or (let (*downcase-tags-p*) ...) ? I am hoping to find something less error-prone (and thread-unsafe) than this: ;; beginning of the file (eval-when (compile load eval) (setq *downcase-tags-p* nil)) ;; ... ;; end of the file (eval-when (compile load eval) (setq *downcase-tags-p* t)) ;; Thanks, -dave -- Dave Cooper, Head of Product Development, Genworks International dave(a)genworks.com, dave.genworks.com(skype) USA: 248-327-3253(o), 1-800-731-9220(toll-free) UK: +44 (0) 191 645 1699

2 1

[cl-who-devel] Heap corruption?
by John Thingstad 04 Aug '07

04 Aug '07

Below is a selection of code I have written and the output it generates. The part that function generates a nested list of lists for a tree control. My system runs under Huchentoot. I use Lispworks under Windows. The output looks good. I can run it approx 10 times in a row. Then something fails. Among the errors are: 1. MySQL: 2006 - connection lost 2. MySQL: "select * from blog-header where (id = 199)" selector just be one row 3. The browser dons't update at all. When I go back other pages show incorrect data. I have isolated it to navigate-blog, navigate-year and navigate-month functions. I tried completly rewiting it (this is the second version), but get the same problem. Any idea what is happening here? (defun remove-prefix (uri prefix) "Returns the prefix from an uri in search of a blog name. Big assumtion: Blog names consists only of latin characters." (let ((scanstring (concatenate 'string prefix "([A-Za-z]+)"))) (multiple-value-bind (dummy matchvector) (scan-to-strings scanstring uri) (declare (ignore dummy)) (if matchvector (svref matchvector 0) "")))) (defconstant *month-abbrev* (list "jan" "feb" "mar" "apr" "may" "jun" "jul" "aug" "sep" "oct" "nov" "dec")) (defun get-month-string (month) (nth (decf month) *month-abbrev*)) (defun extract-year (date-string) (parse-integer (subseq date-string 0 4))) (defun extract-month (date-string) (parse-integer (subseq date-string 5 7))) ;; Result format: ((year (month (date title url) ...) ...) ...) (defun make-navigate-list (item-list name) (let (last-year last-month year-list month-list result-list) (iter (for item in (reverse item-list)) (let* ((date-string (getf item :pub_time)) (year (extract-year date-string)) (month (extract-month date-string))) (when (or (not last-year) (< year last-year)) (setf last-year year) (setf last-month nil) (when month-list (push (reverse month-list) year-list)) (setf month-list nil) (when year-list (push (reverse year-list) result-list)) (setf year-list (list (format nil "~D" year)))) (when (or (not last-month) (< month last-month)) (setf last-month month) (when month-list (push (reverse month-list) year-list)) (setf month-list (list (get-month-string month)))) (push (list (subseq (getf item :pub_time) 0 10) (or (getf item :title) "") (format nil "~A?id=~D" name (getf item :id))) month-list))) (when month-list (push (reverse month-list) year-list)) (when year-list (push (reverse year-list) result-list)) (reverse result-list))) (defun navigate-month (month-list) (with-html-output-to-string (*standard-output* nil :prologue nil :indent t) (:li (:a :href (format nil "/~A/" (first month-list)) (fmt "~A" (first month-list))) (:ul (iter (for item in (rest month-list)) (htm (:li (:a :href (third item) (fmt "~A ~A" (first item) (second item)))))))))) (defun navigate-year (year-list) (with-html-output-to-string (*standard-output* nil :prologue nil :indent t) (:li (:a :href (format nil "/~A/" (first year-list)) (fmt "~A" (first year-list))) (iter (for month-list in (rest year-list)) (htm (:ul (fmt "~A" (navigate-month month-list)))))))) (defun navigate-blog (items name) (let ((navigate-list (make-navigate-list items name))) (with-html-output-to-string (*standard-output* nil :prologue nil :indent t) (:div :id "bloglist" (:ul :id "navigation" :class "foldertree" (iter (for year-list in navigate-list) (fmt "~A" (navigate-year year-list)))))))) (defun present-blog (blog) (let* ((item-id (or (and (get-parameter "id") (parse-integer (get-parameter "id"))) (latest-blog-item-id (getf blog :name)))) (item (get-blog-item item-id))) (with-html-output-to-string (*standard-output* nil :prologue t :indent t) (:html :xmlns "http://www.w3.org/1999/xhtml" (:head (:title (fmt "~A - ~A" (escape-string (getf blog :title)) (escape-string (getf item :title)))) (:link :href *blog-css-file* :rel "stylesheet" :type "text/css") (:link :href *tree-css-file* :rel "stylesheet" :type "text/css" :media "screen, projection") (:script :type "text/javascript" :src *tree-js-file* "")) (:body (:div :id "left-column" (:a :href *blog-homepage* "Blog home") (fmt "~A" (navigate-blog (get-items (getf blog :id)) (script-name)))) (:div :id "wrapper" (:div :id "header" (:h1 (escape-string (fmt "~A" (escape-string (getf blog :title)))))) (:div :id "main" (if item (htm (:h3 (fmt "~A" (escape-string (getf item :title)))) (:h4 (fmt "~A" (escape-string (getf item :pub_time)))) (:p (fmt "~A" (or (getf item :contents) "")))) (htm (:p (:em "This blog is empty!"))))))))))) (defun no-blog () (with-html-output-to-string (*standard-output* nil :prologue t :indent t) (:html :xmlns "http://www.w3.org/1999/xhtml" (:head (:title "Error") (:link :href *blog-css-file* :rel "stylesheet" :type "text/css")) (:body (:div :id "left-column" (:a :href *blog-homepage* "Blog home")) (:div :id "wrapper" (:div :id "header" (:h1 :class "middle" "Error!")) (:div :id "main" (:h2 :class "middle" "No such page") (:p :class "middle" "The blog that you requested does not exist!"))))))) (defun blog-page () (no-cache) (let ((blog (get-blog (remove-prefix (script-name) *blog-prefix*)))) (if blog (present-blog blog) (no-blog)))) ;;----------------------------------------------------------------------------------------------------------- Which generatates something like the following <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns='http://www.w3.org/1999/xhtml'> <head> <title>Many Items blog - Tomorrow </title> <link href='/static-files/stylesheet.css' rel='stylesheet' type='text/css' /> <link href='/static-files/foldertree.css' rel='stylesheet' type='text/css' media='screen, projection' /> <script type='text/javascript' src='/static-files/treeMenu.js'> </script> </head> <body> <div id='left-column'> <a href='/blogs.html'> Blog home </a> <div id='bloglist'> <ul id='navigation' class='foldertree'> <li> <a href='/2007/'>2007 </a> <ul> <li> <a href='/jul/'>jul </a> <ul> <li> <a href='/blogs/many?id=204'>2007-07-18 Tomorrow </a> </li> <li> <a href='/blogs/many?id=202'>2007-07-18 Tomorrow </a> </li> <li> <a href='/blogs/many?id=200'>2007-07-18 Tomorrow </a> </li> <li> <a href='/blogs/many?id=199'>2007-07-17 Today </a> </li> <li> <a href='/blogs/many?id=201'>2007-07-17 Today </a> </li> <li> <a href='/blogs/many?id=203'>2007-07-17 Today </a> </li> <li> <a href='/blogs/many?id=193'>2007-07-17 First item </a> </li> </ul> </li> </ul> <ul> <li> <a href='/jun/'>jun </a> <ul> <li> <a href='/blogs/many?id=198'>2007-06-12 Hollydays </a> </li> <li> <a href='/blogs/many?id=194'>2007-06-11 Second item </a> </li> </ul> </li> </ul> <ul> <li> <a href='/mar/'>mar </a> <ul> <li> <a href='/blogs/many?id=197'>2007-03-15 Easter </a> </li> </ul> </li> </ul> </li> <li> <a href='/2006/'>2006 </a> <ul> <li> <a href='/dec/'>dec </a> <ul> <li> <a href='/blogs/many?id=195'>2006-12-24 Christmas </a> </li> </ul> </li> </ul> <ul> <li> <a href='/mar/'>mar </a> <ul> <li> <a href='/blogs/many?id=196'>2006-03-14 Easter </a> </li> </ul> </li> </ul> </li> </ul> </div> </div> <div id='wrapper'> <div id='header'> <h1>Many Items blog </h1> </div> <div id='main'> <h3>Tomorrow </h3> <h4>2007-07-18 00:00:00 </h4> <p> </p> </div> </div> </body> </html>

1 1

[cl-who-devel] Exposing String Escape Functions
by Volkan YAZICI 24 Jul '07

24 Jul '07

Hi, In a parser I'm working on, trying to convert hand-written documents into XHTML form. And for this purpose using CL-WHO integrated within META-SEXP. Because of character-by-character parsing, I need to escape unrecognized atoms on-the-fly. At the moment, I'm using below method. (elt (cl-who:escape-string (make-string 1 :initial-element character-needs-escaping)) 0) Yep, quite nasty code piece to escape a single character. Therefore, I'd ask if it'd be possible to expose the character escaping routines. (If you approve the proposal, I'm volunteered to send a patch.) Regards.

2 7

[cl-who-devel] CL-WHO mlisp patch
by Richard Newman 17 Jul '07

17 Jul '07

Edi, folks, Here's a one-line patch to make CL-WHO 0.9.1 compile cleanly on Allegro CL's modern mode. -R --- specials-old.lisp 2007-04-27 02:33:42.000000000 -0700 +++ specials.lisp 2007-07-16 21:32:02.000000000 -0700 @@ -96,7 +96,7 @@ "The list of HTML tags that should be output as empty tags. See *HTML-EMPTY-TAG-AWARE-P*.") -(defvar *html-empty-tag-aware-p* T +(defvar *html-empty-tag-aware-p* t "Set this to NIL to if you want to use CL-WHO as a strict XML generator. Otherwise, CL-WHO will only write empty tags listed in *HTML-EMPTY-TAGS* as <tag/> \(XHTML mode) or <tag> \(SGML

1 0

[cl-who-devel] patch + unit test code (Re: *html-empty-tag* bug)
by Mac Chan 28 May '07

28 May '07

Attached is a patch to fix html-empty-tag bug and also some unit test code to help spotting problems in case there are ignorant people like me who submit bad code ;-) Thanks, -- Mac

2 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