diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-02-04 12:52:08 +0100 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-04 12:52:08 +0100 |
commit | 8418c1a7d7e5312dfddbc011adb257552b2a864b (patch) | |
tree | b45a1b0bd3a5237d366b1b6528e5fe7d4e80b8d0 /src/Text/Pandoc/Writers/Markdown.hs | |
parent | 1feddee6d684840100998e457b728c441d1f8f53 (diff) | |
download | pandoc-8418c1a7d7e5312dfddbc011adb257552b2a864b.tar.gz |
Implemented +/-smart in rst writer.
Moved unsmartify to Writers.Shared.
Diffstat (limited to 'src/Text/Pandoc/Writers/Markdown.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index e965528cc..7826c4bdd 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -1136,15 +1136,3 @@ makeMathPlainer = walk go go (Emph xs) = Span nullAttr xs go x = x -unsmartify :: WriterOptions -> String -> String -unsmartify opts ('\8217':xs) = '\'' : unsmartify opts xs -unsmartify opts ('\8230':xs) = "..." ++ unsmartify opts xs -unsmartify opts ('\8211':xs) - | isEnabled Ext_old_dashes opts = '-' : unsmartify opts xs - | otherwise = "--" ++ unsmartify opts xs -unsmartify opts ('\8212':xs) - | isEnabled Ext_old_dashes opts = "--" ++ unsmartify opts xs - | otherwise = "---" ++ unsmartify opts xs -unsmartify opts (x:xs) = x : unsmartify opts xs -unsmartify _ [] = [] - |