adjust document names

svn: r7968
This commit is contained in:
Matthew Flatt 2007-12-12 16:31:57 +00:00
parent 6b2be05771
commit a559a710d4
15 changed files with 43 additions and 31 deletions

View File

@ -4,7 +4,7 @@
(require scribble/manual)
]
@title{PLT DrScheme: Programming Environment Manual}
@title{@bold{DrScheme}: PLT Programming Environment Manual}
Nothing yet.

View File

@ -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}

View File

@ -4,7 +4,7 @@
(require scribble/manual)
]
@title{PLT Framework: GUI Application Framework}
@title{@bold{Framework}: PLT GUI Application Framework}
Nothing yet.

View File

@ -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)))))

View File

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

View File

@ -1,7 +1,7 @@
#lang scribble/doc
@(require "utils.ss")
@title{PLT Foreign Interface Manual}
@title{@bold{FFI}: PLT Foreign Interface}
@defmodule[scheme/foreign]

View File

@ -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]

View File

@ -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

View File

@ -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

View File

@ -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}
@; ----------------------------------------------------------------------

View File

@ -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

View File

@ -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.

View File

@ -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

View File

@ -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* (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-ci<? (element->string a renderer part resolve-info)
(element->string b renderer part resolve-info))))))))))
(element->string b renderer part resolve-info)))))
(map line ending-ones))))))
]

View File

@ -320,8 +320,8 @@ with some syntactic and name changes.
(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.
`define-struct' to reflect all of the funtionality of the
underlying `make-struct-type' function.
* One-armed `if' is prohibited; use `when', instead.