git.iko.soy/typeable/elm-ui
on master help sign in
input cleanup
e288034Matthew Griffith
src/Element/Input.elm−36
compare with master
unifiedsplit
@@ -757,7 +757,6 @@ textHelper textInput attrs textOptions =
757 (Internal.Unkeyed [])
757 (Internal.Unkeyed [])
758
758
759 wrappedInput =
759 wrappedInput =
760− -- if heightContent then
761 case textInput.type_ of
760 case textInput.type_ of
762 TextArea ->
761 TextArea ->
763 -- textarea with height-content means that
762 -- textarea with height-content means that
@@ -1010,30 +1009,6 @@ redistributeOver attr els =
1010 { els | input = attr :: els.input }
1009 { els | input = attr :: els.input }
1011
1010
1012
1011
1013−orElse thing maybe =
1014− case maybe of
1015− Nothing ->
1016− Just thing
1017−
1018− _ ->
1019− maybe
1020−
1021−
1022−inheritablePlaceholderAttributes attr =
1023− case attr of
1024− Internal.StyleClass _ (Internal.PaddingStyle _ _ _ _ _) ->
1025− True
1026−
1027− Internal.StyleClass _ (Internal.BorderWidth _ _ _ _ _) ->
1028− True
1029−
1030− Internal.StyleClass _ (Internal.Transform _) ->
1031− True
1032−
1033− _ ->
1034− False
1035−
1036−
1037{-| -}
1012{-| -}
1038text :
1013text :
1039 List (Attribute msg)
1014 List (Attribute msg)
@@ -1761,17 +1736,6 @@ onFocusIn msg =
1761 Internal.Attr <| Html.Events.on "focusin" (Json.succeed msg)
1736 Internal.Attr <| Html.Events.on "focusin" (Json.succeed msg)
1762
1737
1763
1738
1764−type_ : String -> Attribute msg
1765−type_ =
1766− Internal.Attr << Html.Attributes.type_
1767−
1768−
1769−
1770−-- checked : Bool -> Attribute msg
1771−-- checked =
1772−-- Internal.Attr << Html.Attributes.checked
1773−
1774−
1775selected : Bool -> Attribute msg
1739selected : Bool -> Attribute msg
1776selected =
1740selected =
1777 Internal.Attr << Html.Attributes.selected
1741 Internal.Attr << Html.Attributes.selected