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