Commit faa14acc authored by Peter Eisentraut's avatar Peter Eisentraut

doc: Remove obsolete set element DSSSL customizations

We don't use set elements (collection of books) anymore, so this is just
dead code.
parent a844c299
...@@ -153,10 +153,6 @@ ...@@ -153,10 +153,6 @@
;; The rules in the default stylesheet for productname format it as a ;; The rules in the default stylesheet for productname format it as a
;; paragraph. This may be suitable for productname directly within ;; paragraph. This may be suitable for productname directly within
;; *info, but it's nonsense when productname is used inline, as we do. ;; *info, but it's nonsense when productname is used inline, as we do.
(mode set-titlepage-recto-mode
(element (para productname) ($charseq$)))
(mode set-titlepage-verso-mode
(element (para productname) ($charseq$)))
(mode book-titlepage-recto-mode (mode book-titlepage-recto-mode
(element (para productname) ($charseq$))) (element (para productname) ($charseq$)))
(mode book-titlepage-verso-mode (mode book-titlepage-verso-mode
...@@ -218,17 +214,10 @@ ...@@ -218,17 +214,10 @@
;; Returns the depth of auto TOC that should be made at the nd-level ;; Returns the depth of auto TOC that should be made at the nd-level
(define (toc-depth nd) (define (toc-depth nd)
(cond ((string=? (gi nd) (normalize "book")) 2) (cond ((string=? (gi nd) (normalize "book")) 2)
((string=? (gi nd) (normalize "set")) 2)
((string=? (gi nd) (normalize "part")) 2) ((string=? (gi nd) (normalize "part")) 2)
((string=? (gi nd) (normalize "chapter")) 2) ((string=? (gi nd) (normalize "chapter")) 2)
(else 1))) (else 1)))
;; Put a horizontal line in the set TOC (just like the book TOC looks)
(define (set-titlepage-separator side)
(if (equal? side 'recto)
(make empty-element gi: "HR")
(empty-sosofo)))
;; Add character encoding and time of creation into HTML header ;; Add character encoding and time of creation into HTML header
(define %html-header-tags% (define %html-header-tags%
(list (list "META" '("HTTP-EQUIV" "Content-Type") '("CONTENT" "text/html; charset=ISO-8859-1")) (list (list "META" '("HTTP-EQUIV" "Content-Type") '("CONTENT" "text/html; charset=ISO-8859-1"))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment