module Datadown
    exposing
        ( Document
        , Section
        , Content(..)
        )

{-| A library for Datadown parsing


# Types

@docs Document, Section, Content

-}

import Dict exposing (Dict)


{-| Content, such as plain text, code, lists, etc
-}
type Content a
    = Text String
    | Code (Maybe String) String -- ```html
    | Expressions a -- ```
    | List (List (Content a)) -- -
    | Quote (Document a) -- >


{-| A section of data
-}
type alias Section a =
    { title : String
    , mainContent : Maybe (Content a)
    , secondaryContent : Dict String (Content a)
    }


{-| A full document, with many sections
-}
type alias Document a =
    { title : String
    , sections : List (Section a)
    }