diff --git a/collects/drscheme/drscheme.scrbl b/collects/drscheme/drscheme.scrbl index fb643006fe..f3a2c43056 100644 --- a/collects/drscheme/drscheme.scrbl +++ b/collects/drscheme/drscheme.scrbl @@ -4,7 +4,7 @@ (require scribble/manual) ] -@title{PLT DrScheme: Programming Environment Manual} +@title{@bold{DrScheme}: PLT Programming Environment Manual} Nothing yet. diff --git a/collects/drscheme/tools.scrbl b/collects/drscheme/tools.scrbl index 60ce6ec6cc..abd7fab1d1 100644 --- a/collects/drscheme/tools.scrbl +++ b/collects/drscheme/tools.scrbl @@ -11,7 +11,7 @@ (define (item/cap x . ys) (apply item (bold (format "~a" x)) ": " ys)) ;; indexing missing ] -@title{PLT Plugins: DrScheme Extension Manual} +@title{@bold{Plugins}: Extending DrScheme} @section{This Manual} diff --git a/collects/framework/framework.scrbl b/collects/framework/framework.scrbl index 05dfc6febb..57dc3953b6 100644 --- a/collects/framework/framework.scrbl +++ b/collects/framework/framework.scrbl @@ -4,7 +4,7 @@ (require scribble/manual) ] -@title{PLT Framework: GUI Application Framework} +@title{@bold{Framework}: PLT GUI Application Framework} Nothing yet. diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss index 9219a78e62..7a7ea592aa 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 65edba731f..4ab5f22088 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/foreign/foreign.scrbl b/collects/scribblings/foreign/foreign.scrbl index 2263890343..09ca8a30b5 100644 --- a/collects/scribblings/foreign/foreign.scrbl +++ b/collects/scribblings/foreign/foreign.scrbl @@ -1,7 +1,7 @@ #lang scribble/doc @(require "utils.ss") -@title{PLT Foreign Interface Manual} +@title{@bold{FFI}: PLT Foreign Interface} @defmodule[scheme/foreign] diff --git a/collects/scribblings/gui/gui.scrbl b/collects/scribblings/gui/gui.scrbl index 3c48abc3ab..6918f91fd7 100644 --- a/collects/scribblings/gui/gui.scrbl +++ b/collects/scribblings/gui/gui.scrbl @@ -2,7 +2,7 @@ @require["common.ss"] @title[#:tag-prefix '(lib "scribblings/gui/gui.scrbl") - #:tag "top"]{PLT Scheme GUI: MrEd} + #:tag "top"]{@bold{GUI}: PLT Graphics Toolkit} @declare-exporting[scheme/gui/base scheme/gui] diff --git a/collects/scribblings/guide/guide.scrbl b/collects/scribblings/guide/guide.scrbl index 6c24308e06..4d8e816217 100644 --- a/collects/scribblings/guide/guide.scrbl +++ b/collects/scribblings/guide/guide.scrbl @@ -4,7 +4,7 @@ @require["guide-utils.ss"] @title[#:tag-prefix '(lib "scribblings/guide/guide.scrbl") - #:tag "top"]{A Guide to PLT Scheme} + #:tag "top"]{@bold{Guide}: PLT Scheme} This guide is intended for programmers who are new to Scheme, new to PLT Scheme, or new to some part of PLT Scheme. It assumes diff --git a/collects/scribblings/inside/inside.scrbl b/collects/scribblings/inside/inside.scrbl index 3d10bced35..f391dc3fea 100644 --- a/collects/scribblings/inside/inside.scrbl +++ b/collects/scribblings/inside/inside.scrbl @@ -2,7 +2,7 @@ @(require "utils.ss") @title[#:tag-prefix '(lib "scribblings/inside/inside.scrbl") - #:tag "top"]{Inside PLT Scheme} + #:tag "top"]{@bold{Inside}: PLT Scheme C API} This manual describes PLT Scheme's C interface, which allows the interpreter to be extended by a dynamically-loaded library, or diff --git a/collects/scribblings/quick/quick.scrbl b/collects/scribblings/quick/quick.scrbl index 5e31be1b15..79b243404b 100644 --- a/collects/scribblings/quick/quick.scrbl +++ b/collects/scribblings/quick/quick.scrbl @@ -1,7 +1,7 @@ #lang scribble/doc @title[#:tag-prefix '(lib "quick.scrbl" "scribblings/quick") - #:tag "top"]{An Introduction to PLT Scheme with Pictures} + #:tag "top"]{@bold{Quick}: An Introduction to PLT Scheme with Pictures} @; ---------------------------------------------------------------------- diff --git a/collects/scribblings/reference/reference.scrbl b/collects/scribblings/reference/reference.scrbl index 6587519108..53b18b1e73 100644 --- a/collects/scribblings/reference/reference.scrbl +++ b/collects/scribblings/reference/reference.scrbl @@ -2,7 +2,7 @@ @require["mz.ss"] @title[#:tag-prefix '(lib "scribblings/reference/reference.scrbl") - #:tag "top"]{PLT Scheme Reference} + #:tag "top"]{@bold{Reference}: PLT Scheme} This manual defines the core PLT Scheme language and describes its most prominent libraries. The companion manual @|Guide| provides a diff --git a/collects/scribblings/scribble/scribble.scrbl b/collects/scribblings/scribble/scribble.scrbl index 9e468222d8..60a4598431 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. diff --git a/collects/scribblings/slideshow/slideshow.scrbl b/collects/scribblings/slideshow/slideshow.scrbl index 1319544a22..09479c859b 100644 --- a/collects/scribblings/slideshow/slideshow.scrbl +++ b/collects/scribblings/slideshow/slideshow.scrbl @@ -3,7 +3,7 @@ @define[paper-url "http://www.cs.utah.edu/plt/publications/jfp05-ff.pdf"] -@title{Slideshow} +@title{@bold{Slideshow}: PLT Figure and Presentation Tools} Slideshow is a library for creating presentation slides. Unlike Powerpoint, Slideshow provides no WYSIWYG interface for constructing diff --git a/collects/scribblings/start/start.scrbl b/collects/scribblings/start/start.scrbl index 3a47bdbcc7..8672df841c 100644 --- a/collects/scribblings/start/start.scrbl +++ b/collects/scribblings/start/start.scrbl @@ -23,6 +23,11 @@ (resolve "gui") 'blank)) +(define ending-ones + (list 'blank + (resolve "foreign") + (resolve "inside"))) + (let* ([dirs (find-relevant-directories '(scribblings))] [infos (map get-info/full dirs)] [docs (apply append @@ -40,7 +45,7 @@ (list (make-flow (list (make-paragraph (list (if (eq? doc 'blank) (hspace 1) - (secref #:doc doc "top"))))))))]) + (secref #:doc doc #:underline? #f "top"))))))))]) (make-delayed-flow-element (lambda (renderer part resolve-info) @@ -49,12 +54,14 @@ (append (map line initial-ones) (sort (map line - (remove* initial-ones - (remove (resolve "start") - docs))) + (remove* (append initial-ones + ending-ones) + (remove (resolve "start") + docs))) (lambda (a b) (let ([a (car (paragraph-content (car (flow-paragraphs (car a)))))] [b (car (paragraph-content (car (flow-paragraphs (car b)))))]) (string-cistring a renderer part resolve-info) - (element->string b renderer part resolve-info)))))))))) + (element->string b renderer part resolve-info))))) + (map line ending-ones)))))) ] diff --git a/doc/release-notes/mzscheme/MzScheme_4.txt b/doc/release-notes/mzscheme/MzScheme_4.txt index 3e99e5b9d9..f3e6e6ea40 100644 --- a/doc/release-notes/mzscheme/MzScheme_4.txt +++ b/doc/release-notes/mzscheme/MzScheme_4.txt @@ -307,21 +307,21 @@ with some syntactic and name changes. (define-struct posn (x y)) ; does not declare `set-posn-x!' - Specify the #:mutable optional for either the entire structure type - or an individual field: + Specify the #:mutable optional for either the entire structure type + or an individual field: - (define-struct posn (x y) - #:mutable) ; => `set-posn-x!' and `set-posn-x!' - (define-struct posn ([x #:mutable] y) ; => just `set-posn-x!' + (define-struct posn (x y) + #:mutable) ; => `set-posn-x!' and `set-posn-x!' + (define-struct posn ([x #:mutable] y) ; => just `set-posn-x!' - Use the #:inspector option to specify an inspector, such as - specifying #f to make the structure type tranparent: + Use the #:inspector option to specify an inspector, such as + specifying #f to make the structure type tranparent: - (define-struct posn (x y) #:inspector #f) + (define-struct posn (x y) #:inspector #f) - Other keyword options such as #:property and #:procedure enable - `define-struct' to reflect all of the funtionality of the underlying - `make-struct-type' function. + Other keyword options such as #:property and #:procedure enable + `define-struct' to reflect all of the funtionality of the + underlying `make-struct-type' function. * One-armed `if' is prohibited; use `when', instead.