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.
|
|
|
|
|
#lang debug racket/base
|
|
|
|
|
|
(require racket/list
|
|
|
|
|
|
racket/match
|
|
|
|
|
|
quadwriter/core
|
|
|
|
|
|
"tags.rkt"
|
|
|
|
|
|
"lang-helper.rkt")
|
|
|
|
|
|
(provide (all-defined-out)
|
|
|
|
|
|
#%app #%top #%datum #%top-interaction require
|
|
|
|
|
|
(all-from-out "tags.rkt"))
|
|
|
|
|
|
|
|
|
|
|
|
(define (doc-proc exprs)
|
|
|
|
|
|
(define strs (match exprs
|
|
|
|
|
|
[(? null?) '(" ")] ; single nonbreaking space, so something prints
|
|
|
|
|
|
[strs strs]))
|
|
|
|
|
|
;; markdown parser returns list of paragraphs
|
|
|
|
|
|
(root null (match strs
|
|
|
|
|
|
[(list str) strs]
|
|
|
|
|
|
[_ (add-between strs (list para-break)
|
|
|
|
|
|
#:before-first (list para-break)
|
|
|
|
|
|
#:after-last (list para-break)
|
|
|
|
|
|
#:splice? #true)])))
|
|
|
|
|
|
(make-module-begin doc-proc)
|
|
|
|
|
|
|
|
|
|
|
|
(module reader racket/base
|
|
|
|
|
|
(require racket/port markdown "lang-helper.rkt")
|
|
|
|
|
|
(provide read-syntax get-info)
|
|
|
|
|
|
(define get-info get-info-texty)
|
|
|
|
|
|
(define read-syntax (make-read-syntax 'quadwriter/markdown
|
|
|
|
|
|
(λ (path-string p) (xexpr->parse-tree
|
|
|
|
|
|
(parameterize ([current-strict-markdown? #t])
|
|
|
|
|
|
(parse-markdown (port->string p))))))))
|
