diff options
author | Yorhel <git@yorhel.nl> | 2019-10-19 15:12:43 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2019-11-10 12:44:55 +0100 |
commit | 2eff1dc7ad645cf51252d5a64275bcfc783fc325 (patch) | |
tree | cd993e754e98583508cd94f2a4869d1b64587c83 /elm/Lib | |
parent | 2d0a71b5083192a06de9e47a4424546a6bc4b639 (diff) |
ulist: Add data model for new lists + Perl/Elm for label management
Very much experimental. I'm not sure this is even the right model.
Diffstat (limited to 'elm/Lib')
-rw-r--r-- | elm/Lib/Html.elm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/elm/Lib/Html.elm b/elm/Lib/Html.elm index 3aae21c7..edf0a0c5 100644 --- a/elm/Lib/Html.elm +++ b/elm/Lib/Html.elm @@ -17,6 +17,12 @@ onClickN action = custom "click" (JD.succeed { message = action, stopPropagation br_ : Int -> Html m br_ n = if n == 1 then br [] [] else span [] <| List.repeat n <| br [] [] + +inputButton : String -> m -> List (Attribute m) -> Html m +inputButton val onch attrs = + input ([ type_ "button", class "submit", tabindex 10, value val, onClick onch] ++ attrs) [] + + -- Submit button with loading indicator and error message display submitButton : String -> Api.State -> Bool -> Bool -> Html m submitButton val state valid load = div [] |