|
153 | 153 | ;; The rules in the default stylesheet for productname format it as a
|
154 | 154 | ;; paragraph. This may be suitable for productname directly within
|
155 | 155 | ;; *info, but it's nonsense when productname is used inline, as we do.
|
156 |
| -(mode set-titlepage-recto-mode |
157 |
| - (element (para productname) ($charseq$))) |
158 |
| -(mode set-titlepage-verso-mode |
159 |
| - (element (para productname) ($charseq$))) |
160 | 156 | (mode book-titlepage-recto-mode
|
161 | 157 | (element (para productname) ($charseq$)))
|
162 | 158 | (mode book-titlepage-verso-mode
|
|
218 | 214 | ;; Returns the depth of auto TOC that should be made at the nd-level
|
219 | 215 | (define (toc-depth nd)
|
220 | 216 | (cond ((string=? (gi nd) (normalize"book"))2)
|
221 |
| - ((string=? (gi nd) (normalize"set"))2) |
222 | 217 | ((string=? (gi nd) (normalize"part"))2)
|
223 | 218 | ((string=? (gi nd) (normalize"chapter"))2)
|
224 | 219 | (else1)))
|
225 | 220 |
|
226 |
| -;; Put a horizontal line in the set TOC (just like the book TOC looks) |
227 |
| -(define (set-titlepage-separator side) |
228 |
| - (if (equal? side 'recto) |
229 |
| - (make empty-element gi:"HR") |
230 |
| - (empty-sosofo))) |
231 |
| - |
232 | 221 | ;;Add character encoding and time of creation into HTML header
|
233 | 222 | (define %html-header-tags%
|
234 | 223 | (list (list"META" '("HTTP-EQUIV""Content-Type") '("CONTENT""text/html; charset=ISO-8859-1"))
|
|