diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-10-04 21:56:29 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-10-04 21:56:29 -0700 |
| commit | 869e800bbbe4008beeb3e3420e689aafd6e67aa7 (patch) | |
| tree | fcca43e20faa967041fdf725c45088295a8462f2 /src/Text/Pandoc/Readers/Docx.hs | |
| parent | e32ab441bee323e3a2c6fced7c89bf0c6351d6c8 (diff) | |
| parent | dfd06467eadace7b37cb3ebc53c943755d0436eb (diff) | |
| download | pandoc-869e800bbbe4008beeb3e3420e689aafd6e67aa7.tar.gz | |
Merge pull request #2432 from hftf/hyphens
Docx Reader: Parse soft and non-breaking hyphen elements
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 67a97ae85..8b8d1ede1 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -206,11 +206,15 @@ runElemToInlines :: RunElem -> Inlines runElemToInlines (TextRun s) = text s runElemToInlines (LnBrk) = linebreak runElemToInlines (Tab) = space +runElemToInlines (SoftHyphen) = text "\xad" +runElemToInlines (NoBreakHyphen) = text "\x2011" runElemToString :: RunElem -> String runElemToString (TextRun s) = s runElemToString (LnBrk) = ['\n'] runElemToString (Tab) = ['\t'] +runElemToString (SoftHyphen) = ['\xad'] +runElemToString (NoBreakHyphen) = ['\x2011'] runToString :: Run -> String runToString (Run _ runElems) = concatMap runElemToString runElems |