1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
module Lib.Html exposing (..)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Json.Decode as JD
import List
import Lib.Api as Api
-- onClick with stopPropagation & preventDefault
onClickN : m -> Attribute m
onClickN action = custom "click" (JD.succeed { message = action, stopPropagation = True, preventDefault = True})
-- Submit button with loading indicator and error message display
submitButton : String -> Api.State -> Bool -> Bool -> Html m
submitButton val state valid load = div []
[ input [ type_ "submit", class "submit", tabindex 10, value val, disabled (state == Api.Loading || not valid || load) ] []
, case state of
Api.Error r -> p [] [ b [class "standout" ] [ text <| Api.showResponse r ] ]
_ -> if valid
then text ""
else p [] [ b [class "standout" ] [ text "The form contains errors, please fix these before submitting. " ] ]
, if state == Api.Loading || load
then div [ class "spinner" ] []
else text ""
]
inputSelect : String -> String -> (String -> m) -> List (Attribute m) -> List (String, String) -> Html m
inputSelect nam sel onch attrs lst =
let opt (id, name) = option [ value id, selected (id == sel) ] [ text name ]
in select (
[ tabindex 10
, onInput onch
]
++ attrs
++ (if nam == "" then [] else [ id nam, name nam ])
) <| List.map opt lst
inputText : String -> String -> (String -> m) -> List (Attribute m) -> Html m
inputText nam val onch attrs = input (
[ type_ "text"
, class "text"
, tabindex 10
, value val
, onInput onch
]
++ attrs
++ (if nam == "" then [] else [ id nam, name nam ])
) []
inputPassword : String -> String -> (String -> m) -> List (Attribute m) -> Html m
inputPassword nam val onch attrs = input (
[ type_ "password"
, class "text"
, tabindex 10
, value val
, onInput onch
]
++ attrs
++ (if nam == "" then [] else [ id nam, name nam ])
) []
inputTextArea : String -> String -> (String -> m) -> List (Attribute m) -> Html m
inputTextArea nam val onch attrs = textarea (
[ tabindex 10
, onInput onch
]
++ attrs
++ (if nam == "" then [] else [ id nam, name nam ])
) [ text val ]
inputCheck : String -> Bool -> (Bool -> m) -> Html m
inputCheck nam val onch = input (
[ type_ "checkbox"
, tabindex 10
, onCheck onch
, checked val
]
++ (if nam == "" then [] else [ id nam, name nam ])
) []
|
