Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

HTML writer: Add colgroup around col tags.

Browse source 
Also affects EPUB writer.
Closes #877.
This commit is contained in:
John MacFarlane 2014-03-05 13:01:23 -08:00
parent 6fda361977
commit f3c9d37885
2 changed files with 16 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/Text/Pandoc/Writers/HTML.hs
View file

@ -533,11 +533,16 @@ blockToHtml opts (Table capt aligns widths headers rows') = do
let percent w = show (truncate (100*w) :: Integer) ++ "%"
let coltags = if all (== 0.0) widths
then mempty
else mconcat $ map (\w ->
if writerHtml5 opts
then H.col ! A.style (toValue $ "width: " ++ percent w)
else H.col ! A.width (toValue $ percent w) >> nl opts)
widths
else do
H.colgroup $ do
nl opts
mapM_ (\w -> do
if writerHtml5 opts
then H.col ! A.style (toValue $ "width: " ++
percent w)
else H.col ! A.width (toValue $ percent w)
nl opts) widths
nl opts
head' <- if all null headers
then return mempty
else do

6
tests/tables.html
View file

@ -96,10 +96,12 @@
<p>Multiline table with caption:</p>
<table>
<caption>Here's the caption. It may span multiple lines.</caption>
<colgroup>
<col width="15%" />
<col width="13%" />
<col width="16%" />
<col width="33%" />
</colgroup>
<thead>
<tr class="header">
<th align="center">Centered Header</th>
@ -125,10 +127,12 @@
</table>
<p>Multiline table without caption:</p>
<table>
<colgroup>
<col width="15%" />
<col width="13%" />
<col width="16%" />
<col width="33%" />
</colgroup>
<thead>
<tr class="header">
<th align="center">Centered Header</th>
@ -177,10 +181,12 @@
</table>
<p>Multiline table without column headers:</p>
<table>
<colgroup>
<col width="15%" />
<col width="13%" />
<col width="16%" />
<col width="33%" />
</colgroup>
<tbody>
<tr class="odd">
<td align="center">First</td>