From c31121ba2adcf4ac3d2a41970fe89940ae877f7d Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 11 Apr 2019 12:54:18 -0700
Subject: [PATCH] shorten printer

---
 pitfall/pitfall/core.rkt | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

diff --git a/pitfall/pitfall/core.rkt b/pitfall/pitfall/core.rkt
index 495418f4..a2e0b30c 100644
--- a/pitfall/pitfall/core.rkt
+++ b/pitfall/pitfall/core.rkt
@@ -1,8 +1,9 @@
 #lang racket/base
-(require racket/match racket/port racket/dict)
+(require racket/match racket/port racket/dict racket/struct)
 (provide (all-defined-out))
 
 ;; structs
+(define verbose-pitfall-printing? (make-parameter #f))
 
 (struct pdf (width
              height
@@ -24,7 +25,16 @@
              x
              y
              image-registry
-             output-path) #:transparent #:mutable)
+             output-path) #:transparent #:mutable
+  #:methods gen:custom-write
+  [(define write-proc
+     (make-constructor-style-printer
+      (λ (obj) 'pitfall-pdf)
+      (λ (obj) (append
+                (list (pdf-output-path obj))
+                (if (verbose-pitfall-printing?)
+                    (list 'other-pdf-fields)
+                    null)))))])
 
 (struct pdf-font (name
                   id
@@ -36,7 +46,16 @@
                   embedded
                   embed
                   encode
-                  measure-string)  #:transparent #:mutable)
+                  measure-string) #:transparent #:mutable
+  #:methods gen:custom-write
+  [(define write-proc
+     (make-constructor-style-printer
+      (λ (obj) 'pitfall-font)
+      (λ (obj) (append
+                (list (pdf-font-name obj))
+                (if (verbose-pitfall-printing?)
+                    (list 'other-pdf-font-fields)
+                    null)))))])
 
 ;; for JPEG and PNG
 (struct $img (data label width height ref embed-proc) #:transparent #:mutable)