diff options
| -rw-r--r-- | src/Text/Pandoc/Definition.hs | 1 | ||||
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 6 | ||||
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 1 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
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 |