28 lines
1014 B
Racket
28 lines
1014 B
Racket
#lang scheme/base
|
|
(require scribble/core
|
|
scribble/html-properties
|
|
"defaults.rkt"
|
|
"on-demand.rkt")
|
|
|
|
(provide post-process
|
|
manual-doc-style)
|
|
|
|
(define (post-process doc)
|
|
(add-defaults doc
|
|
(scribble-file "manual-prefix.tex")
|
|
(scribble-file "manual-style.tex")
|
|
null
|
|
#:html (html-defaults (scribble-file "scribble-prefix.html")
|
|
(scribble-file "manual-style.css")
|
|
(list
|
|
(scribble-file "manual-fonts.css")))
|
|
#:properties (list
|
|
(css-style-addition
|
|
(scribble-file "manual-racket.css"))
|
|
(js-style-addition
|
|
(scribble-file "manual-racket.js")))
|
|
#t))
|
|
|
|
(define-on-demand manual-doc-style
|
|
(part-style (post-process (part #f null #f plain null null null))))
|