aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Textile.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Readers/Textile.hs')
-rw-r--r--src/Text/Pandoc/Readers/Textile.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
index 463ba14be..9c6e8f937 100644
--- a/src/Text/Pandoc/Readers/Textile.hs
+++ b/src/Text/Pandoc/Readers/Textile.hs
@@ -33,7 +33,7 @@ Implemented :
- Code blocks
- Lists
- blockquote
- - Inlines : strong, emph, cite, code, deleted, inserted, superscript,
+ - Inlines : strong, emph, cite, code, deleted, superscript,
subscript, links
Not implemented :
@@ -250,7 +250,6 @@ inlineParsers = [ autoLink
, simpleInline (char '*') Strong
, simpleInline (char '_') Emph
, simpleInline (char '-') Strikeout
- , simpleInline (char '+') Inserted
, simpleInline (char '^') Superscript
, simpleInline (char '~') Subscript
, link
@@ -286,7 +285,6 @@ autoLink = do
(orig, src) <- (try uri <|> try emailAddress)
return $ Link [Str orig] (src, "")
-
-- | image embedding
image :: GenParser Char ParserState Inline
image = try $ do
@@ -295,7 +293,6 @@ image = try $ do
alt <- option "" (try $ (char '(' >> manyTill anyChar (char ')')))
char '!'
return $ Image [Str alt] (src, alt)
-
-- | Any special symbol defined in specialChars
symbol :: GenParser Char ParserState Inline
@@ -327,4 +324,3 @@ simpleInline border construct = surrounded border inline >>=
-- - Pandoc Meta Information (title, author, date)
-- - footnotes
-- - should autolink be shared through Parsing.hs ?
--- - Inserted inline handling in writers