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

move release notes in appropriate packages

Browse Source 
A collection declares release notes with a `release-notes' field in
"info.rkt".

The "doc" directory is now populated exclusively by generated content,
instead of having a static "release-notes" directory (and a "keep-dirs.rktd"
file to record the static directories).

original commit: fa6f56fcb118a99a803697de6cdc7ee7fd9688a4
This commit is contained in:
Matthew Flatt 2013-06-19 20:25:12 -06:00
parent b79fa2c540
commit 86f7170151
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,5 +22,6 @@
[part-link-redirect ([url url?])] [part-link-redirect ([url url?])]
[install-resource ([path path-string?])] [install-resource ([path path-string?])]
[link-resource ([path path-string?])]
[head-extra ([xexpr xexpr/c])]) [head-extra ([xexpr xexpr/c])])

12
pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt
View File

@ -1262,7 +1262,11 @@
[resources (for/list ([p (in-list properties)] [resources (for/list ([p (in-list properties)]
#:when (install-resource? p)) #:when (install-resource? p))
(install-resource-path p))] (install-resource-path p))]
[link? (and (ormap target-url? properties) [link-resource (for/or ([p (in-list properties)]
#:when (link-resource? p))
(link-resource-path p))]
[link? (and (or (ormap target-url? properties)
link-resource)
(not (current-no-links)))] (not (current-no-links)))]
[anchor? (ormap url-anchor? properties)] [anchor? (ormap url-anchor? properties)]
[attribs [attribs
@ -1317,7 +1321,11 @@
[link? 'a] [link? 'a]
[newline? 'br] [newline? 'br]
[else 'span]) [else 'span])
,attribs ,(append
(if link-resource
`([href ,(install-file link-resource)])
null)
attribs)
,@content)))))) ,@content))))))
(define/private (element-style->attribs name style [extras null]) (define/private (element-style->attribs name style [extras null])