1#lang racket/base
2(require scribble/doclang
3         scribble/base
4         "../private/defaults.rkt"
5         scribble/latex-prefix)
6
7(provide (except-out (all-from-out scribble/doclang) #%module-begin)
8         (all-from-out scribble/base)
9         (rename-out [module-begin #%module-begin]))
10
11(define-syntax-rule (module-begin id . body)
12  (#%module-begin id (post-process) () . body))
13
14(define ((post-process) doc)
15  (add-defaults doc
16                (string->bytes/utf-8 (string-append "\\documentclass{book}\n"
17                                                    unicode-encoding-packages))
18                (scribble-file "book/style.tex")
19                null
20                #f))
21