suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

make scribble reader section fit narrower column

Browse Source 
svn: r6265

original commit: 3c25a6ad93e78433981e798b920f9931e9d605c6
This commit is contained in:
Matthew Flatt 2007-05-24 10:36:03 +00:00
parent 7fb6f9e3f9
commit 41c752b9b4
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scribblings/scribble/reader.scrbl
View File

@ -307,7 +307,7 @@ the end of the text. They are therefore allowed, as long as they are
balanced.
@scribble-examples[
"@foo{f{o}o}"]
"@foo{f{o}o}"
]
There is also an alternative syntax for the body, one that specifies a
@ -492,8 +492,8 @@ the need for functions, for example:
@verbatim[
#<<EOS
> (define (important . text) @`b{@u{@big{@,@text}}})
> (important @`p{This is an important announcement!
> (important @`p{An important announcement!
Read it!})
(b (u (big (p "This is an important announcement!" "\n" "Read it!"))))
(b (u (big (p "An important announcement!" "\n" "Read it!"))))
EOS
]

7
collects/scribblings/scribble/utils.ss
View File

@ -35,7 +35,12 @@
(map (lambda (line)
(let ([line (if (string? line)
(list (litchar/lines line)
(scheme:to-element (scribble:read (open-input-string line))))
(scheme:to-paragraph
(let ([p (open-input-string line)])
(port-count-lines! p)
(if (regexp-match? #rx"\n" line)
(scribble:read-syntax #f p)
(scribble:read p)))))
line)])
(list (as-flow spacer)
(as-flow (if line (car line) ""))