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.
typesetting/quad/quadwriter/markup.rkt

18 lines
580 B
Racket

#lang debug racket/base
6 years ago
(require "lang-helper.rkt"
6 years ago
"tags.rkt"
6 years ago
(only-in "markdown.rkt" doc-proc))
(provide #%top #%datum #%app #%top-interaction
(all-from-out "tags.rkt")
q)
6 years ago
(make-module-begin doc-proc)
(module reader racket/base
6 years ago
(require "lang-helper.rkt" pollen/decode)
6 years ago
(provide read-syntax get-info)
5 years ago
(define get-info get-info-texty)
6 years ago
(define read-syntax
(make-read-syntax 'quadwriter/markup
(λ (path-string ip)
(detect-paragraphs (syntax->datum (quad-at-reader path-string ip)))))))