18 lines
552 B
Scheme
18 lines
552 B
Scheme
#lang scheme/base
|
|
(require scribble/doclang
|
|
scribble/manual
|
|
"../private/defaults.ss")
|
|
(provide (except-out (all-from-out scribble/doclang) #%module-begin)
|
|
(all-from-out scribble/manual)
|
|
(rename-out [module-begin #%module-begin]))
|
|
|
|
(define-syntax-rule (module-begin id . body)
|
|
(#%module-begin id post-process () . body))
|
|
|
|
(define (post-process doc)
|
|
(add-defaults doc
|
|
(scribble-file "manual-prefix.tex")
|
|
(scribble-file "manual-style.tex")
|
|
null
|
|
#t))
|