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

commit 4997fb9c7961f97657c0654b2b5d9eed9fdcea1e
parent 0e7b4fe5134f178ff06b1549c1bd16af64363a5a
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Tue, 24 Jun 2008 15:12:45 +0000

render tech links as gray underline, turn blue on hover

svn: r10436

original commit: 80505abf29825ef03517d4ec32ef56bd5bc0777d

Diffstat:
M
collects/scribble/manual.ss
 | 
8
+++++++-
M
collects/scribble/scribble.css
 | 
16
++++++++++++----

2 files changed, 19 insertions(+), 5 deletions(-)
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -585,7 +585,13 @@
                         'tech)))
 
 (define (tech #:doc [doc #f] . s)
-  (*tech make-link-element "techlink" doc s))
+  (*tech (lambda (style c tag)
+           (make-link-element
+            style
+            (list (make-element "techinside" c))
+            tag))
+         "techoutside"
+         doc s))
 
 (define (techlink #:doc [doc #f] . s)
   (*tech make-link-element #f doc s))
diff --git a/collects/scribble/scribble.css b/collects/scribble/scribble.css
@@ -437,16 +437,24 @@ i {
   color: blue;
 }
 
-.techlink {
-  text-decoration: none;
-  color: #0000a0;
+.techoutside {
+  text-decoration: underline;
+  color: #d0d0d0;
 }
 
-.techlink:hover {
+.techoutside:hover {
   text-decoration: underline;
   color: blue;
 }
 
+.techinside {
+  color: black;
+}
+
+.techoutside:hover > .techinside {
+  color: inherit;
+}
+
 .bibliography td {
   vertical-align: top;
 }