By the way, your last example on that page appears to be missing an angle bracket, as seen in the sample output after '0':

<table border='0'<tr><td>1</td> ...

I assume you need a (list ">") before (funcall body-fn body) in the final method?

Dan

-----Original Message----- From: cl-who-devel-bounces@common-lisp.net [mailto:cl-who-devel-bounces@common-lisp.net] On Behalf Of Daniel Gackle Sent: Thursday, December 21, 2006 3:28 PM To: cl-who-devel@common-lisp.net Subject: RE: [cl-who-devel] Factoring out subtrees

< Maybe this one? >

Doh! Yes. I must have read that at some point.

Thanks Edi, Dan

-----Original Message----- From: Edi Weitz [mailto:edi@agharta.de] Sent: Thursday, December 21, 2006 12:52 AM To: Daniel Gackle Cc: cl-who-devel@common-lisp.net Subject: Re: [cl-who-devel] Factoring out subtrees

On Wed, 20 Dec 2006 23:01:41 -0700, Daniel Gackle gackle@shaw.ca wrote:

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.

Maybe this one?

http://weitz.de/cl-who/#convert-tag-to-string-list

Cheers, Edi.

_______________________________________________ cl-who-devel site list cl-who-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/cl-who-devel