Commit 16ed66ffee46ae567a751b0fc2dea5fe8fac90be - fountain

Added beginnings of Parse module Getty Ritter 8 years ago

1 changed file(s) with 23 addition(s) and 0 deletion(s). Collapse all Expand all

+23

-0

Text/Fountain/Parse.hs less more

	1	module Text.Pandoc.Parse where
	2
	3	import Data.Text (Text)
	4	import qualified Data.Text as T
	5
	6	import Text.Pandoc.Types
	7
	8	pNewline :: [Text] -> [Element]
	9	pNewline [] = []
	10	pNewline (t:ts)
	11	-- First let's look for all the forced lines:
	12	-- Actions can be forced by !
	13	\| "!" `T.isPrefixOf` t = []
	14	-- Characters can be forced by @
	15	\| "@" `T.isPrefixOf` t = []
	16	-- Headers can be forced by a dot, but not by two
	17	\| "." `T.isPrefixOf` t &&
	18	not (".." `T.isPrefixOf` t) = []
	19	-- Lyrics are always forced by a ~
	20	\| "~" `T.isPrefixOf` t = []
	21	-- Transitions are forced by a >
	22	\| ">" `T.isPrefixOf` t &&
	23	not ("<" `T.isSuffixOf` t) = []