From 2991306101c90b8a9774b16e7c981926726c45b7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 12 Dec 2007 16:31:57 +0000
Subject: [PATCH] adjust document names

svn: r7968

original commit: a559a710d48b07411811c22045f77a9ef7a1750f
---
 collects/scribble/manual.ss                  | 8 ++++----
 collects/scribble/scribble.css               | 5 +++++
 collects/scribblings/scribble/scribble.scrbl | 2 +-
 3 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
index 9219a78e..7a7ea592 100644
--- a/collects/scribble/manual.ss
+++ b/collects/scribble/manual.ss
@@ -1527,10 +1527,10 @@
                 s)
         s))
 
-  (define (secref s #:doc [doc #f])
-    (make-link-element #f null `(part ,(doc-prefix doc s))))
-  (define (seclink tag #:doc [doc #f] . s)
-    (make-link-element #f (decode-content s) `(part ,(doc-prefix doc tag))))
+  (define (secref s #:underline? [u? #t] #:doc [doc #f])
+    (make-link-element (if u? #f "plainlink") null `(part ,(doc-prefix doc s))))
+  (define (seclink tag #:underline? [u? #t] #:doc [doc #f] . s)
+    (make-link-element (if u? #f "plainlink") (decode-content s) `(part ,(doc-prefix doc tag))))
   (define (*schemelink stx-id id . s)
     (make-link-element #f (decode-content s) (or (register-scheme-definition stx-id)
                                                  (format "--UNDEFINED:~a--" (syntax-e stx-id)))))
diff --git a/collects/scribble/scribble.css b/collects/scribble/scribble.css
index 65edba73..4ab5f220 100644
--- a/collects/scribble/scribble.css
+++ b/collects/scribble/scribble.css
@@ -390,6 +390,11 @@
                color: red;
                }
 
+               .plainlink { 
+               text-decoration: none;
+               color: blue;
+               }
+
                .techlink { 
                text-decoration: none;
                color: black;
diff --git a/collects/scribblings/scribble/scribble.scrbl b/collects/scribblings/scribble/scribble.scrbl
index 9e468222..60a45984 100644
--- a/collects/scribblings/scribble/scribble.scrbl
+++ b/collects/scribblings/scribble/scribble.scrbl
@@ -4,7 +4,7 @@
 @require["utils.ss"]
 
 @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
 create documents from Scheme.