bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit f8a2e95c60d097adb9a4a9d6e884c8dfb516a4bc
parent 70da0389e683f00da9abe4eb4bddb68a4158b995
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sun,  8 Jul 2007 07:01:04 +0000

fx litchar spacing with leading and trailing spaces

svn: r6855

original commit: e5e12d6c53164f6dedae6fab261c60259db3d154

Diffstat:
M
collects/scribble/manual.ss
 | 
9
+++++----
M
collects/scribble/scribble.css
 | 
4
++++

2 files changed, 9 insertions(+), 4 deletions(-)
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -70,10 +70,11 @@
                          strs))])
       (let ([spaces (regexp-match-positions #rx"^ *" s)]
             [end-spaces (regexp-match-positions #rx" *$" s)])
-        (make-element "schemeinput" 
-                      (list (hspace (cdar spaces))
-                            (make-element #f (list (substring s (cdar spaces) (caar end-spaces))))
-                            (hspace (- (cdar end-spaces) (caar end-spaces))))))))
+        (make-element
+         "schemeinputbg"
+         (list (hspace (cdar spaces))
+               (make-element "schemeinput" (list (substring s (cdar spaces) (caar end-spaces))))
+               (hspace (- (cdar end-spaces) (caar end-spaces))))))))
 
   (define (verbatim s)
     (let ([strs (regexp-split #rx"\n" s)])
diff --git a/collects/scribble/scribble.css b/collects/scribble/scribble.css
@@ -234,6 +234,10 @@
                font-family: Courier; font-size: 80%;
                }
 
+               .schemeinputbg {
+               background-color: #eeeeee;
+               }
+
                .schemeparen {
                color: #843c24;
                font-family: Courier; font-size: 80%;