From 5846c00ae0efa639d56fc765e267fdefd27f4a26 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 1 May 2019 13:39:06 -0700 Subject: [PATCH] don't add paragraph breaks when single quad exists --- quad/quadwriter/markdown.rkt | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/quad/quadwriter/markdown.rkt b/quad/quadwriter/markdown.rkt index 45d08c04..cd587cf5 100644 --- a/quad/quadwriter/markdown.rkt +++ b/quad/quadwriter/markdown.rkt @@ -21,14 +21,16 @@ [(? null?) '(" ")] ; single nonbreaking space, so something prints [strs strs])) ;; markdown parser returns list of paragraphs - (root null (add-between strs (list qexpr-para-break) - #:before-first (list qexpr-para-break) - #:after-last (list qexpr-para-break) - #:splice? #true))) + (root null (match strs + [(list str) strs] + [_ (add-between strs (list qexpr-para-break) + #:before-first (list qexpr-para-break) + #:after-last (list qexpr-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 read-syntax (make-read-syntax 'quadwriter/markdown - (λ (path-string p) (xexpr->parse-tree (parse-markdown (port->string p))))))) \ No newline at end of file + (λ (path-string p) (xexpr->parse-tree (parse-markdown (port->string p))))))) \ No newline at end of file