elm-pages 3.0.0-beta.32 → 3.0.0-beta.34

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (42) hide show
  1. package/README.md +1 -1
  2. package/codegen/elm-pages-codegen.cjs +10 -78
  3. package/generator/dead-code-review/elm-stuff/tests-0.19.1/elm-stuff/0.19.1/d.dat +0 -0
  4. package/generator/dead-code-review/elm-stuff/tests-0.19.1/js/node_runner.js +1 -1
  5. package/generator/dead-code-review/elm-stuff/tests-0.19.1/js/node_supervisor.js +1 -1
  6. package/generator/dead-code-review/elm.json +1 -1
  7. package/generator/review/elm-stuff/tests-0.19.1/elm-stuff/0.19.1/d.dat +0 -0
  8. package/generator/review/elm-stuff/tests-0.19.1/js/node_runner.js +1 -1
  9. package/generator/review/elm-stuff/tests-0.19.1/js/node_supervisor.js +1 -1
  10. package/generator/review/elm.json +1 -1
  11. package/generator/src/RouteBuilder.elm +2 -2
  12. package/generator/src/compatibility-key.js +2 -2
  13. package/generator/src/render.js +1 -0
  14. package/generator/src/request-cache.js +20 -6
  15. package/generator/static-code/elm-pages.js +10 -0
  16. package/package.json +3 -3
  17. package/src/BackendTask/Http.elm +8 -2
  18. package/src/Internal/Field.elm +19 -0
  19. package/src/Internal/Input.elm +81 -0
  20. package/src/Pages/Form.elm +229 -0
  21. package/src/Pages/Internal/Msg.elm +70 -61
  22. package/src/Pages/Internal/Platform/Cli.elm +423 -425
  23. package/src/Pages/Internal/Platform/CompatibilityKey.elm +1 -1
  24. package/src/Pages/Internal/Platform/GeneratorApplication.elm +1 -5
  25. package/src/Pages/Internal/Platform.elm +119 -100
  26. package/src/Pages/ProgramConfig.elm +12 -5
  27. package/src/Pages/StaticHttpRequest.elm +0 -1
  28. package/src/Pages/Transition.elm +9 -1
  29. package/src/PagesMsg.elm +0 -10
  30. package/src/RequestsAndPending.elm +31 -3
  31. package/src/Scaffold/Form.elm +9 -9
  32. package/src/Server/Request.elm +57 -61
  33. package/src/Form/Field.elm +0 -729
  34. package/src/Form/FieldStatus.elm +0 -36
  35. package/src/Form/FieldView.elm +0 -497
  36. package/src/Form/FormData.elm +0 -22
  37. package/src/Form/Validation.elm +0 -391
  38. package/src/Form/Value.elm +0 -118
  39. package/src/Form.elm +0 -1558
  40. package/src/FormDecoder.elm +0 -102
  41. package/src/Pages/FormState.elm +0 -257
  42. package/src/Pages/Internal/Form.elm +0 -37
package/src/Pages/Internal/Msg.elm CHANGED
@@ -1,13 +1,17 @@
1
1
  module Pages.Internal.Msg exposing
2
- ( Msg(..)
3
- , fetcherOnSubmit
4
- , map
5
- , onSubmit
6
- , submitIfValid
2
+ ( Msg(..)
3
+ --, fetcherOnSubmit
4
+
5
+ , map
6
+ --, onSubmit
7
+ --, submitIfValid
8
+
7
9
  )
8
10
 
9
- import Form.FormData exposing (FormData)
10
- import FormDecoder
11
+ --import Form.FormData exposing (FormData)
12
+ --import FormDecoder
13
+
14
+ import Form exposing (Method)
11
15
  import Html exposing (Attribute)
12
16
  import Html.Attributes as Attr
13
17
  import Json.Decode
@@ -16,54 +20,56 @@ import Json.Decode
16
20
  {-| -}
17
21
  type Msg userMsg
18
22
  = UserMsg userMsg
19
- | Submit FormData
20
- | SubmitIfValid String FormData Bool (Maybe userMsg)
21
- | SubmitFetcher String FormData Bool (Maybe userMsg)
22
- | FormFieldEvent Json.Decode.Value
23
+ | Submit { valid : Bool, method : Method, action : String, fields : List ( String, String ), id : String, msg : Maybe userMsg, useFetcher : Bool }
24
+ --| SubmitIfValid String FormData Bool (Maybe userMsg)
25
+ --| SubmitFetcher String FormData Bool (Maybe userMsg)
26
+ | FormMsg (Form.Msg (Msg userMsg))
23
27
  | NoOp
24
28
 
25
29
 
26
- {-| -}
27
- onSubmit : Attribute (Msg userMsg)
28
- onSubmit =
29
- FormDecoder.formDataOnSubmit
30
- |> Attr.map Submit
31
-
32
-
33
- {-| -}
34
- submitIfValid : Maybe ({ fields : List ( String, String ) } -> userMsg) -> String -> (List ( String, String ) -> Bool) -> Attribute (Msg userMsg)
35
- submitIfValid userMsg formId isValid =
36
- FormDecoder.formDataOnSubmit
37
- |> Attr.map
38
- (\formData ->
39
- SubmitIfValid formId
40
- formData
41
- (isValid formData.fields)
42
- (userMsg
43
- |> Maybe.map
44
- (\toUserMsg ->
45
- toUserMsg { fields = formData.fields }
46
- )
47
- )
48
- )
49
-
50
30
 
51
- {-| -}
52
- fetcherOnSubmit : Maybe ({ fields : List ( String, String ) } -> userMsg) -> String -> (List ( String, String ) -> Bool) -> Attribute (Msg userMsg)
53
- fetcherOnSubmit userMsg formId isValid =
54
- FormDecoder.formDataOnSubmit
55
- |> Attr.map
56
- (\formData ->
57
- SubmitFetcher formId
58
- formData
59
- (isValid formData.fields)
60
- (userMsg
61
- |> Maybe.map
62
- (\toUserMsg ->
63
- toUserMsg { fields = formData.fields }
64
- )
65
- )
66
- )
31
+ --{-| -}
32
+ --onSubmit : Attribute (Msg userMsg)
33
+ --onSubmit =
34
+ -- FormDecoder.formDataOnSubmit
35
+ -- |> Attr.map Submit
36
+ --
37
+ --
38
+ --{-| -}
39
+ --submitIfValid : Maybe ({ fields : List ( String, String ) } -> userMsg) -> String -> (List ( String, String ) -> Bool) -> Attribute (Msg userMsg)
40
+ --submitIfValid userMsg formId isValid =
41
+ -- FormDecoder.formDataOnSubmit
42
+ -- |> Attr.map
43
+ -- (\formData ->
44
+ -- SubmitIfValid formId
45
+ -- formData
46
+ -- (isValid formData.fields)
47
+ -- (userMsg
48
+ -- |> Maybe.map
49
+ -- (\toUserMsg ->
50
+ -- toUserMsg { fields = formData.fields }
51
+ -- )
52
+ -- )
53
+ -- )
54
+ --
55
+ --
56
+ --
57
+ --{-| -}
58
+ --fetcherOnSubmit : Maybe ({ fields : List ( String, String ) } -> userMsg) -> String -> (List ( String, String ) -> Bool) -> Attribute (Msg userMsg)
59
+ --fetcherOnSubmit userMsg formId isValid =
60
+ -- FormDecoder.formDataOnSubmit
61
+ -- |> Attr.map
62
+ -- (\formData ->
63
+ -- SubmitFetcher formId
64
+ -- formData
65
+ -- (isValid formData.fields)
66
+ -- (userMsg
67
+ -- |> Maybe.map
68
+ -- (\toUserMsg ->
69
+ -- toUserMsg { fields = formData.fields }
70
+ -- )
71
+ -- )
72
+ -- )
67
73
 
68
74
 
69
75
  {-| -}
@@ -74,16 +80,19 @@ map mapFn msg =
74
80
  UserMsg (mapFn userMsg)
75
81
 
76
82
  Submit info ->
77
- Submit info
78
-
79
- SubmitIfValid formId info isValid toUserMsg ->
80
- SubmitIfValid formId info isValid (Maybe.map mapFn toUserMsg)
81
-
82
- SubmitFetcher formId info isValid toUserMsg ->
83
- SubmitFetcher formId info isValid (Maybe.map mapFn toUserMsg)
84
-
85
- FormFieldEvent value ->
86
- FormFieldEvent value
83
+ Submit
84
+ { valid = info.valid
85
+ , fields = info.fields
86
+ , action = info.action
87
+ , id = info.id
88
+ , msg = Maybe.map mapFn info.msg
89
+ , method = info.method
90
+ , useFetcher = info.useFetcher
91
+ }
92
+
93
+ FormMsg value ->
94
+ FormMsg
95
+ (Form.mapMsg (map mapFn) value)
87
96
 
88
97
  NoOp ->
89
98
  NoOp