26 type WikiPage = [BlockElement]
31 | Inline !InlineElement
32 deriving (Eq, Show, Typeable, Data)
35 type Attribute = (String, String)
41 , headingText :: !String
46 , listItems :: ![ListItem]
48 | DefinitionList ![Definition]
49 | Preformatted ![InlineElement]
50 | Paragraph ![InlineElement]
51 | Div ![Attribute] ![Element]
53 | BlockCmd !BlockCommand
54 deriving (Eq, Show, Typeable, Data)
59 | Italic ![InlineElement]
60 | Bold ![InlineElement]
62 objLinkPage :: !PageName
63 , objLinkText :: !(Maybe String)
66 linkPage :: !(Maybe PageName)
67 , linkFragment :: !(Maybe String)
68 , linkText :: !(Maybe String)
72 , extLinkText :: !(Maybe String)
74 | LineBreak ![Attribute]
75 | Span ![Attribute] ![InlineElement]
77 imgSource :: !(Either URI PageName)
78 , imgAlt :: !(Maybe String)
80 | Anchor ![Attribute] ![InlineElement]
83 | InlineCmd !InlineCommand
84 deriving (Eq, Show, Typeable, Data)
90 deriving (Eq, Show, Typeable, Data)
93 type ListItem = [Element]
98 defTerm :: ![InlineElement]
99 , defDesc :: ![InlineElement]
101 deriving (Eq, Show, Typeable, Data)
113 , bCmdAttributes :: ![Attribute]
114 , bCmdContents :: ![BlockElement]
116 deriving (Eq, Show, Typeable, Data)
122 , iCmdAttributes :: ![Attribute]
123 , iCmdContents :: ![InlineElement]
125 deriving (Eq, Show, Typeable, Data)