diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-09-05 17:31:24 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-09-05 17:31:24 -0400 |
| commit | 13fefd79597143be6629ed6e1494f54d95a80a2d (patch) | |
| tree | 2211c337c13daee4234da78ac640e8de7d3f72ff /src/Text/Pandoc/Readers | |
| parent | 313355e37308b39139c2cb6681bf255b45669946 (diff) | |
| download | pandoc-13fefd79597143be6629ed6e1494f54d95a80a2d.tar.gz | |
Docx Reader: Start list of polyglot section headers.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 7 |
1 files changed, 7 insertions, 0 deletions
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 |