suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

adjust the way 'new' is laid out in the documentation to be more DrRacket-like

Browse Source 
original commit: 0b71ebecafca03470c2e26783e5afbf05df30dce
This commit is contained in:
Robby Findler 2012-04-14 14:54:19 -05:00
parent da393a6b19
commit 9a97f6693f
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scribble/private/manual-proc.rkt
View File

@ -363,7 +363,7 @@
(list flow-spacer) (list flow-spacer)
(list flow-spacer flow-spacer (list flow-spacer flow-spacer
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 (list
(make-table (make-table
"prototype" "prototype"
@ -393,7 +393,9 @@
(arg-id (cadr args))))))]) (arg-id (cadr args))))))])
(cons (cons
(list* (list*
flow-spacer (if (eq? mode 'new)
(flow-spacer/n 3)
flow-spacer)
(if (arg-starts-optional? (car args)) (if (arg-starts-optional? (car args))
(to-flow (make-element #f (list spacer "["))) (to-flow (make-element #f (list spacer "[")))
flow-spacer) flow-spacer)

2
collects/scribble/private/manual-utils.rkt
View File

@ -11,6 +11,7 @@
[spacer element?] [spacer element?]
[to-flow (content? . -> . flow?)] [to-flow (content? . -> . flow?)]
[flow-spacer flow?] [flow-spacer flow?]
[flow-spacer/n (-> exact-nonnegative-integer? flow?)]
[flow-empty-line flow?] [flow-empty-line flow?]
[make-table-if-necessary (content? list? . -> . (list/c (or/c omitable-paragraph? table?)))] [make-table-if-necessary (content? list? . -> . (list/c (or/c omitable-paragraph? table?)))]
[current-display-width (parameter/c exact-nonnegative-integer?)]) [current-display-width (parameter/c exact-nonnegative-integer?)])
@ -20,6 +21,7 @@
(define (to-flow e) (define (to-flow e)
(make-flow (list (make-omitable-paragraph (list e))))) (make-flow (list (make-omitable-paragraph (list e)))))
(define flow-spacer (to-flow spacer)) (define flow-spacer (to-flow spacer))
(define (flow-spacer/n n) (to-flow (hspace n)))
(define flow-empty-line (to-flow (tt 'nbsp))) (define flow-empty-line (to-flow (tt 'nbsp)))
(define (make-table-if-necessary style content) (define (make-table-if-necessary style content)