bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 9c7e96a14c0a11857f929e3797ee2d5d68d14813
parent be502f0d4f0581f39cb8993c922f68dc8df88250
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon,  7 Jan 2008 12:48:38 +0000

some edits to the contract guide

svn: r8245

original commit: 6f2791a5031595c5de65c71d2aa94a8ac0105b28

Diffstat:
M
collects/scribble/manual.ss
 | 
12
++++++++++--
M
collects/scribble/scribble.css
 | 
5
+++++
M
collects/scribblings/scribble/manual.scrbl
 | 
6
++++++

3 files changed, 21 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -235,13 +235,14 @@
            litchar
            verbatim)
 
-  (provide image onscreen menuitem defterm
+  (provide image onscreen menuitem defterm emph
            schemefont schemevalfont schemeresultfont schemeidfont schemevarfont 
            schemeparenfont schemekeywordfont schememetafont schememodfont
            filepath exec envvar Flag DFlag PFlag DPFlag
            indexed-file indexed-envvar
            link procedure
-           idefterm)
+           idefterm
+           inset-flow)
 
   ;; String String *-> Element
   ;; an in-lined image, relative to the current directory 
@@ -255,6 +256,8 @@
     (make-element 'sf (decode-content str)))
   (define (menuitem menu item)
     (make-element 'sf (list menu "|" item)))
+  (define (emph . str)
+    (make-element 'italic (decode-content str)))
   (define (defterm . str)
     (make-element 'italic (decode-content str)))
   (define (idefterm . str)
@@ -313,6 +316,11 @@
   (define (t . str)
     (decode-paragraph str))
 
+  (define (inset-flow . c)
+    (make-blockquote
+     "insetpara"
+     (flow-paragraphs (decode-flow c))))
+
   ;; ----------------------------------------
 
   (define (gen-absolute-tag)
diff --git a/collects/scribble/scribble.css b/collects/scribble/scribble.css
@@ -133,6 +133,11 @@
                 margin-right: 0em;
                }
 
+               .insetpara { 
+                margin-left: 1em;
+                margin-right: 1em;
+               }
+
                .toclink { 
                text-decoration: none;
                color: blue;
diff --git a/collects/scribblings/scribble/manual.scrbl b/collects/scribblings/scribble/manual.scrbl
@@ -162,6 +162,9 @@ sub-form in a procedure being documented).}
 @scheme[schemefont], but colored as meta-syntax, such as backquote or
 unquote.}
 
+@defproc[(schemeerror [pre-content any/c] ...) element?]{Like
+@scheme[schemefont], but colored as error-message text.}
+
 @defproc[(procedure [pre-content any/c] ...) element?]{Typesets
 @tech{decode}d @scheme[pre-content] as a procedure name in a REPL
 result (e.g., in typewriter font with a @litchar{#<procedure:} prefix
@@ -574,6 +577,9 @@ the containing class/interface.}
 @; ------------------------------------------------------------------------
 @section{Various String Forms}
 
+@defproc[(emph [pre-content any/c] ...) element?]{Typesets the
+@tech{decode}d @scheme[pre-content] with emphasis (e.g., in italic).}
+
 @defproc[(defterm [pre-content any/c] ...) element?]{Typesets the
 @tech{decode}d @scheme[pre-content] as a defined term (e.g., in
 italic). Consider using @scheme[deftech] instead, though, so that uses