mirror of https://github.com/tLDP/LDP
updated
This commit is contained in:
parent
0e15f02677
commit
2e49188d71
|
@ -115,13 +115,20 @@
|
|||
;; when producing HTML files, use this extension
|
||||
".html")
|
||||
|
||||
(define %generate-book-toc%
|
||||
;; Should a Table of Contents be produced for books?
|
||||
#t)
|
||||
|
||||
(define %generate-article-toc%
|
||||
;; Should a Table of Contents be produced for Articles?
|
||||
;; If true, a Table of Contents will be generated for each 'Article'.
|
||||
;; Should a Table of Contents be produced for articles?
|
||||
#t)
|
||||
|
||||
(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)
|
||||
|
||||
(define %generate-article-titlepage%
|
||||
|
@ -132,6 +139,10 @@
|
|||
;; forces the Table of Contents on separate page
|
||||
'())
|
||||
|
||||
(define (list-element-list)
|
||||
;; fixes bug in Table of Contents generation
|
||||
'())
|
||||
|
||||
(define %root-filename%
|
||||
;; The filename of the root HTML document (e.g, "index").
|
||||
"index")
|
||||
|
@ -181,14 +192,14 @@
|
|||
|
||||
(mode article-titlepage-recto-mode
|
||||
|
||||
(element contrib
|
||||
(element contrib
|
||||
;; print out with othercredit information; for translators, etc.
|
||||
(make sequence
|
||||
(make element gi: "SPAN"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(process-children))))
|
||||
|
||||
(element othercredit
|
||||
(element othercredit
|
||||
;; print out othercredit information; for translators, etc.
|
||||
(let ((author-name (author-string))
|
||||
(author-contrib (select-elements (children (current-node))
|
||||
|
|
Loading…
Reference in New Issue