From 72d528c76d4936c7a81cf46a21b58f52c62912e0 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 8 May 2019 11:00:50 -0700 Subject: [PATCH] add line wrap param --- quad/quadwriter/param.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/quad/quadwriter/param.rkt b/quad/quadwriter/param.rkt index 146f1a6c..003320d9 100644 --- a/quad/quadwriter/param.rkt +++ b/quad/quadwriter/param.rkt @@ -10,6 +10,7 @@ (define current-doc (make-parameter #false)) (define current-pdf (make-parameter #false)) (define current-locale (make-parameter 'us)) + (define current-line-wrap (make-parameter #f)) ; because kp is slow and maybe we want to disable for "draft" mode (define draw-debug? (make-parameter #t)) (define draw-debug-line? (make-parameter #true)) @@ -20,13 +21,14 @@ (define debug-page-height (make-parameter 400)) (define debug-x-margin (make-parameter 40)) (define debug-y-margin (make-parameter 40)) - (define zoom-factor (make-parameter 3)))] + (define zoom-factor (make-parameter 1.5)))] [_ #'(begin (provide (all-defined-out)) (define current-doc (make-parameter #false)) (define current-pdf (make-parameter #false)) (define current-locale (make-parameter 'us)) + (define current-line-wrap (make-parameter #f)) (define draw-debug? (make-parameter #false)) (define draw-debug-line? (make-parameter #true))