LDP
/
LDP
mirror of https://github.com/tLDP/LDP
0
1
Fork 0
Code Releases Activity

updated

This commit is contained in:
gferg 2001-01-25 22:16:22 +00:00
parent 0e15f02677
commit 2e49188d71
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
LDP/builder/dsssl/ldp.dsl
View File

@ -115,13 +115,20 @@
;; when producing HTML files, use this extension ;; when producing HTML files, use this extension
".html") ".html")
(define %generate-book-toc%
;; Should a Table of Contents be produced for books?
#t)
(define %generate-article-toc% (define %generate-article-toc%
;; Should a Table of Contents be produced for Articles? ;; Should a Table of Contents be produced for articles?
;; If true, a Table of Contents will be generated for each 'Article'.
#t) #t)
(define %generate-part-toc% (define %generate-part-toc%
;; show a partial table of contents on books; usually at chapter level ;; Should a Table of Contents be produced for parts?
#t)
(define %generate-book-titlepage%
;; produce a title page for books
#t) #t)
(define %generate-article-titlepage% (define %generate-article-titlepage%
@ -132,6 +139,10 @@
;; forces the Table of Contents on separate page ;; forces the Table of Contents on separate page
'()) '())
(define (list-element-list)
;; fixes bug in Table of Contents generation
'())
(define %root-filename% (define %root-filename%
;; The filename of the root HTML document (e.g, "index"). ;; The filename of the root HTML document (e.g, "index").
"index") "index")
@ -181,14 +192,14 @@
(mode article-titlepage-recto-mode (mode article-titlepage-recto-mode
(element contrib (element contrib
;; print out with othercredit information; for translators, etc. ;; print out with othercredit information; for translators, etc.
(make sequence (make sequence
(make element gi: "SPAN" (make element gi: "SPAN"
attributes: (list (list "CLASS" (gi))) attributes: (list (list "CLASS" (gi)))
(process-children)))) (process-children))))
(element othercredit (element othercredit
;; print out othercredit information; for translators, etc. ;; print out othercredit information; for translators, etc.
(let ((author-name (author-string)) (let ((author-name (author-string))
(author-contrib (select-elements (children (current-node)) (author-contrib (select-elements (children (current-node))