aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorAndrew Dunning <adunning@users.noreply.github.com>2019-11-15 16:45:18 +0000
committerJohn MacFarlane <jgm@berkeley.edu>2019-11-15 08:45:18 -0800
commit6c1692ea2271446caba6e95d43aeee6db805e3ce (patch)
tree634ba5147671c3e396878c2d3a296cb76bf1f6b2 /src/Text/Pandoc
parente8de53ce4aac36243d8c2c8bbcb26a3bb8237519 (diff)
downloadpandoc-6c1692ea2271446caba6e95d43aeee6db805e3ce.tar.gz
LaTeX Reader: Add KOMA-Script metadata commands (#5910)
Add all titling commands to existing definition for `\dedication`.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs9
1 files changed, 8 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 5c9a3e69c..339494bc3 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -1798,7 +1798,14 @@ blockCommands = M.fromList
, ("address", mempty <$ (skipopts *> tok >>= addMeta "address"))
, ("signature", mempty <$ (skipopts *> authors))
, ("date", mempty <$ (skipopts *> tok >>= addMeta "date"))
- -- Koma-script metadata commands
+ -- KOMA-Script metadata commands
+ , ("extratitle", mempty <$ (skipopts *> tok >>= addMeta "extratitle"))
+ , ("frontispiece", mempty <$ (skipopts *> tok >>= addMeta "frontispiece"))
+ , ("titlehead", mempty <$ (skipopts *> tok >>= addMeta "titlehead"))
+ , ("subject", mempty <$ (skipopts *> tok >>= addMeta "subject"))
+ , ("publishers", mempty <$ (skipopts *> tok >>= addMeta "publishers"))
+ , ("uppertitleback", mempty <$ (skipopts *> tok >>= addMeta "uppertitleback"))
+ , ("lowertitleback", mempty <$ (skipopts *> tok >>= addMeta "lowertitleback"))
, ("dedication", mempty <$ (skipopts *> tok >>= addMeta "dedication"))
-- sectioning
, ("part", section nullAttr (-1))