76cca479d9
Using #lang scribble/base produces HTML output in the old style, while #lang scribble/manual uses the new style. To get the new style without switching to `#lang scribble/manual`, use `manual-doc-style`. Related changes include the addition of `css-style-addition` and `js-style-addition`. original commit: b520b66c4e8e54909c7d7b1126044e984989e8ef
41 lines
1.6 KiB
Racket
41 lines
1.6 KiB
Racket
#lang scheme/base
|
|
(require scribble/core
|
|
scribble/latex-properties
|
|
scribble/html-properties
|
|
setup/collects)
|
|
|
|
(provide scribble-file
|
|
downloaded-file
|
|
add-defaults)
|
|
|
|
(define (add-property properties pred new)
|
|
(if (ormap pred properties)
|
|
properties
|
|
(cons new properties)))
|
|
|
|
(define (scribble-file s)
|
|
(path->collects-relative (collection-file-path s "scribble")))
|
|
|
|
(define (downloaded-file s)
|
|
(build-path (find-system-path 'addon-dir) s))
|
|
|
|
(define (add-defaults doc pfx styl extras version?
|
|
#:html [html #f]
|
|
#:properties [properties null])
|
|
(struct-copy part doc [style (make-style (style-name (part-style doc))
|
|
((if version? add-property (lambda (x y z) x))
|
|
(add-property
|
|
((if html add-property (lambda (x y z) x))
|
|
(append
|
|
(style-properties (part-style doc))
|
|
properties)
|
|
html-defaults?
|
|
html)
|
|
latex-defaults?
|
|
(make-latex-defaults
|
|
pfx
|
|
styl
|
|
extras))
|
|
document-version?
|
|
(make-document-version (version))))]))
|