html-properties.rkt (1558B)
1 #lang scheme/base 2 (require "private/provide-structs.rkt" 3 racket/contract/base 4 xml/xexpr 5 net/url-structs) 6 7 (provide-structs 8 [body-id ([value string?])] 9 [document-source ([module-path module-path?])] 10 11 [xexpr-property ([before xexpr/c] [after xexpr/c])] 12 [hover-property ([text string?])] 13 [script-property ([type string?] 14 [script (or/c path-string? (listof string?))])] 15 [css-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)) url? bytes?)])] 16 [js-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)) url? bytes?)])] 17 [html-defaults ([prefix-path (or/c bytes? path-string? (cons/c 'collects (listof bytes?)))] 18 [style-path (or/c bytes? path-string? (cons/c 'collects (listof bytes?)))] 19 [extra-files (listof (or/c path-string? (cons/c 'collects (listof bytes?))))])] 20 [css-style-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)) url? bytes?)])] 21 [js-style-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)) url? bytes?)])] 22 23 [url-anchor ([name string?])] 24 [alt-tag ([name (and/c string? #rx"^[a-zA-Z0-9]+$")])] 25 [attributes ([assoc (listof (cons/c symbol? string?))])] 26 [column-attributes ([assoc (listof (cons/c symbol? string?))])] 27 28 [part-link-redirect ([url url?])] 29 [install-resource ([path path-string?])] 30 [link-resource ([path path-string?])] 31 32 [head-extra ([xexpr xexpr/c])] 33 [head-addition ([xexpr xexpr/c])] 34 [render-convertible-as ([types (listof (or/c 'png-bytes 'svg-bytes 'gif-bytes))])])