e6dde36 · typeable/pandoc

src/Text/Pandoc/Definition.hs−1

compare with master

unifiedsplit

@@ -111,7 +111,6 @@ data Inline

111 | Emph [Inline] -- ^ Emphasized text (list of inlines)

112 | Strong [Inline] -- ^ Strongly emphasized text (list of inlines)

113 | Strikeout [Inline] -- ^ Strikeout text (list of inlines)

114− | Inserted [Inline] -- ^ Underlined text (list of inlines)

115 | Superscript [Inline] -- ^ Superscripted text (list of inlines)

114 | Superscript [Inline] -- ^ Superscripted text (list of inlines)

116 | Subscript [Inline] -- ^ Subscripted text (list of inlines)

115 | Subscript [Inline] -- ^ Subscripted text (list of inlines)

117 | SmallCaps [Inline] -- ^ Small caps text (list of inlines)

116 | SmallCaps [Inline] -- ^ Small caps text (list of inlines)

src/Text/Pandoc/Readers/Textile.hs+1−5

@@ -33,7 +33,7 @@ Implemented :

33 - Code blocks

34 - Lists

35 - blockquote

36− - Inlines : strong, emph, cite, code, deleted, inserted, superscript,

36+ - Inlines : strong, emph, cite, code, deleted, superscript,

37 subscript, links

38

39Not implemented :

@@ -250,7 +250,6 @@ inlineParsers = [ autoLink

250 , simpleInline (char '*') Strong

251 , simpleInline (char '_') Emph

252 , simpleInline (char '-') Strikeout

253− , simpleInline (char '+') Inserted

254 , simpleInline (char '^') Superscript

253 , simpleInline (char '^') Superscript

255 , simpleInline (char '~') Subscript

254 , simpleInline (char '~') Subscript

256 , link

255 , link

@@ -286,7 +285,6 @@ autoLink = do

286 (orig, src) <- (try uri <|> try emailAddress)

285 (orig, src) <- (try uri <|> try emailAddress)

287 return $ Link [Str orig] (src, "")

286 return $ Link [Str orig] (src, "")

288

287

289−

290-- | image embedding

288-- | image embedding

291image :: GenParser Char ParserState Inline

289image :: GenParser Char ParserState Inline

292image = try $ do

290image = try $ do

@@ -295,7 +293,6 @@ image = try $ do

295 alt <- option "" (try $ (char '(' >> manyTill anyChar (char ')')))

293 alt <- option "" (try $ (char '(' >> manyTill anyChar (char ')')))

296 char '!'

294 char '!'

297 return $ Image [Str alt] (src, alt)

295 return $ Image [Str alt] (src, alt)

298−

299

296

300-- | Any special symbol defined in specialChars

297-- | Any special symbol defined in specialChars

301symbol :: GenParser Char ParserState Inline

298symbol :: GenParser Char ParserState Inline

@@ -327,4 +324,3 @@ simpleInline border construct = surrounded border inline >>=

327-- - Pandoc Meta Information (title, author, date)

324-- - Pandoc Meta Information (title, author, date)

328-- - footnotes

325-- - footnotes

329-- - should autolink be shared through Parsing.hs ?

326-- - should autolink be shared through Parsing.hs ?

330−-- - Inserted inline handling in writers

src/Text/Pandoc/Shared.hs−1

@@ -377,7 +377,6 @@ inlineListToIdentifier =

377 Str s -> s

378 Emph lst -> concatMap extractText lst

379 Strikeout lst -> concatMap extractText lst

380− Inserted lst -> concatMap extractText lst

381 Superscript lst -> concatMap extractText lst

380 Superscript lst -> concatMap extractText lst

382 SmallCaps lst -> concatMap extractText lst

381 SmallCaps lst -> concatMap extractText lst

383 Subscript lst -> concatMap extractText lst

382 Subscript lst -> concatMap extractText lst

src/Text/Pandoc/Writers/HTML.hs−2

@@ -454,8 +454,6 @@ inlineToHtml opts inline =

454 (Code str) -> return $ thecode << str

455 (Strikeout lst) -> inlineListToHtml opts lst >>=

456 return . (thespan ! [thestyle "text-decoration: line-through;"])

457− (Inserted lst) -> inlineListToHtml opts lst >>=

458− return . (thespan ! [thestyle "text-decoration: underline;"])

459 (SmallCaps lst) -> inlineListToHtml opts lst >>=

457 (SmallCaps lst) -> inlineListToHtml opts lst >>=

460 return . (thespan ! [thestyle "font-variant: small-caps;"])

458 return . (thespan ! [thestyle "font-variant: small-caps;"])

461 (Superscript lst) -> inlineListToHtml opts lst >>= return . sup

459 (Superscript lst) -> inlineListToHtml opts lst >>= return . sup