[cl-who-devel] Factoring out subtrees

[Daniel Gackle]

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 at common-lisp.net
[mailto:cl-who-devel-bounces at common-lisp.net] On Behalf Of Daniel Gackle
Sent: Thursday, December 21, 2006 3:28 PM
To: cl-who-devel at 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 at agharta.de] 
Sent: Thursday, December 21, 2006 12:52 AM
To: Daniel Gackle
Cc: cl-who-devel at common-lisp.net
Subject: Re: [cl-who-devel] Factoring out subtrees

On Wed, 20 Dec 2006 23:01:41 -0700, Daniel Gackle <gackle at 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 at common-lisp.net
http://common-lisp.net/mailman/listinfo/cl-who-devel