7ff10149be
also, add docs and simplify the interface a little bit in a way that makes it friendlier to future extension original commit: 7adece9001dbfed39c5f114d3a7334ac1d6b7c9e
29 lines
1.2 KiB
Racket
29 lines
1.2 KiB
Racket
#lang scheme/base
|
|
(require "private/provide-structs.rkt"
|
|
racket/contract/base
|
|
xml/xexpr
|
|
net/url-structs)
|
|
|
|
(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?)) url? bytes?)])]
|
|
[js-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)) url? 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?))])]
|
|
|
|
[part-link-redirect ([url url?])]
|
|
[install-resource ([path path-string?])]
|
|
[link-resource ([path path-string?])]
|
|
|
|
[head-extra ([xexpr xexpr/c])]
|
|
[render-convertible-as ([types (listof (or/c 'png-bytes 'svg-bytes))])])
|