diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-03-12 00:36:41 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-03-12 00:36:41 +0000 |
commit | 0d2e5eab79edee0ccc711772a2def5b8082797b4 (patch) | |
tree | 06300b1e5799b955df18d811b5c513640e7c1a8e /src | |
parent | d55346ca9a8fcf773d40d1e1d938d71131aec645 (diff) | |
download | pandoc-0d2e5eab79edee0ccc711772a2def5b8082797b4.tar.gz |
Added clauses for DefinitionList and Table to replaceReferenceLinks in
Text/Pandoc/Shared.hs. This ensures that reference-style links inside
tables and definition lists will be handled properly.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@575 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src')
-rw-r--r-- | src/Text/Pandoc/Shared.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index e5d6e77df..61b621eda 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -497,6 +497,14 @@ replaceRefLinksBlock keytable (OrderedList lst) = OrderedList (map (replaceRefLinksBlockList keytable) lst) replaceRefLinksBlock keytable (BulletList lst) = BulletList (map (replaceRefLinksBlockList keytable) lst) +replaceRefLinksBlock keytable (DefinitionList lst) = + DefinitionList (map (\(term, def) -> + (map (replaceRefLinksInline keytable) term, + replaceRefLinksBlockList keytable def)) lst) +replaceRefLinksBlock keytable (Table caption alignment widths headers rows) = + Table (map (replaceRefLinksInline keytable) caption) alignment widths + (map (replaceRefLinksBlockList keytable) headers) + (map (map (replaceRefLinksBlockList keytable)) rows) replaceRefLinksBlock keytable other = other -- | Use key table to replace reference links with explicit links in an |