24 lines
912 B
Racket
24 lines
912 B
Racket
10 years ago
|
#lang racket/base
|
||
|
(require scribble/text
|
||
|
(for-syntax racket/base
|
||
|
racket/list
|
||
|
syntax/parse)
|
||
|
racket/port)
|
||
|
|
||
|
;; Adaptation of function in web-server/templates library
|
||
|
;; to check for binary result and pass it through.
|
||
|
;; Actually patches underlying bug in `output`.
|
||
|
(define-syntax (include-template stx)
|
||
|
(syntax-parse stx
|
||
|
[(_ (~optional (~seq #:command-char command-char:expr)) p:expr)
|
||
|
(quasisyntax/loc stx
|
||
|
(let ([result (include/text #,@(if (attribute command-char)
|
||
|
(list #'#:command-char #'command-char)
|
||
|
empty)
|
||
|
p)])
|
||
|
(if (bytes? result)
|
||
|
(with-output-to-bytes (λ () (write-bytes result)))
|
||
|
(with-output-to-string (λ () (output result))))))]))
|
||
|
|
||
|
(provide include-template)
|