Move the prefix-file, style-file, and style-extra-files to be defined
in base-render.ss. svn: r13951 original commit: a7fddbd545c3c811fd44ab3b23f9a5d1d88202b8
This commit is contained in:
parent
7f0900073b
commit
f9d796999e
|
@ -16,7 +16,10 @@
|
||||||
|
|
||||||
(init-field dest-dir
|
(init-field dest-dir
|
||||||
[refer-to-existing-files #f]
|
[refer-to-existing-files #f]
|
||||||
[root-path #f])
|
[root-path #f]
|
||||||
|
[prefix-file #f]
|
||||||
|
[style-file #f]
|
||||||
|
[style-extra-files null])
|
||||||
|
|
||||||
(define/public (get-dest-directory [create? #f])
|
(define/public (get-dest-directory [create? #f])
|
||||||
(when (and dest-dir create? (not (directory-exists? dest-dir)))
|
(when (and dest-dir create? (not (directory-exists? dest-dir)))
|
||||||
|
|
|
@ -236,15 +236,13 @@
|
||||||
format-number
|
format-number
|
||||||
quiet-table-of-contents
|
quiet-table-of-contents
|
||||||
extract-part-style-files)
|
extract-part-style-files)
|
||||||
|
(inherit-field prefix-file style-file style-extra-files)
|
||||||
|
|
||||||
(init-field [css-path #f]
|
(init-field [css-path #f]
|
||||||
;; up-path is either a link "up", or #t which uses
|
;; up-path is either a link "up", or #t which uses
|
||||||
;; goes to start page (using cookies to get to the
|
;; goes to start page (using cookies to get to the
|
||||||
;; user start page)
|
;; user start page)
|
||||||
[up-path #f]
|
[up-path #f]
|
||||||
[prefix-file #f]
|
|
||||||
[style-file #f]
|
|
||||||
[style-extra-files null]
|
|
||||||
[script-path #f]
|
[script-path #f]
|
||||||
[script-file #f]
|
[script-file #f]
|
||||||
[search-box? #f])
|
[search-box? #f])
|
||||||
|
|
|
@ -6,9 +6,6 @@
|
||||||
|
|
||||||
(define (render-mixin %)
|
(define (render-mixin %)
|
||||||
(class %
|
(class %
|
||||||
(init [prefix-file #f]
|
|
||||||
[style-file #f]
|
|
||||||
[style-extra-files ()])
|
|
||||||
|
|
||||||
(define/override (get-substitutions)
|
(define/override (get-substitutions)
|
||||||
'((#rx"---" "\U2014")
|
'((#rx"---" "\U2014")
|
||||||
|
|
Loading…
Reference in New Issue
Block a user