aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Markdown.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2010-07-06 21:01:26 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2010-07-06 21:02:26 -0700
commit7d687684aa4ca0ebbdf4d9a0bcaa1d3ea1a8b7b3 (patch)
treee089b68600d619dcb18ecf7cdbd4f1f7fd8f11e5 /src/Text/Pandoc/Readers/Markdown.hs
parent6a8fa53f6cb276d034c607f58d3c458a712b6eae (diff)
downloadpandoc-7d687684aa4ca0ebbdf4d9a0bcaa1d3ea1a8b7b3.tar.gz
Allow language-neutral table captions.
+ Captions may now begin simply with ':', instead of 'Table:' + Captions may now appear either above or below the table. + Resolves Issue #227.
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 96e0f597f..6895de06b 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -775,7 +775,7 @@ multilineRow indices = do
tableCaption :: GenParser Char ParserState [Inline]
tableCaption = try $ do
skipNonindentSpaces
- string "Table:"
+ string ":" <|> string "Table:"
result <- many1 inline
blanklines
return $ normalizeSpaces result