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

render tech links as gray underline, turn blue on hover

Browse Source 
svn: r10436

original commit: 80505abf29825ef03517d4ec32ef56bd5bc0777d
This commit is contained in:
Matthew Flatt 2008-06-24 15:12:45 +00:00
parent 0e7b4fe513
commit 4997fb9c79
2 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scribble/manual.ss
View File

@ -585,7 +585,13 @@
'tech))) 'tech)))
(define (tech #:doc [doc #f] . s) (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) (define (techlink #:doc [doc #f] . s)
(*tech make-link-element #f doc s)) (*tech make-link-element #f doc s))

16
collects/scribble/scribble.css
View File

@ -437,16 +437,24 @@ i {
color: blue; color: blue;
} }
.techlink { .techoutside {
text-decoration: none; text-decoration: underline;
color: #0000a0; color: #d0d0d0;
} }
.techlink:hover { .techoutside:hover {
text-decoration: underline; text-decoration: underline;
color: blue; color: blue;
} }
.techinside {
color: black;
}
.techoutside:hover > .techinside {
color: inherit;
}
.bibliography td { .bibliography td {
vertical-align: top; vertical-align: top;
} }