go-inbucket/ui/src/Data/Message.elm

module Data.Message exposing (Attachment, Message, attachmentDecoder, decoder)

import Data.Date exposing (date)
import Json.Decode exposing (..)
import Json.Decode.Pipeline exposing (..)
import Time exposing (Posix)


type alias Message =
    { mailbox : String
    , id : String
    , from : String
    , to : List String
    , subject : String
    , date : Posix
    , size : Int
    , seen : Bool
    , text : String
    , html : String
    , attachments : List Attachment
    , errors : List Error
    }


type alias Attachment =
    { id : String
    , fileName : String
    , contentType : String
    }


type alias Error =
    { name : String
    , detail : String
    , severe : Bool
    }


decoder : Decoder Message
decoder =
    succeed Message
        |> required "mailbox" string
        |> required "id" string
        |> optional "from" string ""
        |> required "to" (list string)
        |> optional "subject" string ""
        |> required "posix-millis" date
        |> required "size" int
        |> required "seen" bool
        |> required "text" string
        |> required "html" string
        |> required "attachments" (list attachmentDecoder)
        |> required "errors" (list errorDecoder)


attachmentDecoder : Decoder Attachment
attachmentDecoder =
    succeed Attachment
        |> required "id" string
        |> required "filename" string
        |> required "content-type" string


errorDecoder : Decoder Error
errorDecoder =
    succeed Error
        |> required "name" string
        |> required "detail" string
        |> required "severe" bool