Re: (dsssl) Making a special treatment for the *first* occurrence of an element

[Stephane Bortzmeyer <bortzmeyer@xxxxxx>]

On Tue, Sep 16, 2003 at 05:41:25PM +0200,
 Yann Dirson <ydirson@xxxxxxxxxxxxxxxxxxxxx> wrote 
 a message of 24 lines which said:

> Maybe you can check whether element-number is 1, or if applicable if
> first-sibling? or absolute-first-sibling? returns #t ?

It works fine, thanks, here is the current stylesheet:

(define (process-contrib #!optional (sosofo (process-children)))
    (process-children))

(define (process-othercredit #!optional (sosofo (process-children)))
  (let ((author-name  (author-string))
        (author-contrib (select-elements (children (current-node))
                                          (normalize "contrib"))))
    (make sequence
      (if (first-sibling?)
	  (make paragraph
	    (literal "Remerciements a : "))
	  (empty-sosofo))
      (make paragraph
	(literal author-name)
	(literal " - ")
	(process-node-list author-contrib)))))

(mode article-titlepage-recto-mode
  (element contrib (process-contrib))
  (element othercredit (process-othercredit))
  )

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