{-

bold, italic, underline, strikethrough

heading, blockquotes, block code, inline code, horizontal rule, paragraph

image, video, link

ordered list, unordered list

-}

data TextStyle =
  None                               -- []
  | Bold                             -- [1]
  | Italic                           -- [2]
  | Underline                        -- [3]
  | Strikethrough                    -- [4]
  | BoldItalic                       -- [1,2]
  | BoldUnderline                    -- [1,3]
  | BoldStrikethrough                -- [1,4]
  | ItalicUnderline                  -- [2,3]
  | ItalicStrikethrough              -- [2,4]
  | UnderlineStrikethrough           -- [3,4]
  | BoldItalicUnderline              -- [1,2,3]
  | BoldItalicStrikethrough          -- [1,2,4]
  | BoldUnderlineStrikethrough       -- [1,3,4]
  | ItalicUnderlineStrikethrough     -- [2,3,4]
  | BoldItalicUnderlineStrikethrough -- [1,2,3,4]

data HeadingType =
  HeadingType1
  | HeadingType2
  | HeadingType3
  | HeadingType4
  | HeadingType5
  | HeadingType6

data StyledText =
  StyledText TextStyle Text

data Block =
  Plain StyledText
  | Paragraph StyledText
  | Code StyledText
  | BlockQuote StyledText
  | Heading HeadingType StyledText
  | OrderedList [StyledText]
  | UnorderedList [StyledText]