typesetting/quad2/attr.rkt

#lang debug racket/base
(require racket/list
         "struct.rkt"
         "constants.rkt")
(provide (all-defined-out))

(define-syntax-rule (define-attr-list LIST-NAME
                      [ATTR-NAME ATTR-EXPR] ...)
  (begin
    (define ATTR-NAME ATTR-EXPR) ...
    (define LIST-NAME
      (let ([names (list ATTR-NAME ...)])
        (cond
          [(check-duplicates (map attr-key-name names))
           =>
           (λ (sym) (raise-user-error 'define-attr-list "duplicate attribute name: ~a" sym))]
          [else names])))))

(define-attr-list all-attr-keys
  [:unknown-key (make-attr-unknown-key (gensym))]
  [:font-family (make-attr-uncased-string-key 'font-family #true default-font-family)]
  [:font-path (make-attr-path-key 'font-path)]
  [:font-bold (make-attr-boolean-key 'font-bold #true #false)]
  [:font-italic (make-attr-boolean-key 'font-italic #true #false)]
  [:font-size (make-attr-dimension-string-key 'font-size #true default-font-size)]
  [:font-features (make-attr-set-key 'font-features #true default-no-features)]
  [:font-features-add (make-attr-set-key 'font-features-add #false default-no-features)]
  [:font-features-subtract (make-attr-set-key 'font-features-subtract #false default-no-features)]

  [:page-size (make-attr-uncased-string-key 'page-size #true default-page-size)]
  [:page-orientation (make-attr-uncased-string-key 'page-orientation #true default-page-orientation)]
  [:page-width (make-attr-dimension-string-key 'page-width)]
  [:page-height (make-attr-dimension-string-key 'page-height)]
  )