18 lines
775 B
Racket
18 lines
775 B
Racket
#lang scheme/base
|
|
(require "private/provide-structs.rkt"
|
|
scheme/contract)
|
|
|
|
(provide-structs
|
|
[body-id ([value string?])]
|
|
[hover-property ([text string?])]
|
|
[script-property ([type string?]
|
|
[script (or/c path-string? (listof string?))])]
|
|
[css-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)))])]
|
|
[html-defaults ([prefix-path (or/c bytes? path-string? (cons/c 'collects (listof bytes?)))]
|
|
[style-path (or/c bytes? path-string? (cons/c 'collects (listof bytes?)))]
|
|
[extra-files (listof (or/c path-string? (cons/c 'collects (listof bytes?))))])]
|
|
|
|
[url-anchor ([name string?])]
|
|
[alt-tag ([name (and/c string? #rx"^[a-zA-Z0-9]+$")])]
|
|
[attributes ([assoc (listof (cons/c symbol? string?))])])
|