diff --git a/collects/scribble/text-render.rkt b/collects/scribble/text-render.rkt index 8f7585f2..75b7f245 100644 --- a/collects/scribble/text-render.rkt +++ b/collects/scribble/text-render.rkt @@ -71,7 +71,6 @@ (render-block p part ht #f)) (cdr f))))) - (define/override (render-intrapara-block p part ri first? last? starting-item?) (unless first? (indented-newline)) (super render-intrapara-block p part ri first? last? starting-item?)) @@ -110,7 +109,7 @@ (when indent? (indent)) (for/fold ([space? #f]) ([col (in-list sub-row)] [w (in-list widths)]) - (when space? (display " ")) + ; (when space? (display " ")) (let ([col (if (eq? col 'cont) "" col)]) @@ -173,6 +172,17 @@ (parameterize ([current-preserve-spaces #t]) (super render-content i part ri)) (super render-content i part ri))) + + (define/override (render-nested-flow i part ri) + (let ([s (nested-flow-style i)]) + (if (and s + (or (eq? (style-name s) 'inset) + (eq? (style-name s) 'code-inset))) + (begin + (printf " ") + (parameterize ([current-indent (make-indent 2)]) + (super render-nested-flow i part ri))) + (super render-nested-flow i part ri)))) (define/override (render-other i part ht) (cond diff --git a/collects/tests/scribble/docs/codeblock-quote.txt b/collects/tests/scribble/docs/codeblock-quote.txt index c3a5f9c1..b87b3a37 100644 --- a/collects/tests/scribble/docs/codeblock-quote.txt +++ b/collects/tests/scribble/docs/codeblock-quote.txt @@ -1,4 +1,4 @@ quote - @itemlist[#:style 'ordered - @item{Eat cookie.}] + @itemlist[#:style 'ordered + @item{Eat cookie.}] diff --git a/collects/tests/scribble/docs/eval-false.txt b/collects/tests/scribble/docs/eval-false.txt index 6999c44c..68ee0ab2 100644 --- a/collects/tests/scribble/docs/eval-false.txt +++ b/collects/tests/scribble/docs/eval-false.txt @@ -1,3 +1,3 @@ Example: - > #f - #f + > #f + #f diff --git a/collects/tests/scribble/docs/print-lines.txt b/collects/tests/scribble/docs/print-lines.txt index 47009bd0..eeec2c61 100644 --- a/collects/tests/scribble/docs/print-lines.txt +++ b/collects/tests/scribble/docs/print-lines.txt @@ -1,17 +1,17 @@ Pretty-Print-Handler Bug Example Example: - > '((x "positional 1") - (rest ("positional 2" "positional 3")) - (a ()) - (b ("b-arg")) - (c (("first c1" "second c1") ("first c2" "second c2"))) - (d #f) - (e ())) - '((x "positional 1") - (rest ("positional 2" "positional 3")) - (a ()) - (b ("b-arg")) - (c (("first c1" "second c1") ("first c2" "second c2"))) - (d #f) - (e ())) + > '((x "positional 1") + (rest ("positional 2" "positional 3")) + (a ()) + (b ("b-arg")) + (c (("first c1" "second c1") ("first c2" "second c2"))) + (d #f) + (e ())) + '((x "positional 1") + (rest ("positional 2" "positional 3")) + (a ()) + (b ("b-arg")) + (c (("first c1" "second c1") ("first c2" "second c2"))) + (d #f) + (e ())) diff --git a/collects/tests/scribble/docs/text.txt b/collects/tests/scribble/docs/text.txt index 5cdf232b..95299eeb 100644 --- a/collects/tests/scribble/docs/text.txt +++ b/collects/tests/scribble/docs/text.txt @@ -14,18 +14,18 @@ text to be generated programmatically. Here’s some Racket code: - (define half (lambda (x) - (x x))) - (x x) + (define half (lambda (x) + (x x))) + (x x) 1.2. Another Subsection (require racket/base) -(cons car cdr) -> stuff? - car : (or/c #f - other?) - cdr : any? +(cons car cdr) -> stuff? + car : (or/c #f + other?) + cdr : any? Ok?