, ListItem
, Definition(..)
+
+ , CommandType(..)
+ , Attribute
+ , InlineCommand(..)
)
where
, linkFragment :: !(Maybe String)
, linkText :: !(Maybe String)
}
+ | LineBreak ![Attribute]
+ | InlineCmd !InlineCommand
deriving (Eq, Show)
defTerm :: ![InlineElement]
, defDesc :: ![InlineElement]
}
- deriving (Eq, Show)
\ No newline at end of file
+ deriving (Eq, Show)
+
+
+data CommandType
+ = InlineCommandType
+ | BlockCommandType
+
+
+type Attribute = (String, String)
+
+
+data InlineCommand
+ = InlineCommand {
+ iCmdName :: !String
+ , iCmdAttributes :: ![Attribute]
+ , iCmdContents :: ![InlineElement]
+ }
+ deriving (Eq, Show)