From ebc4531af71adb57b77185ea8cc6d8a2bfe95208 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sat, 15 Feb 2020 09:49:50 -0800
Subject: [PATCH] debug attrr

---
 quad/quadwriter/attrs.rkt | 2 ++
 quad/quadwriter/debug.rkt | 7 ++++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/quad/quadwriter/attrs.rkt b/quad/quadwriter/attrs.rkt
index 874532d4..b826f6f8 100644
--- a/quad/quadwriter/attrs.rkt
+++ b/quad/quadwriter/attrs.rkt
@@ -189,6 +189,8 @@ Naming guidelines
 
                            page-repeat
 
+                           draw-debug
+
                            fn-ref
                            fn-text
                            fn-text-start))
diff --git a/quad/quadwriter/debug.rkt b/quad/quadwriter/debug.rkt
index 258bf1e3..3b923a28 100644
--- a/quad/quadwriter/debug.rkt
+++ b/quad/quadwriter/debug.rkt
@@ -1,7 +1,8 @@
 #lang debug racket
 (require pitfall
          quad/position
-         quad/quad)
+         quad/quad
+         "attrs.rkt")
 (provide (all-defined-out))
 
 (define-for-syntax debug-mode #false)
@@ -26,7 +27,7 @@
                        (define debug-column-gap (make-parameter 36)))]
                    [else
                     '(begin
-                       (define draw-debug? (make-parameter #true))
+                       (define draw-debug? (make-parameter #false))
                        (define draw-debug-line? (make-parameter #true))
                        (define draw-debug-block? (make-parameter #true))
                        (define draw-debug-string? (make-parameter #true))
@@ -46,7 +47,7 @@
 
 (define (draw-debug q doc [fill-color "#f99"] [stroke-color "#fcc"] . _)
   (define stroke-width 0.5)
-  (when (draw-debug?)
+  (when (or (draw-debug?) (quad-ref q :draw-debug))
     (save doc)
     ;; draw layout box
     (line-width doc stroke-width)