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.
24 lines
741 B
Racket
24 lines
741 B
Racket
#lang debug racket/base
|
|
(require "lang-helper.rkt"
|
|
"tags.rkt"
|
|
pollen/decode
|
|
(only-in "markdown.rkt" doc-proc))
|
|
(provide #%top #%datum #%app #%top-interaction
|
|
(all-from-out "tags.rkt")
|
|
q)
|
|
|
|
(make-module-begin
|
|
(λ (exprs)
|
|
(doc-proc
|
|
(decode-paragraphs exprs
|
|
#:force? #true
|
|
#:linebreak-proc (λ (x) (decode-linebreaks x '(line-break)))))))
|
|
|
|
(module reader racket/base
|
|
(require "lang-helper.rkt")
|
|
(provide read-syntax get-info)
|
|
(define get-info get-info-texty)
|
|
(define read-syntax
|
|
(make-read-syntax 'quadwriter/markup
|
|
(λ (path-string ip)
|
|
(syntax->datum (quad-at-reader path-string ip)))))) |