From ff82cc48c3898dd75256ab6ee0542b04d9aba3ca Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 23 Nov 2009 22:56:28 +0000 Subject: [PATCH] Scribble HTML renderer: mark internal links with 'extra-internal-attribs' svn: r17018 original commit: 1dd2109909937385c3783a6e49bb16af09b8f097 --- 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 index 2932141d..fcef5642 100644 --- 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))))