diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-05-30 10:22:48 +0200 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-05-30 10:22:48 +0200 |
commit | 774075c3e22ab2ad35e2306a5b98e30da512b310 (patch) | |
tree | e4073e46ddbac86d911c08e6953b44cd84cf11b0 /src/Text/Pandoc/Readers/Markdown.hs | |
parent | 5ec384eb60a4d32a83e94eec041020004dff96ce (diff) | |
download | pandoc-774075c3e22ab2ad35e2306a5b98e30da512b310.tar.gz |
Added eastAsianLineBreakFilter to Shared.
This used to live in the Markdown reader.
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 7e2bd5a4d..5694c4354 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -55,11 +55,9 @@ import qualified Text.Pandoc.Builder as B import Text.Pandoc.Class (PandocMonad, report) import Text.Pandoc.Definition import Text.Pandoc.Emoji (emojis) -import Text.Pandoc.Generic (bottomUp) import Text.Pandoc.Logging import Text.Pandoc.Options import Text.Pandoc.Parsing hiding (tableWith) -import Text.Pandoc.Pretty (charWidth) import Text.Pandoc.Readers.HTML (htmlInBalanced, htmlTag, isBlockTag, isCommentTag, isInlineTag, isTextTag) import Text.Pandoc.Readers.LaTeX (rawLaTeXBlock, rawLaTeXInline) @@ -375,15 +373,7 @@ parseMarkdown = do return $ Pandoc meta bs) st reportLogMessages (do guardEnabled Ext_east_asian_line_breaks - return $ bottomUp softBreakFilter doc) <|> return doc - -softBreakFilter :: [Inline] -> [Inline] -softBreakFilter (x:SoftBreak:y:zs) = - case (stringify x, stringify y) of - (xs@(_:_), (c:_)) - | charWidth (last xs) == 2 && charWidth c == 2 -> x:y:zs - _ -> x:SoftBreak:y:zs -softBreakFilter xs = xs + return $ eastAsianLineBreakFilter doc) <|> return doc referenceKey :: PandocMonad m => MarkdownParser m (F Blocks) referenceKey = try $ do |