|
|
|
@ -49,10 +49,12 @@
|
|
|
|
|
(define metas (make-hash (map meta-element->assoc meta-elements)))
|
|
|
|
|
(values doc-without-metas metas))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; if reader-here-path is undefined, it will become a proc courtesy of #%top
|
|
|
|
|
;; therefore that's how we can detect if it's undefined
|
|
|
|
|
(define here-path (if (procedure? reader-here-path) "anonymous-module" reader-here-path))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define doc-txexpr
|
|
|
|
|
(let ([doc-raw (if (equal? parser-mode world:reader-mode-markdown)
|
|
|
|
|
(apply (compose1 (dynamic-require 'markdown 'parse-markdown) string-append) doc-raw)
|
|
|
|
|