Removed old Pandoc module
Getty Ritter
7 years ago
| 1 | module Text.Pandoc.Fountain.Types where | |
| 2 | ||
| 3 | import qualified Text.Pandoc.Definition as Pandoc (Block) | |
| 4 | ||
| 5 | data FtDoc = FtDoc | |
| 6 | { ftTitle :: Maybe FtTitle | |
| 7 | , ftContent :: [FtElement] | |
| 8 | } deriving (Eq, Show) | |
| 9 | ||
| 10 | data FtTitle = FtTitle { unFtTitle :: Map String FtText } | |
| 11 | deriving (Eq, Show) | |
| 12 | ||
| 13 | type FtSceneNumber = Int | |
| 14 | ||
| 15 | type FtText = [FtInline] | |
| 16 | ||
| 17 | data FtInline | |
| 18 | = FtStr String | |
| 19 | | FtEmph FtText | |
| 20 | | FtStrong FtText | |
| 21 | | FtUnderline FtText | |
| 22 | deriving (Eq, Show) | |
| 23 | ||
| 24 | data FtElement | |
| 25 | = FtSceneHeading FtText FtSceneNumber | |
| 26 | | FtDialogue FtDialogueElement | |
| 27 | | FtTransition FtText | |
| 28 | | FtLyric FtText | |
| 29 | | FtAction FtText Bool | |
| 30 | deriving (Eq, Show) | |
| 31 | ||
| 32 | data FtDialogueElement = FtDialogueElement | |
| 33 | { ftCharacter :: FtText | |
| 34 | , ftParenthetical :: Maybe FtText | |
| 35 | , ftDialogue :: FtText | |
| 36 | , ftConcurrent :: Maybe FtDialogueElement | |
| 37 | } deriving (Eq, Show) | |
| 38 | ||
| 39 | data FromFountain = FromFountain | |
| 40 | { fromScene :: FtText -> FtSceneNumber -> [Pandoc.Block] | |
| 41 | , fromDialogue :: FtDialogueText -> [Pandoc.Block] | |
| 42 | , fromLyric :: FtText -> [Pandoc.Block] | |
| 43 | , fromTransition :: FtText -> [Pandoc.Block] | |
| 44 | , fromAction :: FtInline -> [Pandoc.Block] | |
| 45 | } deriving (Eq, Show) |