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

Add literal tabs to parser.

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

5
src/Text/Pandoc/Readers/Docx/Parse.hs
View file

@ -466,7 +466,7 @@ data Run = Run RunStyle [RunElem]
| Endnote String
deriving Show
data RunElem = TextRun String | LnBrk
data RunElem = TextRun String | LnBrk | Tab
deriving Show
data RunStyle = RunStyle { isBold :: Bool
@ -545,6 +545,9 @@ elemToRunElem ns element
| qName (elName element) == "br" &&
qURI (elName element) == (lookup "w" ns) =
Just $ LnBrk
| qName (elName element) == "tab" &&
qURI (elName element) == (lookup "w" ns) =
Just $ Tab
| otherwise = Nothing