diff --git a/quad/quadwriter/attrs.rkt b/quad/quadwriter/attrs.rkt index bb5c6285..9aca2ebe 100644 --- a/quad/quadwriter/attrs.rkt +++ b/quad/quadwriter/attrs.rkt @@ -7,7 +7,7 @@ (define (list->attrs . kvs) (for/list ([kv (in-slice 2 kvs)]) - kv)) + kv)) (define (pica->pts prefix [suffix #false]) ;; both pieces of measurement are either positive or negative @@ -84,17 +84,17 @@ (define (copy-block-attrs source-hash dest-hash) (define new-hash (make-hasheq)) (for ([(k v) (in-hash dest-hash)]) - (hash-set! new-hash k v)) + (hash-set! new-hash k v)) (for ([(k v) (in-hash source-hash)] #:when (memq k block-attrs)) - (hash-set! new-hash k v)) + (hash-set! new-hash k v)) new-hash) (define-syntax (define-attrs stx) (syntax-case stx () [(_ (ATTR-NAME ...)) (with-syntax ([(ATTR-ID ...) (for/list ([attr-id (in-list (syntax->list #'(ATTR-NAME ...)))]) - (format-id stx ":~a" (syntax-e attr-id)))]) + (format-id stx ":~a" (syntax-e attr-id)))]) #'(begin (define ATTR-ID 'ATTR-NAME) ...))] [(_ ID (ATTR-NAME ...)) @@ -128,6 +128,7 @@ Naming guidelines font-tracking font-baseline-shift font-case + bg link href @@ -139,6 +140,8 @@ Naming guidelines page-number doc-title + output-path + pdf-title pdf-subject pdf-author @@ -293,7 +296,8 @@ Naming guidelines :pdf-author :pdf-keywords :string - :footer-text)) #true)) + :footer-text + :output-path)) #true)) (define (takes-path? k) (and (memq k (list :image-file)) #true))