@@ -203,6 +203,13 @@ blockQuoteDivs = ["Quote", "BlockQuote", "BlockQuotation"]
203codeDivs :: [String]
203codeDivs :: [String]
204codeDivs = ["SourceCode"]
204codeDivs = ["SourceCode"]
207+-- For the moment, we have English, Danish, German, and French. This
208+-- is fairly ad-hoc, and there might be a more systematic way to do
209+-- it, but it's better than nothing.
210+headerPrefixes :: [String]
211+headerPrefixes = ["Heading", "Overskrift", "berschrift", "Titre"]
206runElemToInlines :: RunElem -> Inlines
213runElemToInlines :: RunElem -> Inlines
207runElemToInlines (TextRun s) = text s
214runElemToInlines (TextRun s) = text s
208runElemToInlines (LnBrk) = linebreak
215runElemToInlines (LnBrk) = linebreak