better zooming

quad/qtest/markdown.rkt

@@ -322,11 +322,11 @@
          (make-nobreak! ln)]))
     (cons ln reversed-lines)))
 
-(define zoom-mode? #t)
+(define zoom-mode? #f)
 (define zoom-scale 2)
-(define top-margin 60)
-(define bottom-margin 120)
-(define side-margin 120)
+(define top-margin (/ 60 (if zoom-mode? zoom-scale 1)))
+(define bottom-margin (/ 120 (if zoom-mode? zoom-scale 1)))
+(define side-margin (/ 120 (if zoom-mode? zoom-scale 1)))
 (define page-offset (pt (/ side-margin (if zoom-mode? 3 1))
                         (/ top-margin (if zoom-mode? 3 1))))
 (require racket/date)