bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 86f717015189fc3b3c9be7e2f9c74dbac60be73d
parent b79fa2c540606b63dcfee545f1e16e97ffd432c4
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Wed, 19 Jun 2013 20:25:12 -0600

move release notes in appropriate packages

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

Diffstat:
M
pkgs/scribble-pkgs/scribble-lib/scribble/html-properties.rkt
 | 
1
+
M
pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt
 | 
12
++++++++++--

2 files changed, 11 insertions(+), 2 deletions(-)
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/html-properties.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/html-properties.rkt
@@ -22,5 +22,6 @@
 
  [part-link-redirect ([url url?])]
  [install-resource ([path path-string?])]
+ [link-resource ([path path-string?])]
 
  [head-extra ([xexpr xexpr/c])])
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt
@@ -1262,7 +1262,11 @@
              [resources (for/list ([p (in-list properties)]
                                    #:when (install-resource? 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)))]
              [anchor? (ormap url-anchor? properties)]
              [attribs
@@ -1317,7 +1321,11 @@
                    [link? 'a]
                    [newline? 'br]
                    [else 'span]) 
-                 ,attribs
+                 ,(append
+                   (if link-resource
+                       `([href ,(install-file link-resource)])
+                       null)
+                   attribs)
                  ,@content))))))
 
     (define/private (element-style->attribs name style [extras null])