gdritter repos fountain / f89ef72
Removed old Pandoc module Getty Ritter 4 years ago
1 changed file(s) with 0 addition(s) and 45 deletion(s). Collapse all Expand all
+0
-45
Text/Pandoc/Fountain/Types.hs less more
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)