Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Added 'stringify' to Text.Pandoc.Shared.

Browse source
This commit is contained in:
John MacFarlane 2010-11-27 07:08:06 -08:00
parent 0ca84f0d38
commit 044a9a6157
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Text/Pandoc/Shared.hs
View file

@ -57,6 +57,7 @@ module Text.Pandoc.Shared (
-- * Pandoc block and inline list processing -- * Pandoc block and inline list processing
orderedListMarkers, orderedListMarkers,
normalizeSpaces, normalizeSpaces,
stringify,
compactify, compactify,
Element (..), Element (..),
hierarchicalize, hierarchicalize,
@ -340,6 +341,15 @@ normalizeSpaces list =
else lst else lst
in removeLeading $ removeTrailing $ removeDoubles list in removeLeading $ removeTrailing $ removeDoubles list
-- | Convert list of inlines to a string with formatting removed.
stringify :: [Inline] -> String
stringify = queryWith go
where go :: Inline -> [Char]
go Space = " "
go (Str x) = x
go (Code x) = x
go _ = ""
-- | Change final list item from @Para@ to @Plain@ if the list contains -- | Change final list item from @Para@ to @Plain@ if the list contains
-- no other @Para@ blocks. -- no other @Para@ blocks.
compactify :: [[Block]] -- ^ List of list items (each a list of blocks) compactify :: [[Block]] -- ^ List of list items (each a list of blocks)