module Rakka.Wiki
    ( WikiPage
    , BlockElement(..)
    , InlineElement(..)
    )
    where

import           Rakka.Page


type WikiPage = [BlockElement]


data BlockElement
    = Heading {
        headingLevel :: !Int
      , headingText  :: !String
      }
    | Paragraph ![InlineElement]
    deriving (Eq, Show)


data InlineElement
    = Text !String
    | PageLink {
        linkPage     :: !(Maybe PageName)
      , linkFragment :: !(Maybe String)
      , linkText     :: !(Maybe String)
      }
    deriving (Eq, Show)