Subject: Re: Basic footnotes - my answer (or beauty is in the eye of the beholder? NW) From: Chris Maden <crism@xxxxxxx> Date: Thu, 7 May 1998 11:18:53 -0400 (EDT) |
[David Pawson] > (element (section) > (sosofo-append (process-children) > (if (not (node-list-empty? (select-elements (descendants (current-node)) "FOOTNOTE"))) > (make rule > orientation: 'horizontal) ;; but only if there are notes. > (literal "")) > (with-mode footnotes > (process-children)))) [...] > (mode footnotes > (default (process-node-list (element-children))) ;; Mmmmm. But it > works!! Yes, but it's stupid. I wrote that before I was clued into (select-elements). Do this instead: (element section (let ((footnotes (select-elements (descendants (current-node)) "FOOTNOTE"))) (sosofo-append (process-children) (if (not (node-list-empty? footnotes)) (make rule orientation: 'horizontal) (empty-sosofo)) (with-mode footnotes (process-node-list footnotes))))) (mode footnotes (element footnote (make paragraph))) -Chris -- <!NOTATION SGML.Geek PUBLIC "-//Anonymous//NOTATION SGML Geek//EN"> <!ENTITY crism PUBLIC "-//O'Reilly//NONSGML Christopher R. Maden//EN" "<URL>http://www.oreilly.com/people/staff/crism/ <TEL>+1.617.499.7487 <USMAIL>90 Sherman Street, Cambridge, MA 02140 USA" NDATA SGML.Geek> DSSSList info and archive: http://www.mulberrytech.com/dsssl/dssslist
Current Thread |
---|
|
<- Previous | Index | Next -> |
---|---|---|
Re: Basic footnotes - my answer (o, Norman Walsh | Thread | RE: Basic footnotes - my answer (o, Tony Graham |
Re: Graphic Size Problem, Oisin McGuinness | Date | Re: sosofo-append or sequence?, Tony Graham |
Month |