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

commit 3f6dffb954bd716e2b35f9cea2ed9cb764404c2a
parent f8a2e95c60d097adb9a4a9d6e884c8dfb516a4bc
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sun,  8 Jul 2007 12:05:12 +0000

fix latex output, and adjust alignment in HTML upper-left TOC

svn: r6857

original commit: e07e5dfe83e7d42fcac2e2e2d5512815fff799eb

Diffstat:
M
collects/scribble/html-render.ss
 | 
3
++-
M
collects/scribble/latex-render.ss
 | 
6
+++---

2 files changed, 5 insertions(+), 4 deletions(-)
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
@@ -82,7 +82,8 @@
                    (cellspacing "0"))
                   ,@(map (lambda (p)
                            `(tr
-                             (td
+                             (td 
+                              ((align "right"))
                               ,@(format-number (collected-info-number (part-collected-info p))
                                                '((tt nbsp))))
                              (td
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
@@ -46,7 +46,7 @@
         (printf "\\definecolor{OutputColor}{rgb}{0.59,0.00,0.59}\n")
         (define-color "schemecomment" "CommentColor")
         (define-color "schemeparen" "ParenColor")
-        (define-color "schemeinputcol" "ParenColor")
+        (define-color "schemeinputbg" "ParenColor")
         (define-color "schemesymbol" "IdentifierColor")
         (define-color "schemevalue" "ValueColor")
         (define-color "schemevaluelink" "blue")
@@ -65,8 +65,8 @@
         (printf "\\newcommand{\\smaller}[1]{{\\footnotesize #1}}\n")
         (printf "\\definecolor{PaleBlue}{rgb}{0.90,0.90,1.0}\n")
         (printf "\\definecolor{LightGray}{rgb}{0.90,0.90,0.90}\n")
-        (printf "\\newcommand{\\schemeinput}[1]{\\colorbox{LightGray}{\\hspace{-0.5ex}\\schemeinputcol{#1}\\hspace{-0.5ex}}}\n")
-        (printf "\\newcommand{\\highlighted}[1]{\\colorbox{PaleBlue}{\\hspace{-0.5ex}\\schemeinputcol{#1}\\hspace{-0.5ex}}}\n")
+        (printf "\\newcommand{\\schemeinput}[1]{\\colorbox{LightGray}{\\hspace{-0.5ex}\\schemeinputbg{#1}\\hspace{-0.5ex}}}\n")
+        (printf "\\newcommand{\\highlighted}[1]{\\colorbox{PaleBlue}{\\hspace{-0.5ex}\\schemeinputbg{#1}\\hspace{-0.5ex}}}\n")
         (printf "\\newcommand{\\techlink}[1]{#1}\n")
         (printf "\\newcommand{\\imageleft}[1]{} % drop it\n")
         (printf "\\begin{document}\n")