Have Docx reader properly interpret tabs.

2026-09-25 08:55:55 +00:00 · 2014-06-19 17:55:02 -04:00
parent 86fc44d6b3
commit 0e7d2dbd43
1 changed files with 2 additions and 0 deletions
@@ -134,10 +134,12 @@ codeDivs = ["SourceCode"]
 runElemToInlines :: RunElem -> [Inline]
 runElemToInlines (TextRun s) = strToInlines s
 runElemToInlines (LnBrk) = [LineBreak]
+runElemToInlines (Tab) = [Space]

 runElemToString :: RunElem -> String
 runElemToString (TextRun s) = s
 runElemToString (LnBrk) = ['\n']
+runElemToString (Tab) = ['\t']

 runElemsToString :: [RunElem] -> String
 runElemsToString = concatMap runElemToString