You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
751 B
Racket
26 lines
751 B
Racket
#lang debug racket/base
|
|
(require (for-syntax racket/base)
|
|
quadwriter/core
|
|
pollen/tag
|
|
"lang-helper.rkt"
|
|
quad)
|
|
(provide (except-out (all-from-out racket/base) #%module-begin)
|
|
q)
|
|
|
|
(define q (default-tag-function 'q))
|
|
|
|
(define (doc-proc strs) (cons 'q strs))
|
|
(make-mb doc-proc)
|
|
|
|
(module+ reader
|
|
(require scribble/reader syntax/strip-context "lang-helper.rkt")
|
|
(provide (rename-out [quadwriter-rs read-syntax]))
|
|
|
|
(define (quadwriter-rs path-string p)
|
|
(define stxs (quad-at-reader path-string p))
|
|
(strip-context
|
|
(with-syntax ([STXS stxs]
|
|
[PDF-PATH (path-replace-extension path-string #".pdf")])
|
|
#'(module _ quadwriter/main
|
|
PDF-PATH
|
|
. STXS))))) |