From 13fefd79597143be6629ed6e1494f54d95a80a2d Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Fri, 5 Sep 2014 17:31:24 -0400 Subject: Docx Reader: Start list of polyglot section headers. --- src/Text/Pandoc/Readers/Docx.hs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/Text/Pandoc/Readers/Docx.hs') diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 2f349b7f5..12b651574 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -203,6 +203,13 @@ blockQuoteDivs = ["Quote", "BlockQuote", "BlockQuotation"] codeDivs :: [String] codeDivs = ["SourceCode"] + +-- For the moment, we have English, Danish, German, and French. This +-- is fairly ad-hoc, and there might be a more systematic way to do +-- it, but it's better than nothing. +headerPrefixes :: [String] +headerPrefixes = ["Heading", "Overskrift", "berschrift", "Titre"] + runElemToInlines :: RunElem -> Inlines runElemToInlines (TextRun s) = text s runElemToInlines (LnBrk) = linebreak -- cgit v1.2.3