diff options
author | Yorhel <git@yorhel.nl> | 2019-12-01 09:22:20 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2019-12-01 13:40:59 +0100 |
commit | 165b62acc991cbf30cb721af27b04a066dbc9413 (patch) | |
tree | 34cbe7fef4a020fe121ddf1026dd6be13e9498a2 /elm/Lib/Html.elm | |
parent | b2ba46a9a0900d2b9d62a5ff84c4d4c9d9780abc (diff) |
v2rw: Convert thread display + poll voting
I did not reimplement the 'poll_recast' and 'poll_preview' settings,
these actions are now always permitted.
Updated CSS a little bit to highlight the linked post and fix the double
border at the bottom.
The nice thing about the sql_visible_threads() function I wrote earlier
is that is can also be used for access control on a single thread. More
code re-use. \o/
Diffstat (limited to 'elm/Lib/Html.elm')
-rw-r--r-- | elm/Lib/Html.elm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/elm/Lib/Html.elm b/elm/Lib/Html.elm index d75dced4..1e995f86 100644 --- a/elm/Lib/Html.elm +++ b/elm/Lib/Html.elm @@ -45,15 +45,15 @@ inputButton val 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 [] - [ input [ type_ "submit", class "submit", tabindex 10, value val, disabled (state == Api.Loading || not valid || load) ] [] +submitButton : String -> Api.State -> Bool -> Html m +submitButton val state valid = div [] + [ input [ type_ "submit", class "submit", tabindex 10, value val, disabled (state == Api.Loading || not valid) ] [] , 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 + , if state == Api.Loading then div [ class "spinner" ] [] else text "" ] |