parse line breaks (fixes #64)

5 years ago · 3076614787
parent db69933ba6
commit 3076614787
1 changed files with 6 additions and 1 deletions
--- 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")