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:
Eli Barzilay 2009-03-04 18:52:56 +00:00
parent 7f0900073b
commit f9d796999e
3 changed files with 5 additions and 7 deletions

View File

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

View File

@ -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])

View File

@ -6,9 +6,6 @@
(define (render-mixin %)
(class %
(init [prefix-file #f]
[style-file #f]
[style-extra-files ()])
(define/override (get-substitutions)
'((#rx"---" "\U2014")