, CommandType(..)
, Attribute
+ , BlockCommand(..)
, InlineCommand(..)
)
where
| DefinitionList ![Definition]
| Preformatted ![InlineElement]
| Paragraph ![InlineElement]
+ | Div ![Attribute] ![BlockElement]
+ | BlockCmd !BlockCommand
deriving (Eq, Show)
, linkText :: !(Maybe String)
}
| LineBreak ![Attribute]
+ | Span ![Attribute] ![InlineElement]
| InlineCmd !InlineCommand
deriving (Eq, Show)
type Attribute = (String, String)
+data BlockCommand
+ = BlockCommand {
+ bCmdName :: !String
+ , bCmdAttributes :: ![Attribute]
+ , bCmdContents :: ![BlockElement]
+ }
+ deriving (Eq, Show)
+
+
data InlineCommand
= InlineCommand {
iCmdName :: !String