git.iko.soy/typeable/pandoc
on master help sign in
removed support for textile Inserted construct
commite6dde36622bc1f4adbd34934213cbcfb091376a2 authorPaul Rivier <paul.r.ml@gmail.com> dateMon 4 Oct 2010, 21:00 (16 years ago) parent593b4f6
4 files changed+1−9
compare with master
unifiedsplit
src/Text/Pandoc/Definition.hs−1 src/Text/Pandoc/Readers/Textile.hs+1−5 src/Text/Pandoc/Shared.hs−1 src/Text/Pandoc/Writers/HTML.hs−2
src/Text/Pandoc/Definition.hs−1
@@ -111,7 +111,6 @@ data Inline
111111 | Emph [Inline] -- ^ Emphasized text (list of inlines)
112112 | Strong [Inline] -- ^ Strongly emphasized text (list of inlines)
113113 | Strikeout [Inline] -- ^ Strikeout text (list of inlines)
114− | Inserted [Inline] -- ^ Underlined text (list of inlines)
115114 | Superscript [Inline] -- ^ Superscripted text (list of inlines)
116115 | Subscript [Inline] -- ^ Subscripted text (list of inlines)
117116 | SmallCaps [Inline] -- ^ Small caps text (list of inlines)
src/Text/Pandoc/Readers/Textile.hs+1−5
@@ -33,7 +33,7 @@ Implemented :
3333 - Code blocks
3434 - Lists
3535 - blockquote
36− - Inlines : strong, emph, cite, code, deleted, inserted, superscript,
36+ - Inlines : strong, emph, cite, code, deleted, superscript,
3737 subscript, links
3838
3939Not implemented :
@@ -250,7 +250,6 @@ inlineParsers = [ autoLink
250250 , simpleInline (char '*') Strong
251251 , simpleInline (char '_') Emph
252252 , simpleInline (char '-') Strikeout
253− , simpleInline (char '+') Inserted
254253 , simpleInline (char '^') Superscript
255254 , simpleInline (char '~') Subscript
256255 , link
@@ -286,7 +285,6 @@ autoLink = do
286285 (orig, src) <- (try uri <|> try emailAddress)
287286 return $ Link [Str orig] (src, "")
288287
289−
290288-- | image embedding
291289image :: GenParser Char ParserState Inline
292290image = try $ do
@@ -295,7 +293,6 @@ image = try $ do
295293 alt <- option "" (try $ (char '(' >> manyTill anyChar (char ')')))
296294 char '!'
297295 return $ Image [Str alt] (src, alt)
298−
299296
300297-- | Any special symbol defined in specialChars
301298symbol :: GenParser Char ParserState Inline
@@ -327,4 +324,3 @@ simpleInline border construct = surrounded border inline >>=
327324-- - Pandoc Meta Information (title, author, date)
328325-- - footnotes
329326-- - should autolink be shared through Parsing.hs ?
330−-- - Inserted inline handling in writers
src/Text/Pandoc/Shared.hs−1
@@ -377,7 +377,6 @@ inlineListToIdentifier =
377377 Str s -> s
378378 Emph lst -> concatMap extractText lst
379379 Strikeout lst -> concatMap extractText lst
380− Inserted lst -> concatMap extractText lst
381380 Superscript lst -> concatMap extractText lst
382381 SmallCaps lst -> concatMap extractText lst
383382 Subscript lst -> concatMap extractText lst
src/Text/Pandoc/Writers/HTML.hs−2
@@ -454,8 +454,6 @@ inlineToHtml opts inline =
454454 (Code str) -> return $ thecode << str
455455 (Strikeout lst) -> inlineListToHtml opts lst >>=
456456 return . (thespan ! [thestyle "text-decoration: line-through;"])
457− (Inserted lst) -> inlineListToHtml opts lst >>=
458− return . (thespan ! [thestyle "text-decoration: underline;"])
459457 (SmallCaps lst) -> inlineListToHtml opts lst >>=
460458 return . (thespan ! [thestyle "font-variant: small-caps;"])
461459 (Superscript lst) -> inlineListToHtml opts lst >>= return . sup