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

commit ff82cc48c3898dd75256ab6ee0542b04d9aba3ca
parent 3a464717531b4a9d084eb3c11d4aaf5aabb32aa1
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 23 Nov 2009 22:56:28 +0000

Scribble HTML renderer: mark internal links with 'extra-internal-attribs'

svn: r17018

original commit: 1dd2109909937385c3783a6e49bb16af09b8f097

Diffstat:
M
collects/scribble/html-render.ss
 | 
11
++++++++---

1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
@@ -43,6 +43,8 @@
                ,@(map (lambda (x) (if (string? x) x (format "~a" x))) body)
                "\n"))))
 
+(define (extra-internal-attribs) null)
+
 (define-runtime-path scribble-css "scribble.css")
 (define-runtime-path scribble-style-css "scribble-style.css")
 (define-runtime-path scribble-prefix-html "scribble-prefix.html")
@@ -359,7 +361,8 @@
          `((a ([href ,(dest->url (resolve-get t ri (car (part-tags t))))]
                [class ,(if (or (eq? t d) (and show-mine? (memq t toc-chain)))
                          "tocviewselflink"
-                         "tocviewlink")])
+                         "tocviewlink")]
+               ,@(extra-internal-attribs))
               ,@(render-content (or (part-title-content t) '("???")) d ri)))
          (format-number (collected-info-number (part-collected-info t ri))
                         '(nbsp))))
@@ -528,7 +531,8 @@
                                            ,(cond
                                               [(part? p) "tocsubseclink"]
                                               [any-parts? "tocsubnonseclink"]
-                                              [else "tocsublink"])])
+                                              [else "tocsublink"])]
+                                          ,@(extra-internal-attribs))
                                          ,@(render-content
                                             (if (part? p)
                                               (or (part-title-content p)
@@ -987,7 +991,8 @@
                         [else
                          ;; Normal link:
                          (dest->url dest)]))
-                     ,@(attribs)]
+                     ,@(attribs)
+                     ,@(extra-internal-attribs)]
                     ,@(if (empty-content? (element-content e))
                           (render-content (strip-aux (dest-title dest)) part ri)
                           (render-content (element-content e) part ri))))