suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

scribble/html-properties: add html-addition

Browse Source
This commit is contained in:
Matthew Flatt 2020-11-06 11:48:11 -07:00
parent 8f21a9a26a
commit 7c7e1213d0
4 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scribble-doc/scribblings/scribble/core.scrbl
View File

@ -1851,6 +1851,15 @@ For a @racket[part] that corresponds to an HTML page, adds content to
the @tt{<head>} tag.}
@defstruct[head-addition ([xexpr xexpr/c])]{
Like @racket[head-extra] in content, but propagated to enclosing and
nested HTML pages like @racket[css-addition]. Additions to @tt{<head>}
via @racket[head-addition] appear before additions via @racket[head-extra].
@history[#:added "1.38"]}
@defstruct[render-convertible-as ([types (listof (or/c 'png-bytes 'svg-bytes 'gif-bytes))])]{
For a @racket[part] that corresponds to an HTML page,
controls how objects that subscribe to the @racketmodname[file/convertible]

2
scribble-lib/info.rkt
View File

@ -23,4 +23,4 @@
(define pkg-authors '(mflatt eli))
(define version "1.37")
(define version "1.38")

1
scribble-lib/scribble/html-properties.rkt
View File

@ -30,4 +30,5 @@
[link-resource ([path path-string?])]
[head-extra ([xexpr xexpr/c])]
[head-addition ([xexpr xexpr/c])]
[render-convertible-as ([types (listof (or/c 'png-bytes 'svg-bytes 'gif-bytes))])])

1
scribble-lib/scribble/html-render.rkt
View File

@ -894,6 +894,7 @@
(extract js-style-addition? js-style-addition-path)
(reverse extra-script-files)))
,(xml:comment "[if IE 6]><style type=\"text/css\">.SIEHidden { overflow: hidden; }</style><![endif]")
,@(extract head-addition? head-addition-xexpr)
,@(for/list ([p (style-properties (part-style d))]
#:when (head-extra? p))
(head-extra-xexpr p)))