4bfcbbf · typeable/pandoc

572-- | Convert an 'Inline' to plaintext.

573plain :: Inline -> String

574plain (Str s) = s

575−plain (Emph ss) = concatMap plain ss

575+plain (Emph ss) = cMap plain ss

576−plain (Span _ ss) = concatMap plain ss

576+plain (Span _ ss) = cMap plain ss

577−plain (Strong ss) = concatMap plain ss

577+plain (Strong ss) = cMap plain ss

578−plain (Strikeout ss) = concatMap plain ss

578+plain (Strikeout ss) = cMap plain ss

579−plain (Superscript ss) = concatMap plain ss

579+plain (Superscript ss) = cMap plain ss

580−plain (Subscript ss) = concatMap plain ss

580+plain (Subscript ss) = cMap plain ss

581−plain (SmallCaps ss) = concatMap plain ss

581+plain (SmallCaps ss) = cMap plain ss

582−plain (Quoted _ ss) = concatMap plain ss

582+plain (Quoted _ ss) = cMap plain ss

583−plain (Cite _ ss) = concatMap plain ss -- FIXME

583+plain (Cite _ ss) = cMap plain ss -- FIXME

584plain (Code _ s) = s

585plain Space = " "

586plain SoftBreak = " "

588plain (Math _ s) = s

589plain (RawInline _ _) = ""

590plain (Link _ text (url,_)) = concat (map plain text ++ [" <", url, ">"])

591−plain (Image _ alt _) = concatMap plain alt

591+plain (Image _ alt _) = cMap plain alt

592plain (Note _) = "" -- FIXME

593

594-- | Create an XML element.