lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-27 09:55:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

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
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/Docx/Parse.hs
+4 -1
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