Pandoc Custom Readerを触ってみたい(14)

じゃあ、作ってみよう。

	headerA	headerB
header1	A1	B1
header2	A2	B2

こういう表を作る。セル内での改行はいったん後回しだ。

1行目を作る。ヘッダ行になる。

    local row1 = pandoc.Row(
        {
            pandoc.Cell({}),
            pandoc.Cell({pandoc.Plain("headerA")}),
            pandoc.Cell({pandoc.Plain("headerB")}),
        }
    )

    local table_header = pandoc.TableHead({ row1 })

2行目と3行目。TableBodyの定義を考えると、ヘッダとそれ以外にわける必要がある・・・？

    -- 2行目
    local row2_head = pandoc.Row(
        {
            pandoc.Cell({pandoc.Plain("header1")}),
        }
    )
    local row2_body = pandoc.Row(
        {
            pandoc.Cell({pandoc.Plain("A1")}),
            pandoc.Cell({pandoc.Plain("B1")}),
        }
    )

    -- 3行目
    local row3_head = pandoc.Row(
        {
            pandoc.Cell({pandoc.Plain("header2")}),
        }
    )
    local row3_body = pandoc.Row(
        {
            pandoc.Cell({pandoc.Plain("A2")}),
            pandoc.Cell({pandoc.Plain("B2")}),
        }
    )

    -- TableBody
    local table_body = {
        attr = {},
        body = {row2_body, row3_body},
        head = {row2_head, row3_head},
        row_head_columns = 1
    }

こうかなあ？

で、最後にTableにする。キャプションはよくわからないから、longとshortと両方付けてみた。

    -- Table
    local table = pandoc.Table(
        {
            long = pandoc.Plain("longcaption"),
            short = pandoc.Str("shortcaption")
        },
        {
            {pandoc.AlignDefault, 0.3},
            {pandoc.AlignDefault, 0.3},
            {pandoc.AlignDefault, 0.3}
        },
        table_header,
        {table_body},
        pandoc.TableFoot()
    )

実行してみよう。

> cat /dev/null |pandoc -f lua/table_exam.lua -t native
[ Table
    ( "" , [] , [] )
    (Caption
       (Just [ Str "shortcaption" ])
       [ Plain [ Str "longcaption" ] ])
    [ ( AlignDefault , ColWidth 0.3 )
    , ( AlignDefault , ColWidth 0.3 )
    , ( AlignDefault , ColWidth 0.3 )
    ]
    (TableHead
       ( "" , [] , [] )
       [ Row
           ( "" , [] , [] )
           [ Cell
               ( "" , [] , [] ) AlignDefault (RowSpan 1) (ColSpan 1) []
           , Cell
               ( "" , [] , [] )
               AlignDefault
               (RowSpan 1)
               (ColSpan 1)
               [ Plain [ Str "headerA" ] ]
           , Cell
               ( "" , [] , [] )
               AlignDefault
               (RowSpan 1)
               (ColSpan 1)
               [ Plain [ Str "headerB" ] ]
           ]
       ])
    [ TableBody
        ( "" , [] , [] )
        (RowHeadColumns 1)
        [ Row
            ( "" , [] , [] )
            [ Cell
                ( "" , [] , [] )
                AlignDefault
                (RowSpan 1)
                (ColSpan 1)
                [ Plain [ Str "header1" ] ]
            ]
        , Row
            ( "" , [] , [] )
            [ Cell
                ( "" , [] , [] )
                AlignDefault
                (RowSpan 1)
                (ColSpan 1)
                [ Plain [ Str "header2" ] ]
            ]
        ]
        [ Row
            ( "" , [] , [] )
            [ Cell
                ( "" , [] , [] )
                AlignDefault
                (RowSpan 1)
                (ColSpan 1)
                [ Plain [ Str "A1" ] ]
            , Cell
                ( "" , [] , [] )
                AlignDefault
                (RowSpan 1)
                (ColSpan 1)
                [ Plain [ Str "B1" ] ]
            ]
        , Row
            ( "" , [] , [] )
            [ Cell
                ( "" , [] , [] )
                AlignDefault
                (RowSpan 1)
                (ColSpan 1)
                [ Plain [ Str "A2" ] ]
            , Cell
                ( "" , [] , [] )
                AlignDefault
                (RowSpan 1)
                (ColSpan 1)
                [ Plain [ Str "B2" ] ]
            ]
        ]
    ]
    (TableFoot ( "" , [] , [] ) [])
]

いちおう、期待通りのつもり。HTMLにしてみる。

<table style="width:90%;">
<caption>longcaption</caption>
<colgroup>
<col style="width: 30%" />
<col style="width: 30%" />
<col style="width: 30%" />
</colgroup>
<thead>
<tr class="header">
<th></th>
<th>headerA</th>
<th>headerB</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<th>header1</th>
<th></th>
<th></th>
</tr>
<tr class="header">
<th>header2</th>
<th></th>
<th></th>
</tr>

<tr class="odd">
<th>A1</th>
<td>B1</td>
<td></td>
</tr>
<tr class="even">
<th>A2</th>
<td>B2</td>
<td></td>
</tr>
</tbody>
</table>

いや、これは違うな(笑)。MDNのtableのページのお試し環境にコピペしてみる。

うーん、これはtbodyの中にヘッダ行を置きたいよという意図なのかな。でも、header1が書いてある行はclass="header"がついてないのでどうもおかしい。

これでいいのかも

    -- 2行目
    local row2 = pandoc.Row(
        {
            pandoc.Cell({pandoc.Plain("header1")}),
            pandoc.Cell({pandoc.Plain("A1")}),
            pandoc.Cell({pandoc.Plain("B1")}),
        }
    )
    
    -- 3行目
    local row3 = pandoc.Row(
        {
            pandoc.Cell({pandoc.Plain("header2")}),
            pandoc.Cell({pandoc.Plain("A2")}),
            pandoc.Cell({pandoc.Plain("B2")}),
        }
    )

    -- TableBody
    local table_body = {
        attr = {},
        body = {row2, row3},
        head = {},
        row_head_columns = 1
    }

> cat /dev/null |pandoc -f lua/table_exam.lua -t html5
<table style="width:90%;">
<caption>longcaption</caption>
<colgroup>
<col style="width: 30%" />
<col style="width: 30%" />
<col style="width: 30%" />
</colgroup>
<thead>
<tr class="header">
<th></th>
<th>headerA</th>
<th>headerB</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<th>header1</th>
<td>A1</td>
<td>B1</td>
</tr>
<tr class="even">
<th>header2</th>
<td>A2</td>
<td>B2</td>
</tr>
</tbody>
</table>

良さそうだ。とりあえず、これでいいことにしよう。