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

fx litchar spacing with leading and trailing spaces

Browse Source 
svn: r6855

original commit: e5e12d6c53164f6dedae6fab261c60259db3d154
This commit is contained in:
Matthew Flatt 2007-07-08 07:01:04 +00:00
parent 70da0389e6
commit f8a2e95c60
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scribble/manual.ss
View File

@ -70,9 +70,10 @@
strs))])
(let ([spaces (regexp-match-positions #rx"^ *" s)]
[end-spaces (regexp-match-positions #rx" *$" s)])
(make-element "schemeinput"
(make-element
"schemeinputbg"
(list (hspace (cdar spaces))
(make-element #f (list (substring s (cdar spaces) (caar end-spaces))))
(make-element "schemeinput" (list (substring s (cdar spaces) (caar end-spaces))))
(hspace (- (cdar end-spaces) (caar end-spaces))))))))
(define (verbatim s)

4
collects/scribble/scribble.css
View File

@ -234,6 +234,10 @@
font-family: Courier; font-size: 80%;
}
.schemeinputbg {
background-color: #eeeeee;
}
.schemeparen {
color: #843c24;
font-family: Courier; font-size: 80%;