adjust document names

svn: r7968

original commit: a559a710d48b07411811c22045f77a9ef7a1750f
This commit is contained in:
Matthew Flatt 2007-12-12 16:31:57 +00:00
parent 5caf386a47
commit 2991306101
3 changed files with 10 additions and 5 deletions

View File

@ -1527,10 +1527,10 @@
s) s)
s)) s))
(define (secref s #:doc [doc #f]) (define (secref s #:underline? [u? #t] #:doc [doc #f])
(make-link-element #f null `(part ,(doc-prefix doc s)))) (make-link-element (if u? #f "plainlink") null `(part ,(doc-prefix doc s))))
(define (seclink tag #:doc [doc #f] . s) (define (seclink tag #:underline? [u? #t] #:doc [doc #f] . s)
(make-link-element #f (decode-content s) `(part ,(doc-prefix doc tag)))) (make-link-element (if u? #f "plainlink") (decode-content s) `(part ,(doc-prefix doc tag))))
(define (*schemelink stx-id id . s) (define (*schemelink stx-id id . s)
(make-link-element #f (decode-content s) (or (register-scheme-definition stx-id) (make-link-element #f (decode-content s) (or (register-scheme-definition stx-id)
(format "--UNDEFINED:~a--" (syntax-e stx-id))))) (format "--UNDEFINED:~a--" (syntax-e stx-id)))))

View File

@ -390,6 +390,11 @@
color: red; color: red;
} }
.plainlink {
text-decoration: none;
color: blue;
}
.techlink { .techlink {
text-decoration: none; text-decoration: none;
color: black; color: black;

View File

@ -4,7 +4,7 @@
@require["utils.ss"] @require["utils.ss"]
@title[#:tag-prefix '(lib "scribblings/scribble/scribble.scrbl") @title[#:tag-prefix '(lib "scribblings/scribble/scribble.scrbl")
#:tag "top"]{Scribble} #:tag "top"]{@bold{Scribble}: PLT Documentation Tool}
The @filepath{scribble} collection provides libraries that can be used to The @filepath{scribble} collection provides libraries that can be used to
create documents from Scheme. create documents from Scheme.