diffuse / src / Library / Settings.elm

module Settings exposing (Settings, decoder, encode)

import Json.Decode as Json
import Json.Decode.Pipeline exposing (optional)
import Json.Encode
import Maybe.Extra as Maybe



-- 🌳


type alias Settings =
    { backgroundImage : Maybe String
    , coverSelectionReducesPool : Bool
    , hideDuplicates : Bool
    , lastFm : Maybe String
    , processAutomatically : Bool
    , rememberProgress : Bool
    }



-- ENCODING


encode : Settings -> Json.Value
encode settings =
    Json.Encode.object
        [ ( "backgroundImage"
          , Maybe.unwrap Json.Encode.null Json.Encode.string settings.backgroundImage
          )
        , ( "coverSelectionReducesPool"
          , Json.Encode.bool settings.coverSelectionReducesPool
          )
        , ( "hideDuplicates"
          , Json.Encode.bool settings.hideDuplicates
          )
        , ( "lastFm"
          , Maybe.unwrap Json.Encode.null Json.Encode.string settings.lastFm
          )
        , ( "processAutomatically"
          , Json.Encode.bool settings.processAutomatically
          )
        , ( "rememberProgress"
          , Json.Encode.bool settings.rememberProgress
          )
        ]



-- DECODING


decoder : Json.Decoder Settings
decoder =
    Json.succeed Settings
        |> optional "backgroundImage" (Json.maybe Json.string) Nothing
        |> optional "coverSelectionReducesPool" Json.bool True
        |> optional "hideDuplicates" Json.bool False
        |> optional "lastFm" (Json.maybe Json.string) Nothing
        |> optional "processAutomatically" Json.bool True
        |> optional "rememberProgress" Json.bool True