From 73457a85cd69c1ea183e144f9fb07cc3897c3bb5 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 4 Jun 2019 23:16:55 -0700 Subject: [PATCH] why indeed --- quad/quadwriter/markdown.rkt | 6 +++--- quad/quadwriter/tags.rkt | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) 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"))))