suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

slightly better use of CSS for tables

Browse Source 
svn: r6591

original commit: 9d8a639f496fd14684b02dec07e8aa9c7726f7ef
This commit is contained in:
Matthew Flatt 2007-06-12 10:03:32 +00:00
parent 0e44c34acd
commit 7c05bbb8ea
5 changed files with 35 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -192,12 +192,16 @@
[else (super render-element e part ht)]))) [else (super render-element e part ht)])))
(define/override (render-table t part ht) (define/override (render-table t part ht)
`((table ((cellspacing "0") ,@(case (table-style t) `((table ((cellspacing "0")
[(boxed) '((width "100%") (bgcolor "#E8E8FF"))] ,@(case (table-style t)
[(centered) '((align "center"))] [(boxed) '((class "boxed"))]
[(at-right) '((align "right"))] [(centered) '((align "center"))]
[(at-left) '((align "left"))] [(at-right) '((align "right"))]
[else null])) [(at-left) '((align "left"))]
[else null])
,@(if (string? (table-style t))
`((class ,(table-style t)))
null))
,@(map (lambda (flows) ,@(map (lambda (flows)
`(tr ,@(map (lambda (d a va) `(tr ,@(map (lambda (d a va)
`(td (,@(case a `(td (,@(case a

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

@ -49,6 +49,7 @@
(define-color "schemevaluelink" "blue") (define-color "schemevaluelink" "blue")
(define-color "schemeresult" "ResultColor") (define-color "schemeresult" "ResultColor")
(define-color "schemestdout" "OutputColor") (define-color "schemestdout" "OutputColor")
(define-color "schememeta" "IdentifierColor")
(define-color "schemevariablecol" "IdentifierColor") (define-color "schemevariablecol" "IdentifierColor")
(printf "\\newcommand{\\schemevariable}[1]{{\\schemevariablecol{\\textsl{#1}}}}\n") (printf "\\newcommand{\\schemevariable}[1]{{\\schemevariablecol{\\textsl{#1}}}}\n")
(define-color "schemeerrorcol" "red") (define-color "schemeerrorcol" "red")

8
collects/scribble/manual.ss
View File

@ -338,7 +338,7 @@
(list (make-flow (list (make-flow
(list (list
(make-table (make-table
'((valignment top top top top top)) "prototype"
(list (list
(list (list
(to-flow (to-flow
@ -383,11 +383,7 @@
(make-flow (make-flow
(list (list
(make-table (make-table
`((valignment baseline baseline baseline baseline "argcontract"
baseline baseline
,@(if (has-optional? v)
'(baseline baseline baseline baseline)
null)))
(list (list
(let ([v (if (keyword? (car v)) (let ([v (if (keyword? (car v))
(cdr v) (cdr v)

2
collects/scribble/scheme.ss
View File

@ -405,7 +405,7 @@
(unless (null? content) (unless (null? content)
(finish-line!)) (finish-line!))
(if multi-line? (if multi-line?
(make-table #f (map list (reverse docs))) (make-table "schemeblock" (map list (reverse docs)))
(make-sized-element #f (reverse content) dest-col)))) (make-sized-element #f (reverse content) dest-col))))
(define (to-element c) (define (to-element c)

21
collects/scribble/scribble.css
View File

@ -141,6 +141,27 @@
font-family: serif; font-family: serif;
} }
.boxed {
width: 100%;
background-color: #E8E8FF;
}
.prototype td {
vertical-align: baseline;
}
.schemeblock td {
vertical-align: baseline;
}
.argcontract td {
vertical-align: baseline;
}
.centered {
horiz-align: center;
}
.verbatim em { .verbatim em {
font-family: serif; font-family: serif;
} }