add line wrap param

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))