From 3076614787c773e3406c020a31de73bae8fe1826 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 3 Jul 2020 11:57:40 -0700 Subject: [PATCH] parse line breaks (fixes #64) --- quad/quadwriter/markup.rkt | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/quad/quadwriter/markup.rkt b/quad/quadwriter/markup.rkt index c2e8fc6f..02cebe82 100644 --- a/quad/quadwriter/markup.rkt +++ b/quad/quadwriter/markup.rkt @@ -7,7 +7,12 @@ (all-from-out "tags.rkt") q) -(make-module-begin (λ (exprs) (doc-proc (decode-paragraphs exprs #:force? #true)))) +(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")