]> ;; See dbparam.dsl for definitions of refentries (define %section-autolabel% #t) ;; Sections are enumerated (define %chapter-autolabel% #t) ;; Chapters are enumerated (define %generate-article-toc% #t) ;; A Table of Contents should ;; be produced for Articles (define %generate-article-titlepage-on-separate-page% #f) (define %generate-article-titlepage% #t) (define %generate-article-toc-on-titlepage% #t) (define %generate-legalnotice-link% #t) ;; yes, we want legalnotice (define nochunks #t) ;; Dont make multiple pages (define rootchunk #t) ;; Do make a 'root' page (define %use-id-as-filename% #t) ;; Use book id as filename (define %html-ext% ".html") ;; give it a proper html extension ;; mislukte poging legalnotice in html te krijgen ;; (element (articleinfo legalnotice) ($semiformal-object$)) ;; (define (titlepage-recto-legalnotice #!optional (node (current-node))) ;; (let ;; ( ;; (notices ;; (select-elements ;; (children (parent node)) ;; (normalize "legalnotice"))) ;; (copyrights ;; (select-elements ;; (children (parent node)) ;; (normalize "copyright")))) ;; ;; (if %generate-legalnotice-link% ;; (make sequence ;; ($semiformal-object$) ;; (with-mode legal-notice-link-mode ;; (process-node-list (node-list-rest notices))) ;; (literal (gentext-element-name node))) ;; (empty-sosofo)))) ;; ($semiformal-object$)))