From ad8536b307502a0c058417fd81285dc15da2a67d Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 10 Jan 2019 12:39:13 -0800 Subject: [PATCH] it's my default --- pitfall/pitfall/pdf.rkt | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/pitfall/pitfall/pdf.rkt b/pitfall/pitfall/pdf.rkt index 05b5b1df..e80a44c5 100644 --- a/pitfall/pitfall/pdf.rkt +++ b/pitfall/pitfall/pdf.rkt @@ -22,13 +22,11 @@ #:auto-first-page [auto-first-page? (current-auto-first-page)] #:size [size "letter"] #:orientation [orientation "portrait"] - #:width [width-arg 612.0] - #:height [height-arg 792.0]) + #:width [width-arg #f] + #:height [height-arg #f]) (match-define (list parsed-width parsed-height) (sort - (if (list? size) - size - (hash-ref page-sizes (string-upcase size))) + (hash-ref page-sizes (string-upcase size) "letter") ;; for portrait, shorter edge is width (if (member orientation '("portrait" "tall")) < >))) (define width (or width-arg parsed-width))