]]> ]]> ]> (define %use-id-as-filename% #t) (define %generate-legalnotice-link% #t) (define (toc-depth nd) 1) (define (chunk-element-list) (list (normalize "preface") (normalize "chapter") (normalize "appendix") (normalize "article") (normalize "glossary") (normalize "bibliography") (normalize "index") (normalize "setindex") (normalize "reference") (normalize "refentry") (normalize "part") (normalize "book") ;; just in case nothing else matches... (normalize "set") ;; sets are definitely chunks... )) (define (chunk-skip-first-element-list) '()) (define (set-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "graphic") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor") (normalize "releaseinfo") (normalize "pubdate") (normalize "copyright") (normalize "legalnotice"))) (element pubdate (if (equal? (attribute-string (normalize "role")) "rcs") (let* ((datelist (split (data (current-node)))) (date (car (cdr datelist)))) (literal date)) (process-children))) (mode book-titlepage-verso-mode (element pubdate (make paragraph (literal (gentext-element-name-space (gi (current-node)))) (if (equal? (attribute-string (normalize "role")) "rcs") (let* ((datelist (split (data (current-node)))) (date (car (cdr datelist)))) (literal date)) (process-children)))) )