Re: COOKBOOK: Hierarchical numbering using specific countable elements

[Daniel Speck <dspeck@xxxxxxxxxxxx>]

Tony Graham wrote:

> Try this:
>
> (element (DIV TITLE)
>          (make paragraph
>                (literal
>                 (string-append
>                  (let loop ((hierarchy-list
>                              (hierarchical-number-recursive
>                               "DIV")))
>                    (if (null? hierarchy-list)
>                        ""
>                        (let ((item-number (car hierarchy-list)))
>                          (string-append
>                           (format-number item-number "1")
>                           "."
>                           (loop (cdr hierarchy-list))))))
>                 " "))
>                (process-children)))
>

or this:

(element (DIV TITLE)
    (make paragraph
        (literal (format-number-list (hierarchical-number-recursive "DIV") "1"
".") " ")
        (process-children)
     )
)

-dan

--
Daniel Speck                              e-mail: dspeck@xxxxxxxxxxxx
Systems Engineer                           voice:     +1 301.548.7818
Thomson Technology Services Group            fax:     +1 301.527.4094
1375 Piccard Drive, Rockville, MD 20850      WWW:    www.thomtech.com



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