|
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")) |
|