59 lines
1.1 KiB
Elm
59 lines
1.1 KiB
Elm
module Avatar exposing (Avatar, decoder, encode, src, toMaybeString)
|
|
|
|
import Asset
|
|
import Html exposing (Attribute)
|
|
import Html.Attributes
|
|
import Json.Decode as Decode exposing (Decoder)
|
|
import Json.Encode as Encode exposing (Value)
|
|
|
|
|
|
|
|
-- TYPES
|
|
|
|
|
|
type Avatar
|
|
= Avatar (Maybe String)
|
|
|
|
|
|
|
|
-- CREATE
|
|
|
|
|
|
decoder : Decoder Avatar
|
|
decoder =
|
|
Decode.map Avatar (Decode.nullable Decode.string)
|
|
|
|
|
|
|
|
-- TRANSFORM
|
|
|
|
|
|
src : Avatar -> Attribute msg
|
|
src (Avatar maybeUrl) =
|
|
Html.Attributes.src (resolveAvatarUrl maybeUrl)
|
|
|
|
|
|
resolveAvatarUrl : Maybe String -> String
|
|
resolveAvatarUrl maybeUrl =
|
|
{- 👉 TODO #1 of 2: return the user's avatar from maybeUrl, if maybeUrl actually
|
|
contains one. If maybeUrl is Nothing, return this URL instead:
|
|
|
|
https://static.productionready.io/images/smiley-cyrus.jpg
|
|
-}
|
|
""
|
|
|
|
|
|
encode : Avatar -> Value
|
|
encode (Avatar maybeUrl) =
|
|
case maybeUrl of
|
|
Just url ->
|
|
Encode.string url
|
|
|
|
Nothing ->
|
|
Encode.null
|
|
|
|
|
|
toMaybeString : Avatar -> Maybe String
|
|
toMaybeString (Avatar maybeUrl) =
|
|
maybeUrl
|