Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Have Docx reader properly interpret tabs.

Browse source
This commit is contained in:
Jesse Rosenthal 2014-06-19 17:55:02 -04:00
parent 86fc44d6b3
commit 0e7d2dbd43
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Readers/Docx.hs
View file

@ -134,10 +134,12 @@ codeDivs = ["SourceCode"]
runElemToInlines :: RunElem -> [Inline] runElemToInlines :: RunElem -> [Inline]
runElemToInlines (TextRun s) = strToInlines s runElemToInlines (TextRun s) = strToInlines s
runElemToInlines (LnBrk) = [LineBreak] runElemToInlines (LnBrk) = [LineBreak]
runElemToInlines (Tab) = [Space]
runElemToString :: RunElem -> String runElemToString :: RunElem -> String
runElemToString (TextRun s) = s runElemToString (TextRun s) = s
runElemToString (LnBrk) = ['\n'] runElemToString (LnBrk) = ['\n']
runElemToString (Tab) = ['\t']
runElemsToString :: [RunElem] -> String runElemsToString :: [RunElem] -> String
runElemsToString = concatMap runElemToString runElemsToString = concatMap runElemToString