diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss index 8b045418..45088773 100644 --- 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 index c7a28acb..d811b14c 100644 --- 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 index 623e162f..b47928a3 100644 --- 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{#