You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
1.5 KiB
Racket
34 lines
1.5 KiB
Racket
#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)]
|
|
) |