/
HTMLOutputElement.purs
119 lines (89 loc) · 3.5 KB
/
HTMLOutputElement.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
113
114
115
116
117
118
119
module Web.HTML.HTMLOutputElement
( HTMLOutputElement
, fromHTMLElement
, fromElement
, fromNode
, fromChildNode
, fromNonDocumentTypeChildNode
, fromParentNode
, fromEventTarget
, toHTMLElement
, toElement
, toNode
, toChildNode
, toNonDocumentTypeChildNode
, toParentNode
, toEventTarget
, form
, name
, setName
, type_
, defaultValue
, setDefaultValue
, value
, setValue
, willValidate
, validity
, validationMessage
, checkValidity
, setCustomValidity
, labels
) 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.DOM.NodeList (NodeList)
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 HTMLOutputElement :: Type
fromHTMLElement :: HTMLElement -> Maybe HTMLOutputElement
fromHTMLElement = unsafeReadProtoTagged "HTMLOutputElement"
fromElement :: Element -> Maybe HTMLOutputElement
fromElement = unsafeReadProtoTagged "HTMLOutputElement"
fromNode :: Node -> Maybe HTMLOutputElement
fromNode = unsafeReadProtoTagged "HTMLOutputElement"
fromChildNode :: ChildNode -> Maybe HTMLOutputElement
fromChildNode = unsafeReadProtoTagged "HTMLOutputElement"
fromNonDocumentTypeChildNode :: NonDocumentTypeChildNode -> Maybe HTMLOutputElement
fromNonDocumentTypeChildNode = unsafeReadProtoTagged "HTMLOutputElement"
fromParentNode :: ParentNode -> Maybe HTMLOutputElement
fromParentNode = unsafeReadProtoTagged "HTMLOutputElement"
fromEventTarget :: EventTarget -> Maybe HTMLOutputElement
fromEventTarget = unsafeReadProtoTagged "HTMLOutputElement"
toHTMLElement :: HTMLOutputElement -> HTMLElement
toHTMLElement = unsafeCoerce
toElement :: HTMLOutputElement -> Element
toElement = unsafeCoerce
toNode :: HTMLOutputElement -> Node
toNode = unsafeCoerce
toChildNode :: HTMLOutputElement -> ChildNode
toChildNode = unsafeCoerce
toNonDocumentTypeChildNode :: HTMLOutputElement -> NonDocumentTypeChildNode
toNonDocumentTypeChildNode = unsafeCoerce
toParentNode :: HTMLOutputElement -> ParentNode
toParentNode = unsafeCoerce
toEventTarget :: HTMLOutputElement -> EventTarget
toEventTarget = unsafeCoerce
-- [PutForwards=value] readonly attribute DOMSettableTokenList htmlFor;
form :: HTMLOutputElement -> Effect (Maybe HTMLFormElement)
form = map toMaybe <<< _form
foreign import _form :: HTMLOutputElement -> Effect (Nullable HTMLFormElement)
foreign import name :: HTMLOutputElement -> Effect String
foreign import setName :: String -> HTMLOutputElement -> Effect Unit
foreign import type_ :: HTMLOutputElement -> Effect String
foreign import defaultValue :: HTMLOutputElement -> Effect String
foreign import setDefaultValue :: String -> HTMLOutputElement -> Effect Unit
foreign import value :: HTMLOutputElement -> Effect String
foreign import setValue :: String -> HTMLOutputElement -> Effect Unit
foreign import willValidate :: HTMLOutputElement -> Effect Boolean
foreign import validity :: HTMLOutputElement -> Effect ValidityState
foreign import validationMessage :: HTMLOutputElement -> Effect String
foreign import checkValidity :: HTMLOutputElement -> Effect Boolean
foreign import setCustomValidity :: String -> HTMLOutputElement -> Effect Unit
foreign import labels :: HTMLOutputElement -> Effect NodeList