bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

lang.rkt (688B)

      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))