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

more scribble reader section fixes (for IE)

Browse Source 
svn: r6877

original commit: a1b7fd3d361bb4c8b468f832f7af05add2be354c
This commit is contained in:
Matthew Flatt 2007-07-10 02:02:29 +00:00
parent 6dfc4f01e4
commit 28365e8078
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -338,7 +338,7 @@ the opening marker to have the text terminated by a @litchar["}|"].
@scribble-examples|==={ @scribble-examples|==={
@foo|{...}| @foo|{...}|
@foo|{"}" closes, "{" opens}| @foo|{"}" follows "{"}|
@foo|{Nesting |{is}| ok}| @foo|{Nesting |{is}| ok}|
}===| }===|
@ -474,7 +474,6 @@ A single newline that follows an open brace or precedes a closing
brace is discarded, unless there are only newlines in the body; other brace is discarded, unless there are only newlines in the body; other
newlines are read as a @scheme["\n"] string newlines are read as a @scheme["\n"] string
@;FIXME empty lines are ignored in generated HTML output (with IE?)
@scribble-examples|==={ @scribble-examples|==={
@foo{bar @foo{bar
} }

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

@ -15,7 +15,10 @@
(make-table (make-table
#f #f
(map (lambda (s) (map (lambda (s)
(list (make-flow (list (make-paragraph (list (litchar s))))))) (list (make-flow (list (make-paragraph
(if (string=? s "")
'(nbsp) ; needed for IE
(list (litchar s))))))))
strs))))) strs)))))
(define (as-flow e) (define (as-flow e)