From 7c3d71704a2ca7e4d7e2dabc4c579e453fd39276 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sun, 26 Jan 2020 10:11:54 -0800
Subject: [PATCH] pairs

---
 quad/quadwriter/render.rkt | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/quad/quadwriter/render.rkt b/quad/quadwriter/render.rkt
index 6eb9e750..48b1df2b 100644
--- a/quad/quadwriter/render.rkt
+++ b/quad/quadwriter/render.rkt
@@ -5,6 +5,7 @@
          racket/string
          racket/sequence
          racket/list
+         racket/dict
          pitfall
          quad
          hyphenate
@@ -196,8 +197,10 @@
 (define (setup-pdf-metadata! qs pdf)
   (define kvs
     (apply append
-           (for/list ([k (in-list (list :pdf-title :pdf-author :pdf-subject :pdf-keywords))] 
-                      [pdf-k (in-list '(Title Author Subject Keywords))])
+           (for/list ([(k pdf-k) (in-dict (list (cons :pdf-title 'Title)
+                                                (cons :pdf-author 'Author)
+                                                (cons :pdf-subject 'Subject)
+                                                (cons :pdf-keywords 'Keywords)))])
              (define str (or (match qs
                                [(cons q _) (quad-ref q k)]
                                [_ #false]) "")) ; default val is empty string