23 lines
990 B
Racket
23 lines
990 B
Racket
#lang scheme/base
|
|
(require "private/provide-structs.rkt"
|
|
racket/contract/base
|
|
xml/xexpr)
|
|
|
|
(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?)) bytes?)])]
|
|
[js-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)) 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?))])]
|
|
[column-attributes ([assoc (listof (cons/c symbol? string?))])]
|
|
|
|
[head-extra ([xexpr xexpr/c])])
|