Re: passthrough and empty elements.

[Holger Klawitter <holger@xxxxxxxxxxxx>]

> The pass-through construction makes an end tag to this element. Is
> there any way to know from a node whether this is an empty tag or not?

I solved this problem the following way:

(define (is-in? elem lst)
  (if (null? lst)
    #f
    (if (equal? elem (car lst))
      #t
      (is-in? elem (cdr lst))
    )
  )
)    

(define (copy)
  (if (is-in? (gi (current-node)) *empty-elements*)
    (make empty-element attributes: (copy-attributes))
    (make element attributes: (copy-attributes))
))

; must be upper case!
(define *empty-elements* '("BR"))

AFAIK, there is no way to avoid hardcoding the empty elements.

Hope this Helps,
	Holger Klawitter
--
Holger Klawitter                                     +49 (0)251 484 0637
holger@xxxxxxxxxxxx                             http://www.klawitter.de/



 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist