4b3d3a8296
Implement support for convertible GIFs in the HTML renderer, including width and height attributes to GIFs created from convertible values.
34 lines
1.5 KiB
Racket
34 lines
1.5 KiB
Racket
#lang scheme/base
|
|
(require "private/provide-structs.rkt"
|
|
racket/contract/base
|
|
xml/xexpr
|
|
net/url-structs)
|
|
|
|
(provide-structs
|
|
[body-id ([value string?])]
|
|
[document-source ([module-path module-path?])]
|
|
|
|
[xexpr-property ([before xexpr/c] [after xexpr/c])]
|
|
[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?))))])]
|
|
[css-style-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)) url? bytes?)])]
|
|
[js-style-addition ([path (or/c path-string? (cons/c 'collects (listof bytes?)) url? 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 'gif-bytes))])])
|