/
HTMLFieldSetElement.purs
112 lines (84 loc) · 3.37 KB
/
HTMLFieldSetElement.purs
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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
module Web.HTML.HTMLFieldSetElement
( HTMLFieldSetElement
, fromHTMLElement
, fromElement
, fromNode
, fromChildNode
, fromNonDocumentTypeChildNode
, fromParentNode
, fromEventTarget
, toHTMLElement
, toElement
, toNode
, toChildNode
, toNonDocumentTypeChildNode
, toParentNode
, toEventTarget
, disabled
, setDisabled
, form
, name
, setName
, type_
, setType
, willValidate
, validity
, validationMessage
, checkValidity
, setCustomValidity
) where
import Prelude
import Data.Maybe (Maybe)
import Data.Nullable (Nullable, toMaybe)
import Effect (Effect)
import Unsafe.Coerce (unsafeCoerce)
import Web.DOM (ChildNode, Element, Node, NonDocumentTypeChildNode, ParentNode)
import Web.Event.EventTarget (EventTarget)
import Web.HTML.HTMLElement (HTMLElement)
import Web.HTML.HTMLFormElement (HTMLFormElement)
import Web.HTML.ValidityState (ValidityState)
import Web.Internal.FFI (unsafeReadProtoTagged)
foreign import data HTMLFieldSetElement :: Type
fromHTMLElement :: HTMLElement -> Maybe HTMLFieldSetElement
fromHTMLElement = unsafeReadProtoTagged "HTMLFieldSetElement"
fromElement :: Element -> Maybe HTMLFieldSetElement
fromElement = unsafeReadProtoTagged "HTMLFieldSetElement"
fromNode :: Node -> Maybe HTMLFieldSetElement
fromNode = unsafeReadProtoTagged "HTMLFieldSetElement"
fromChildNode :: ChildNode -> Maybe HTMLFieldSetElement
fromChildNode = unsafeReadProtoTagged "HTMLFieldSetElement"
fromNonDocumentTypeChildNode :: NonDocumentTypeChildNode -> Maybe HTMLFieldSetElement
fromNonDocumentTypeChildNode = unsafeReadProtoTagged "HTMLFieldSetElement"
fromParentNode :: ParentNode -> Maybe HTMLFieldSetElement
fromParentNode = unsafeReadProtoTagged "HTMLFieldSetElement"
fromEventTarget :: EventTarget -> Maybe HTMLFieldSetElement
fromEventTarget = unsafeReadProtoTagged "HTMLFieldSetElement"
toHTMLElement :: HTMLFieldSetElement -> HTMLElement
toHTMLElement = unsafeCoerce
toElement :: HTMLFieldSetElement -> Element
toElement = unsafeCoerce
toNode :: HTMLFieldSetElement -> Node
toNode = unsafeCoerce
toChildNode :: HTMLFieldSetElement -> ChildNode
toChildNode = unsafeCoerce
toNonDocumentTypeChildNode :: HTMLFieldSetElement -> NonDocumentTypeChildNode
toNonDocumentTypeChildNode = unsafeCoerce
toParentNode :: HTMLFieldSetElement -> ParentNode
toParentNode = unsafeCoerce
toEventTarget :: HTMLFieldSetElement -> EventTarget
toEventTarget = unsafeCoerce
foreign import disabled :: HTMLFieldSetElement -> Effect Boolean
foreign import setDisabled :: Boolean -> HTMLFieldSetElement -> Effect Unit
foreign import _form :: HTMLFieldSetElement -> Effect (Nullable HTMLFormElement)
form :: HTMLFieldSetElement -> Effect (Maybe HTMLFormElement)
form = map toMaybe <<< _form
foreign import name :: HTMLFieldSetElement -> Effect String
foreign import setName :: String -> HTMLFieldSetElement -> Effect Unit
foreign import type_ :: HTMLFieldSetElement -> Effect String
foreign import setType :: String -> HTMLFieldSetElement -> Effect Unit
-- readonly attribute HTMLFormControlsCollection elements;
foreign import willValidate :: HTMLFieldSetElement -> Effect Boolean
foreign import validity :: HTMLFieldSetElement -> Effect ValidityState
foreign import validationMessage :: HTMLFieldSetElement -> Effect String
foreign import checkValidity :: HTMLFieldSetElement -> Effect Boolean
foreign import setCustomValidity :: String -> HTMLFieldSetElement -> Effect Unit