removed support for textile Inserted construct

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)

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

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

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