elm-pages 2.1.11 → 3.0.0-beta.0

package/src/Pages/Fetcher.elm

@@ -0,0 +1,58 @@
+module Pages.Fetcher exposing (Fetcher(..), FetcherInfo, submit, map)
+
+{-|
+
+@docs Fetcher, FetcherInfo, submit, map
+
+-}
+
+import Bytes exposing (Bytes)
+import Bytes.Decode
+import Http
+
+
+{-| -}
+type Fetcher decoded
+    = Fetcher (FetcherInfo decoded)
+
+
+{-| -}
+type alias FetcherInfo decoded =
+    { decoder : Result Http.Error Bytes -> decoded
+    , fields : List ( String, String )
+    , headers : List ( String, String )
+    , url : Maybe String
+    }
+
+
+{-| -}
+submit :
+    Bytes.Decode.Decoder decoded
+    -> { fields : List ( String, String ), headers : List ( String, String ) }
+    -> Fetcher (Result Http.Error decoded)
+submit byteDecoder options =
+    Fetcher
+        { decoder =
+            \bytesResult ->
+                bytesResult
+                    |> Result.andThen
+                        (\okBytes ->
+                            okBytes
+                                |> Bytes.Decode.decode byteDecoder
+                                |> Result.fromMaybe (Http.BadBody "Couldn't decode bytes.")
+                        )
+        , fields = options.fields
+        , headers = ( "elm-pages-action-only", "true" ) :: options.headers
+        , url = Nothing
+        }
+
+
+{-| -}
+map : (a -> b) -> Fetcher a -> Fetcher b
+map mapFn (Fetcher fetcher) =
+    Fetcher
+        { decoder = fetcher.decoder >> mapFn
+        , fields = fetcher.fields
+        , headers = fetcher.headers
+        , url = fetcher.url
+        }

package/src/Pages/FormState.elm

@@ -0,0 +1,256 @@
+module Pages.FormState exposing (Event(..), FieldEvent, FieldState, FormState, PageFormState, init, listeners, setField, setSubmitAttempted, update)
+
+{-|
+
+@docs Event, FieldEvent, FieldState, FormState, PageFormState, init, listeners, setField, setSubmitAttempted, update
+
+-}
+
+import Dict exposing (Dict)
+import Form.FieldStatus as FieldStatus exposing (FieldStatus)
+import Html exposing (Attribute)
+import Html.Attributes as Attr
+import Html.Events
+import Json.Decode as Decode exposing (Decoder)
+import Pages.Msg
+
+
+{-| -}
+listeners : String -> List (Attribute (Pages.Msg.Msg userMsg))
+listeners formId =
+    [ Html.Events.on "focusin" (Decode.value |> Decode.map Pages.Msg.FormFieldEvent)
+    , Html.Events.on "focusout" (Decode.value |> Decode.map Pages.Msg.FormFieldEvent)
+    , Html.Events.on "input" (Decode.value |> Decode.map Pages.Msg.FormFieldEvent)
+    , Attr.id formId
+    ]
+
+
+{-| -}
+type Event
+    = InputEvent String
+    | FocusEvent
+      --| ChangeEvent
+    | BlurEvent
+
+
+{-| -}
+type alias FieldEvent =
+    { value : String
+    , formId : String
+    , name : String
+    , event : Event
+    }
+
+
+{-| -}
+fieldEventDecoder : Decoder FieldEvent
+fieldEventDecoder =
+    Decode.map4 FieldEvent
+        inputValueDecoder
+        (Decode.at [ "currentTarget", "id" ] Decode.string)
+        (Decode.at [ "target", "name" ] Decode.string)
+        fieldDecoder
+
+
+{-| -}
+inputValueDecoder : Decoder String
+inputValueDecoder =
+    Decode.at [ "target", "type" ] Decode.string
+        |> Decode.andThen
+            (\targetType ->
+                case targetType of
+                    "checkbox" ->
+                        Decode.map2
+                            (\valueWhenChecked isChecked ->
+                                if isChecked then
+                                    valueWhenChecked
+
+                                else
+                                    ""
+                            )
+                            (Decode.at [ "target", "value" ] Decode.string)
+                            (Decode.at [ "target", "checked" ] Decode.bool)
+
+                    _ ->
+                        Decode.at [ "target", "value" ] Decode.string
+            )
+
+
+{-| -}
+fieldDecoder : Decoder Event
+fieldDecoder =
+    Decode.field "type" Decode.string
+        |> Decode.andThen
+            (\type_ ->
+                case type_ of
+                    "input" ->
+                        inputValueDecoder |> Decode.map InputEvent
+
+                    "focusin" ->
+                        FocusEvent
+                            |> Decode.succeed
+
+                    "focusout" ->
+                        BlurEvent
+                            |> Decode.succeed
+
+                    _ ->
+                        Decode.fail "Unexpected event.type"
+            )
+
+
+{-| -}
+update : Decode.Value -> PageFormState -> PageFormState
+update eventObject pageFormState =
+    --if Dict.isEmpty pageFormState then
+    --    -- TODO get all initial field values
+    --    pageFormState
+    --
+    --else
+    case eventObject |> Decode.decodeValue fieldEventDecoder of
+        Ok fieldEvent ->
+            pageFormState
+                |> Dict.update fieldEvent.formId
+                    (\previousValue_ ->
+                        let
+                            previousValue : FormState
+                            previousValue =
+                                previousValue_
+                                    |> Maybe.withDefault init
+                        in
+                        previousValue
+                            |> updateForm fieldEvent
+                            |> Just
+                    )
+
+        Err _ ->
+            pageFormState
+
+
+{-| -}
+setField : { formId : String, name : String, value : String } -> PageFormState -> PageFormState
+setField info pageFormState =
+    pageFormState
+        |> Dict.update info.formId
+            (\previousValue_ ->
+                let
+                    previousValue : FormState
+                    previousValue =
+                        previousValue_
+                            |> Maybe.withDefault init
+                in
+                { previousValue
+                    | fields =
+                        previousValue.fields
+                            |> Dict.update info.name
+                                (\previousFieldValue_ ->
+                                    let
+                                        previousFieldValue : FieldState
+                                        previousFieldValue =
+                                            previousFieldValue_
+                                                |> Maybe.withDefault { value = "", status = FieldStatus.NotVisited }
+                                    in
+                                    { previousFieldValue | value = info.value }
+                                        |> Just
+                                )
+                }
+                    |> Just
+            )
+
+
+{-| -}
+updateForm : FieldEvent -> FormState -> FormState
+updateForm fieldEvent formState =
+    { formState
+        | fields =
+            formState.fields
+                |> Dict.update fieldEvent.name
+                    (\previousValue_ ->
+                        let
+                            previousValue : FieldState
+                            previousValue =
+                                previousValue_
+                                    |> Maybe.withDefault { value = fieldEvent.value, status = FieldStatus.NotVisited }
+                        in
+                        (case fieldEvent.event of
+                            InputEvent newValue ->
+                                { previousValue | value = newValue }
+
+                            FocusEvent ->
+                                { previousValue | status = previousValue.status |> increaseStatusTo FieldStatus.Focused }
+
+                            BlurEvent ->
+                                { previousValue | status = previousValue.status |> increaseStatusTo FieldStatus.Blurred }
+                        )
+                            |> Just
+                    )
+    }
+
+
+{-| -}
+setSubmitAttempted : String -> PageFormState -> PageFormState
+setSubmitAttempted fieldId pageFormState =
+    pageFormState
+        |> Dict.update fieldId
+            (\maybeForm ->
+                case maybeForm of
+                    Just formState ->
+                        Just { formState | submitAttempted = True }
+
+                    Nothing ->
+                        Just { init | submitAttempted = True }
+            )
+
+
+{-| -}
+init : FormState
+init =
+    { fields = Dict.empty
+    , submitAttempted = False
+    }
+
+
+{-| -}
+type alias PageFormState =
+    Dict String FormState
+
+
+{-| -}
+type alias FormState =
+    { fields : Dict String FieldState
+    , submitAttempted : Bool
+    }
+
+
+{-| -}
+type alias FieldState =
+    { value : String
+    , status : FieldStatus
+    }
+
+
+{-| -}
+increaseStatusTo : FieldStatus -> FieldStatus -> FieldStatus
+increaseStatusTo increaseTo currentStatus =
+    if statusRank increaseTo > statusRank currentStatus then
+        increaseTo
+
+    else
+        currentStatus
+
+
+{-| -}
+statusRank : FieldStatus -> Int
+statusRank status =
+    case status of
+        FieldStatus.NotVisited ->
+            0
+
+        FieldStatus.Focused ->
+            1
+
+        FieldStatus.Changed ->
+            2
+
+        FieldStatus.Blurred ->
+            3