diff options
| author | Brian Leung <bkleung89@gmail.com> | 2018-10-22 23:36:44 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-22 23:36:44 -0700 |
| commit | 7eea5c62ed28a8f2b5dedba18bc8a4c7c1215f3f (patch) | |
| tree | 0ff2ab06cec219381b0ced52a91eacb75d865cc9 /src/Text/Pandoc/Readers/LaTeX.hs | |
| parent | 19e0fcb68bc7bdb506bc2e07f4d23aaf54f535a3 (diff) | |
| download | pandoc-7eea5c62ed28a8f2b5dedba18bc8a4c7c1215f3f.tar.gz | |
LaTeX reader: add support for `nolinkurl` command. (#4992)
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 26ac781db..010cb3add 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -988,6 +988,8 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList , ("Verb", doverb) , ("url", ((unescapeURL . T.unpack . untokenize) <$> bracedUrl) >>= \url -> pure (link url "" (str url))) + , ("nolinkurl", ((unescapeURL . T.unpack . untokenize) <$> bracedUrl) >>= \url -> + pure (code url)) , ("href", (unescapeURL . toksToString <$> bracedUrl <* optional sp) >>= \url -> tok >>= \lab -> pure (link url "" lab)) |