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

[Scribble] Fix width of multicolumn table cells

Browse Source
This commit is contained in:
Kevin Tew 2011-02-16 09:26:17 -07:00
parent e59b96e26c
commit f7d89009a4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/latex-render.rkt
View File

@ -468,7 +468,7 @@
(loop (cdr flows) (add1 n))] (loop (cdr flows) (add1 n))]
[else n]))]) [else n]))])
(unless (= cnt 1) (printf "\\multicolumn{~a}{l}{" cnt)) (unless (= cnt 1) (printf "\\multicolumn{~a}{l}{" cnt))
(render-table-cell (car flows) part ri twidth (car cell-styles)) (render-table-cell (car flows) part ri (/ twidth cnt) (car cell-styles))
(unless (= cnt 1) (printf "}")) (unless (= cnt 1) (printf "}"))
(unless (null? (list-tail flows cnt)) (printf " &\n")))) (unless (null? (list-tail flows cnt)) (printf " &\n"))))
(unless (null? (cdr flows)) (loop (cdr flows) (unless (null? (cdr flows)) (loop (cdr flows)