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

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

Browse Source 
svn: r6857

original commit: e07e5dfe83e7d42fcac2e2e2d5512815fff799eb
This commit is contained in:
Matthew Flatt 2007-07-08 12:05:12 +00:00
parent f8a2e95c60
commit 3f6dffb954
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/html-render.ss
View File

@ -82,7 +82,8 @@
(cellspacing "0")) (cellspacing "0"))
,@(map (lambda (p) ,@(map (lambda (p)
`(tr `(tr
(td (td
((align "right"))
,@(format-number (collected-info-number (part-collected-info p)) ,@(format-number (collected-info-number (part-collected-info p))
'((tt nbsp)))) '((tt nbsp))))
(td (td

6
collects/scribble/latex-render.ss
View File

@ -46,7 +46,7 @@
(printf "\\definecolor{OutputColor}{rgb}{0.59,0.00,0.59}\n") (printf "\\definecolor{OutputColor}{rgb}{0.59,0.00,0.59}\n")
(define-color "schemecomment" "CommentColor") (define-color "schemecomment" "CommentColor")
(define-color "schemeparen" "ParenColor") (define-color "schemeparen" "ParenColor")
(define-color "schemeinputcol" "ParenColor") (define-color "schemeinputbg" "ParenColor")
(define-color "schemesymbol" "IdentifierColor") (define-color "schemesymbol" "IdentifierColor")
(define-color "schemevalue" "ValueColor") (define-color "schemevalue" "ValueColor")
(define-color "schemevaluelink" "blue") (define-color "schemevaluelink" "blue")
@ -65,8 +65,8 @@
(printf "\\newcommand{\\smaller}[1]{{\\footnotesize #1}}\n") (printf "\\newcommand{\\smaller}[1]{{\\footnotesize #1}}\n")
(printf "\\definecolor{PaleBlue}{rgb}{0.90,0.90,1.0}\n") (printf "\\definecolor{PaleBlue}{rgb}{0.90,0.90,1.0}\n")
(printf "\\definecolor{LightGray}{rgb}{0.90,0.90,0.90}\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{\\schemeinput}[1]{\\colorbox{LightGray}{\\hspace{-0.5ex}\\schemeinputbg{#1}\\hspace{-0.5ex}}}\n")
(printf "\\newcommand{\\highlighted}[1]{\\colorbox{PaleBlue}{\\hspace{-0.5ex}\\schemeinputcol{#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{\\techlink}[1]{#1}\n")
(printf "\\newcommand{\\imageleft}[1]{} % drop it\n") (printf "\\newcommand{\\imageleft}[1]{} % drop it\n")
(printf "\\begin{document}\n") (printf "\\begin{document}\n")