diff --git a/quad/quadwriter/markdown.rkt b/quad/quadwriter/markdown.rkt index 9530d4be..c610aff6 100644 --- a/quad/quadwriter/markdown.rkt +++ b/quad/quadwriter/markdown.rkt @@ -23,9 +23,9 @@ ;; markdown parser returns list of paragraphs (root null (match strs [(list str) strs] - [_ (add-between strs (list q:para-break) - #:before-first (list q:para-break) - #:after-last (list q:para-break) + [_ (add-between strs (list para-break) + #:before-first (list para-break) + #:after-last (list para-break) #:splice? #true)]))) (make-module-begin doc-proc) diff --git a/quad/quadwriter/tags.rkt b/quad/quadwriter/tags.rkt index 9855ee20..885acd91 100644 --- a/quad/quadwriter/tags.rkt +++ b/quad/quadwriter/tags.rkt @@ -116,7 +116,7 @@ (for*/list ([expr (in-list exprs)] [str (in-list (string-split (string-join (get-elements expr) "") "\n"))]) (list (get-tag expr) (get-attrs expr) (string-replace str " " " "))) - q:line-break)) + line-break)) (qexpr (append (list->attrs :display "block" :background-color "aliceblue" @@ -144,7 +144,7 @@ (for/list ([(expr idx) (in-indexed exprs)] #:when (txexpr? expr)) (list* (get-tag expr) (cons (list :list-index (or bullet-val (format "~a" (add1 idx)))) (get-attrs expr)) (get-elements expr))) - q:para-break))) + para-break))) (define bullet-quad '(q ((special "bullet"))))