ulist: Inline editable votes

1 files changed, 7 insertions, 0 deletions

diff --git a/elm/Lib/Html.elm b/elm/Lib/Html.elm
index edf0a0c5..d9c0594a 100644
--- a/elm/Lib/Html.elm
+++ b/elm/Lib/Html.elm
@@ -12,6 +12,13 @@ import Lib.Api as Api
 onClickN : m -> Attribute m
 onClickN action = custom "click" (JD.succeed { message = action, stopPropagation = True, preventDefault = True})
 
+-- onInput that also tells us whether the input is valid
+onInputValidation : (String -> Bool -> msg) -> Attribute msg
+onInputValidation msg = custom "input" <|
+  JD.map2 (\value valid -> { preventDefault = False, stopPropagation = True, message = msg value valid })
+          targetValue
+          (JD.at ["target", "validity", "valid"] JD.bool)
+
 
 -- Multi-<br> (ugly but oh, so, convenient)
 br_ : Int -> Html m