From 0b71ebecafca03470c2e26783e5afbf05df30dce Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 14 Apr 2012 14:54:19 -0500 Subject: [PATCH] adjust the way 'new' is laid out in the documentation to be more DrRacket-like --- collects/scribble/private/manual-proc.rkt | 6 ++++-- collects/scribble/private/manual-utils.rkt | 2 ++ 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/scribble/private/manual-proc.rkt b/collects/scribble/private/manual-proc.rkt index 5499aabbae..3665333d3a 100644 --- a/collects/scribble/private/manual-proc.rkt +++ b/collects/scribble/private/manual-proc.rkt @@ -363,7 +363,7 @@ (list flow-spacer) (list flow-spacer flow-spacer flow-spacer flow-spacer))] - [one-ok? (tagged+arg-width . < . 60)]) + [one-ok? (and (not (eq? mode 'new)) (tagged+arg-width . < . 60))]) (list (make-table "prototype" @@ -393,7 +393,9 @@ (arg-id (cadr args))))))]) (cons (list* - flow-spacer + (if (eq? mode 'new) + (flow-spacer/n 3) + flow-spacer) (if (arg-starts-optional? (car args)) (to-flow (make-element #f (list spacer "["))) flow-spacer) diff --git a/collects/scribble/private/manual-utils.rkt b/collects/scribble/private/manual-utils.rkt index 4a07d68ebe..05c476849e 100644 --- a/collects/scribble/private/manual-utils.rkt +++ b/collects/scribble/private/manual-utils.rkt @@ -11,6 +11,7 @@ [spacer element?] [to-flow (content? . -> . flow?)] [flow-spacer flow?] + [flow-spacer/n (-> exact-nonnegative-integer? flow?)] [flow-empty-line flow?] [make-table-if-necessary (content? list? . -> . (list/c (or/c omitable-paragraph? table?)))] [current-display-width (parameter/c exact-nonnegative-integer?)]) @@ -20,6 +21,7 @@ (define (to-flow e) (make-flow (list (make-omitable-paragraph (list e))))) (define flow-spacer (to-flow spacer)) +(define (flow-spacer/n n) (to-flow (hspace n))) (define flow-empty-line (to-flow (tt 'nbsp))) (define (make-table-if-necessary style content)