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

commit 497610de8dec8360077f77b3b7d3d37e5d7667f7
parent 6612b39d5ea16ea369d4f4c395653f395d5c9959
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sun, 27 May 2007 00:00:11 +0000

guide edits

svn: r6342

original commit: b6391ebfdd0cd710b632714b61305edf401fa602

Diffstat:
M
collects/scribble/html-render.ss
 | 
2
+-
M
collects/scribble/scheme.ss
 | 
12
++++++++++++
M
collects/scribble/scribble.css
 | 
3
++-

3 files changed, 15 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
@@ -183,7 +183,7 @@
 
       (define/override (render-table t part ht)
         `((table ((cellspacing "0") ,@(case (table-style t)
-                                        [(boxed) '((width "100%") (bgcolor "lightgray"))]
+                                        [(boxed) '((width "100%") (bgcolor "#E8E8FF"))]
                                         [(centered) '((align "center"))]
                                         [(at-right) '((align "right"))]
                                         [(at-left) '((align "left"))]
diff --git a/collects/scribble/scheme.ss b/collects/scribble/scheme.ss
@@ -248,6 +248,18 @@
                    p-color)
               (set! src-col (+ src-col 1))
               (hash-table-put! col-map src-col dest-col))]
+           [(hash-table? (syntax-e c))
+            (advance c init-line!)
+            (let ([equal-table? (hash-table? (syntax-e c) 'equal)])
+              (out (if equal-table?
+                       "#hash"
+                       "#hasheq")
+                   value-color)
+              (set! src-col (+ src-col 5 (if equal-table? 2 0)))
+              (hash-table-put! col-map src-col dest-col)
+              ((loop init-line! +inf.0)
+               (syntax-ize (hash-table-map (syntax-e c) cons)
+                           (syntax-column c))))]
            [else
             (advance c init-line!)
             (let-values ([(s it? sub?)
diff --git a/collects/scribble/scribble.css b/collects/scribble/scribble.css
@@ -18,11 +18,12 @@
                }
 
                .refcontent { 
-                background-color: beige;
+                background-color: #F5F5DC;
                 display: block;
                 position: relative;
                 width: 10em;
                 font-size: 85%;
+                border: 0.5em solid #F5F5DC;
                }
 
                h1,h2,h3,h4,h5,h6 {