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

[Scribble] Fix width of multicolumn table cells

Browse Source 
original commit: f7d89009a42559e65fcabc93e68d083d0527962d
This commit is contained in:
Kevin Tew 2011-02-16 09:26:17 -07:00
parent 8ce5125d6c
commit 1c13277c98
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))]
[else n]))])
(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 (null? (list-tail flows cnt)) (printf " &\n"))))
(unless (null? (cdr flows)) (loop (cdr flows)