diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2024-03-18 11:26:32 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2024-03-18 11:26:32 -0700 |
| commit | eca2c82abd9782b61b31093fb6cfa848cab57d96 (patch) | |
| tree | 522b022b9423f62c77a7ccbe2a58e80f072aa3aa /src/Text/Pandoc/Writers/Markdown/Inline.hs | |
| parent | c5c7022ac537ff98f625432fe70bcd5b491d1d96 (diff) | |
Export `isOrderedListMarker` from T.P.Writers.Shared.
[API change]
This was formerly in T.P.Writers.Markdown.Inline, but we need
to use it in the Typst writer too.
Diffstat (limited to 'src/Text/Pandoc/Writers/Markdown/Inline.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown/Inline.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown/Inline.hs b/src/Text/Pandoc/Writers/Markdown/Inline.hs index 2091db842..05047a968 100644 --- a/src/Text/Pandoc/Writers/Markdown/Inline.hs +++ b/src/Text/Pandoc/Writers/Markdown/Inline.hs @@ -332,14 +332,6 @@ avoidBadWraps inListItem = go . toList toList (Concat a b) = a : toList b toList x = [x] -isOrderedListMarker :: Text -> Bool -isOrderedListMarker xs = not (T.null xs) && (T.last xs `elem` ['.',')']) && - isRight (runParser (anyOrderedListMarker >> eof) - defaultParserState "" xs) - where - isRight (Right _) = True - isRight (Left _) = False - -- | Convert Pandoc inline element to markdown. inlineToMarkdown :: PandocMonad m => WriterOptions -> Inline -> MD m (Doc Text) inlineToMarkdown opts (Span ("",["emoji"],kvs) [Str s]) = |