aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Definition.hs1
-rw-r--r--src/Text/Pandoc/Readers/Textile.hs6
-rw-r--r--src/Text/Pandoc/Shared.hs1
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs2
4 files changed, 1 insertions, 9 deletions
diff --git a/src/Text/Pandoc/Definition.hs b/src/Text/Pandoc/Definition.hs
index ec8c77185..bd0499f9e 100644
--- a/src/Text/Pandoc/Definition.hs
+++ b/src/Text/Pandoc/Definition.hs
@@ -111,7 +111,6 @@ data Inline
| Emph [Inline] -- ^ Emphasized text (list of inlines)
| Strong [Inline] -- ^ Strongly emphasized text (list of inlines)
| Strikeout [Inline] -- ^ Strikeout text (list of inlines)
- | Inserted [Inline] -- ^ Underlined text (list of inlines)
| Superscript [Inline] -- ^ Superscripted text (list of inlines)
| Subscript [Inline] -- ^ Subscripted text (list of inlines)
| SmallCaps [Inline] -- ^ Small caps text (list of inlines)
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
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 006c11c63..0fdaf42f3 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -377,7 +377,6 @@ inlineListToIdentifier =
Str s -> s
Emph lst -> concatMap extractText lst
Strikeout lst -> concatMap extractText lst
- Inserted lst -> concatMap extractText lst
Superscript lst -> concatMap extractText lst
SmallCaps lst -> concatMap extractText lst
Subscript lst -> concatMap extractText lst
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 55403af42..b8da4bec0 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -454,8 +454,6 @@ inlineToHtml opts inline =
(Code str) -> return $ thecode << str
(Strikeout lst) -> inlineListToHtml opts lst >>=
return . (thespan ! [thestyle "text-decoration: line-through;"])
- (Inserted lst) -> inlineListToHtml opts lst >>=
- return . (thespan ! [thestyle "text-decoration: underline;"])
(SmallCaps lst) -> inlineListToHtml opts lst >>=
return . (thespan ! [thestyle "font-variant: small-caps;"])
(Superscript lst) -> inlineListToHtml opts lst >>= return . sup