From 8660f8810e9ec0daf81268839f625854f66b8e7e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 9 Apr 2019 15:34:54 -0700 Subject: [PATCH] fix hr rendering --- quad/qtest/markdown.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/quad/qtest/markdown.rkt b/quad/qtest/markdown.rkt index 7f0ebb2c..32dda4d8 100644 --- a/quad/qtest/markdown.rkt +++ b/quad/qtest/markdown.rkt @@ -351,11 +351,13 @@ [draw-start (λ (dq doc) (match-define (list left top) (quad-origin dq)) (match-define (list right bottom)(size dq)) + (save doc) (translate doc left (+ top (/ bottom 2))) (move-to doc 0 0) (line-to doc right 0) - (line-width doc 3) - (stroke doc "#999"))]))] + (line-width doc 0.5) + (stroke doc "black") + (restore doc))]))] [else ;; render hyphen first so that all printable characters are available for size-dependent ops. (define pcs-with-hyphen (render-hyphen pcs-printing ending-q)) @@ -731,7 +733,7 @@ #:inside? #t #:command-char #\◊)) (define stx (quad-at-reader path-string p)) - (define parsed-stxs (datum->syntax stx (xexpr->parse-tree (parse-markdown (apply string-append (syntax->datum stx)))))) + (define parsed-stxs (datum->syntax stx (xexpr->parse-tree #R (parse-markdown (apply string-append (syntax->datum stx)))))) (strip-context (with-syntax ([STXS parsed-stxs] [PDF-PATH (path-replace-extension path-string #".pdf")])