@@ -203,6 +203,13 @@ blockQuoteDivs = ["Quote", "BlockQuote", "BlockQuotation"]
203203codeDivs :: [String]
204204codeDivs = ["SourceCode"]
205205
206+
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"]
212+
206213runElemToInlines :: RunElem -> Inlines
207214runElemToInlines (TextRun s) = text s
208215runElemToInlines (LnBrk) = linebreak