diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-06-19 22:47:32 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-06-19 22:47:32 -0700 |
| commit | 0d8e0e567479e723c986b2384c39a997f9065fa2 (patch) | |
| tree | cb1a367c616c275a1dae941ceafc9ec6a5d0b29b /src/Text/Pandoc/Readers/Docx | |
| parent | 5cb53a48d541b97b5f60968715a5969133196d70 (diff) | |
| parent | da0d1d27ac98ca28e66bc2df3de2bce738068fb8 (diff) | |
| download | pandoc-0d8e0e567479e723c986b2384c39a997f9065fa2.tar.gz | |
Merge pull request #1354 from jkr/literalTab
Parse literal tabs in docx
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Parse.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs index 22e9dd909..18200bcf9 100644 --- a/src/Text/Pandoc/Readers/Docx/Parse.hs +++ b/src/Text/Pandoc/Readers/Docx/Parse.hs @@ -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 |