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
|
||||
[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])
|
||||
(when (and dest-dir create? (not (directory-exists? dest-dir)))
|
||||
|
|
|
@ -236,15 +236,13 @@
|
|||
format-number
|
||||
quiet-table-of-contents
|
||||
extract-part-style-files)
|
||||
(inherit-field prefix-file style-file style-extra-files)
|
||||
|
||||
(init-field [css-path #f]
|
||||
;; up-path is either a link "up", or #t which uses
|
||||
;; goes to start page (using cookies to get to the
|
||||
;; user start page)
|
||||
[up-path #f]
|
||||
[prefix-file #f]
|
||||
[style-file #f]
|
||||
[style-extra-files null]
|
||||
[script-path #f]
|
||||
[script-file #f]
|
||||
[search-box? #f])
|
||||
|
|
|
@ -6,9 +6,6 @@
|
|||
|
||||
(define (render-mixin %)
|
||||
(class %
|
||||
(init [prefix-file #f]
|
||||
[style-file #f]
|
||||
[style-extra-files ()])
|
||||
|
||||
(define/override (get-substitutions)
|
||||
'((#rx"---" "\U2014")
|
||||
|
|
Loading…
Reference in New Issue
Block a user