RichText.elm

-- the type aliases would be private

type RichText
    = RichText (List Line)
    

type alias Line =
    { left : List (Attributes, String)
    , center : List (Attributes, String)
    , right : List (Attributes, String)
    }

type alias Attributes =
    { bold : Bool
    , italic : Bool
    , underline : Bool
    , color : Maybe Color
    , highlight : Maybe Highlight
    }


plainAttributes : Attributes
plainAttributes =
    { bold = False
    , italic = False
    , underline = False
    , alignment = Nothing
    , color = Nothing
    , highlight = Nothing
    }



-- Stuff below isn't update to work with the addition of Line


text : String -> RichText
text string =
    RichText [ ( plainAttributes, string ) ]

bold : String -> RichText
bold string =
    RichText [ ( { plainAttributes | bold = True }, string ) ]
    
-- or maybe instead:
bold : RichText -> RichText
bold (RichText list) =
    RichText (List.map (\(attrs, string) -> ( { attrs | bold = True }, string )) list)

    
append : RichText -> RichText -> RichText
append (RichText left) (RichText right) =
    RichText (left ++ right)
    

concat : List RichText -> RichText
concat list =
    RichText (List.concatMap (\(RichText l) -> l) list)


ex1 =
    concat
        [ text "Hello, "
        , bold (text "World")
        , text "."
        ]