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.
|
|
|
|
#lang racket/base
|
|
|
|
|
(require "struct.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 (list ATTR-NAME ...))))
|
|
|
|
|
|
|
|
|
|
(define-attr-list all-attrs
|
|
|
|
|
[:unknown-key (attr-unknown-key (gensym))]
|
|
|
|
|
[:font-family (attr-uncased-string-key 'font-family)]
|
|
|
|
|
[:font-path (attr-path-key 'font-path)]
|
|
|
|
|
[:font-bold (attr-boolean-key 'font-bold)]
|
|
|
|
|
[:font-italic (attr-boolean-key 'font-italic)]
|
|
|
|
|
[:font-size (attr-dimension-string-key 'font-size)]
|
|
|
|
|
[:font-size-previous (attr-dimension-string-key 'font-size-previous)])
|
