module Common exposing (ServiceWorkerStatus(..), Switch(..), backToIndex, boolFromString, boolToString, queryString, translateHttpResponse, urlOrigin)

import Http
import Tuple.Ext as Tuple
import Url exposing (Protocol(..), Url)
import Url.Builder as Url



-- ⛩


backToIndex : String
backToIndex =
    "Back to tracks"



-- 🌳


type ServiceWorkerStatus
    = InstallingInitial
    | InstallingNew
    | WaitingForActivation
    | Activated


type Switch
    = On
    | Off



-- 🔱


boolFromString : String -> Bool
boolFromString string =
    case string of
        "t" ->
            True

        _ ->
            False


boolToString : Bool -> String
boolToString bool =
    if bool then
        "t"

    else
        "f"


queryString : List ( String, String ) -> String
queryString =
    List.map (Tuple.uncurry Url.string) >> Url.toQuery


translateHttpResponse : Http.Response String -> Result Http.Error String
translateHttpResponse response =
    case response of
        Http.BadUrl_ u ->
            Err (Http.BadUrl u)

        Http.Timeout_ ->
            Err Http.Timeout

        Http.NetworkError_ ->
            Err Http.NetworkError

        Http.BadStatus_ _ body ->
            Err (Http.BadBody body)

        Http.GoodStatus_ _ body ->
            Ok body


urlOrigin : Url -> String
urlOrigin { host, port_, path, protocol } =
    let
        scheme =
            case protocol of
                Http ->
                    "http://"

                Https ->
                    "https://"

        thePort =
            port_
                |> Maybe.map (String.fromInt >> (++) ":")
                |> Maybe.withDefault ""
    in
    scheme ++ host ++ thePort ++ path