diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-09-28 12:33:05 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-09-28 12:33:05 +0200 |
| commit | e95047ed85872fbc44e261df74add4e4f9bef30d (patch) | |
| tree | 06cf57de5db621283d0de25eb252b7df1af1f44a /src/Text/Pandoc/Readers | |
| parent | 03167bb4472804135248229297b822763ee42432 (diff) | |
| download | pandoc-e95047ed85872fbc44e261df74add4e4f9bef30d.tar.gz | |
Markdown reader: added bracket syntax for native spans.
See #168.
Text.Pandoc.Options.Extension has a new constructor `Ext_brackted_spans`,
which is enabled by default in pandoc's Markdown.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 9928500dc..2e95c518d 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1482,6 +1482,7 @@ inline = choice [ whitespace , strongOrEmph , note , cite + , bracketedSpan , link , image , math @@ -1750,6 +1751,13 @@ link = try $ do setState $ st{ stateAllowLinks = True } regLink B.linkWith lab <|> referenceLink B.linkWith (lab,raw) +bracketedSpan :: MarkdownParser (F Inlines) +bracketedSpan = try $ do + guardEnabled Ext_bracketed_spans + (lab,_) <- reference + attr <- attributes + return $ B.spanWith attr <$> lab + regLink :: (Attr -> String -> String -> Inlines -> Inlines) -> F Inlines -> MarkdownParser (F Inlines) regLink constructor lab = try $ do |