diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2023-03-27 09:49:49 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2023-03-27 10:47:15 -0700 |
| commit | cf6a742710f631364bbb3145566927b17b794a02 (patch) | |
| tree | 7d4c902cace3955346ca6b5cee1d6d3b3a5cd1d5 /src | |
| parent | ba911cce33ee6da9a7fbc6bcf597ed2e1f1959a2 (diff) | |
Typst writer: support column aligns in tables.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Typst.hs | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Writers/Typst.hs b/src/Text/Pandoc/Writers/Typst.hs index d7d167d97..a4bbeb5c6 100644 --- a/src/Text/Pandoc/Writers/Typst.hs +++ b/src/Text/Pandoc/Writers/Typst.hs @@ -165,17 +165,16 @@ blockToTypst block = captcontents <- inlinesToTypst caption return $ "#align(center, " <> brackets captcontents <> ")" let lab = toLabel ident - -- TODO figure out how to specify alignment - -- let formatalign AlignLeft = "left" - -- formatalign AlignRight = "right" - -- formatalign AlignCenter = "center" - -- formatalign AlignDefault = "left" - -- let alignspecs = map formatalign aligns + let formatalign AlignLeft = "left," + formatalign AlignRight = "right," + formatalign AlignCenter = "center," + formatalign AlignDefault = "auto," + let alignarray = parens $ mconcat $ map formatalign aligns return $ "#align(center)[#table(" $$ nest 2 ( "columns: " <> text (show numcols) <> "," -- auto + $$ "align: (col, row) => " <> alignarray <> ".at(col)," $$ "inset: 6pt" <> "," - $$ "align: auto," $$ hsep (map ((<>",") . brackets) headers') $$ vcat (map (\x -> brackets x <> ",") (concat rows')) ) |