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
This commit is contained in:
fiddlosopher 2007-03-12 00:36:41 +00:00
parent d55346ca9a
commit 0d2e5eab79

View file

@ -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