Skip to content
This repository was archived by the owner on Oct 4, 2020. It is now read-only.

Commit 8a12415

Browse files
nwolversonnwolverson
committed
Add HTMLElement properties/methods
1 parent 319bf89 commit 8a12415

File tree

2 files changed

+229
-0
lines changed

2 files changed

+229
-0
lines changed

‎src/DOM/HTML/HTMLElement.js

+191
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,191 @@
1+
"use strict";
2+
3+
// ----------------------------------------------------------------------------
4+
5+
exports.title = function (elt) {
6+
return function () {
7+
return elt.title;
8+
};
9+
};
10+
11+
exports.setTitle = function (title) {
12+
return function (elt) {
13+
return function () {
14+
return elt.title = title;
15+
};
16+
};
17+
};
18+
19+
// ----------------------------------------------------------------------------
20+
21+
exports.lang = function (elt) {
22+
return function () {
23+
return elt.lang;
24+
};
25+
};
26+
27+
exports.setLang = function (lang) {
28+
return function (elt) {
29+
return function () {
30+
return elt.lang = lang;
31+
};
32+
};
33+
};
34+
35+
// ----------------------------------------------------------------------------
36+
37+
exports.dir = function (elt) {
38+
return function () {
39+
return elt.dir;
40+
};
41+
};
42+
43+
exports.setDir = function (dir) {
44+
return function (elt) {
45+
return function () {
46+
return elt.dir = dir;
47+
};
48+
};
49+
};
50+
51+
// ----------------------------------------------------------------------------
52+
53+
exports.className = function (elt) {
54+
return function () {
55+
return elt.className;
56+
};
57+
};
58+
59+
exports.setClassName = function (className) {
60+
return function (elt) {
61+
return function () {
62+
return elt.className = className;
63+
};
64+
};
65+
};
66+
67+
// ----------------------------------------------------------------------------
68+
69+
exports.hidden = function (elt) {
70+
return function () {
71+
return elt.hidden;
72+
};
73+
};
74+
75+
exports.setHidden = function (hidden) {
76+
return function (elt) {
77+
return function () {
78+
return elt.hidden = hidden;
79+
};
80+
};
81+
};
82+
83+
// ----------------------------------------------------------------------------
84+
85+
exports.click = function (elt) {
86+
return function () {
87+
return elt.click();
88+
};
89+
};
90+
91+
// ----------------------------------------------------------------------------
92+
93+
exports.tabIndex = function (elt) {
94+
return function () {
95+
return elt.tabIndex;
96+
};
97+
};
98+
99+
exports.setTabIndex = function (tabIndex) {
100+
return function (elt) {
101+
return function () {
102+
return elt.tabIndex = tabIndex;
103+
};
104+
};
105+
};
106+
107+
// ----------------------------------------------------------------------------
108+
109+
exports.hidden = function (elt) {
110+
return function () {
111+
return elt.hidden;
112+
};
113+
};
114+
115+
exports.setHidden = function (hidden) {
116+
return function (elt) {
117+
return function () {
118+
return elt.hidden = hidden;
119+
};
120+
};
121+
};
122+
123+
// ----------------------------------------------------------------------------
124+
125+
exports.focus = function (elt) {
126+
return function () {
127+
return elt.focus();
128+
};
129+
};
130+
131+
// ----------------------------------------------------------------------------
132+
133+
exports.blur = function (elt) {
134+
return function () {
135+
return elt.blur();
136+
};
137+
};
138+
139+
// ----------------------------------------------------------------------------
140+
141+
exports.draggable = function (elt) {
142+
return function () {
143+
return elt.draggable;
144+
};
145+
};
146+
147+
exports.setDraggable = function (draggable) {
148+
return function (elt) {
149+
return function () {
150+
return elt.draggable = draggable;
151+
};
152+
};
153+
};
154+
155+
// ----------------------------------------------------------------------------
156+
157+
exports.contentEditable = function (elt) {
158+
return function () {
159+
return elt.contentEditable;
160+
};
161+
};
162+
163+
exports.setContentEditable = function (contentEditable) {
164+
return function (elt) {
165+
return function () {
166+
return elt.contentEditable = contentEditable;
167+
};
168+
};
169+
};
170+
171+
exports.isContentEditable = function (elt) {
172+
return function () {
173+
return elt.isContentEditable;
174+
};
175+
};
176+
177+
// ----------------------------------------------------------------------------
178+
179+
exports.spellcheck = function (elt) {
180+
return function () {
181+
return elt.spellcheck;
182+
};
183+
};
184+
185+
exports.setSpellcheck = function (spellcheck) {
186+
return function (elt) {
187+
return function () {
188+
return elt.spellcheck = spellcheck;
189+
};
190+
};
191+
};

‎src/DOM/HTML/HTMLElement.purs

+38
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,38 @@
1+
module DOM.HTML.HTMLElement where
2+
3+
import Prelude
4+
import Control.Monad.Eff (Eff)
5+
import DOM (DOM)
6+
import DOM.HTML.Types (HTMLElement)
7+
8+
foreign import title :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) String
9+
foreign import setTitle :: forall eff. String -> HTMLElement -> Eff (dom :: DOM | eff) Unit
10+
11+
foreign import lang :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) String
12+
foreign import setLang :: forall eff. String -> HTMLElement -> Eff (dom :: DOM | eff) Unit
13+
14+
foreign import dir :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) String
15+
foreign import setDir :: forall eff. String -> HTMLElement -> Eff (dom :: DOM | eff) Unit
16+
17+
foreign import className :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) String
18+
foreign import setClassName :: forall eff. String -> HTMLElement -> Eff (dom :: DOM | eff) Unit
19+
20+
foreign import hidden :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) Boolean
21+
foreign import setHidden :: forall eff. Boolean -> HTMLElement -> Eff (dom :: DOM | eff) Unit
22+
23+
foreign import tabIndex :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) Int
24+
foreign import setTabIndex :: forall eff. Int -> HTMLElement -> Eff (dom :: DOM | eff) Unit
25+
26+
foreign import draggable :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) Boolean
27+
foreign import setDraggable :: forall eff. Boolean -> HTMLElement -> Eff (dom :: DOM | eff) Unit
28+
29+
foreign import contentEditable :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) String
30+
foreign import setContentEditable :: forall eff. String -> HTMLElement -> Eff (dom :: DOM | eff) Unit
31+
foreign import isContentEditable :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) Boolean
32+
33+
foreign import spellcheck :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) Boolean
34+
foreign import setSpellcheck :: forall eff. Boolean -> HTMLElement -> Eff (dom :: DOM | eff) Unit
35+
36+
foreign import click :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) Unit
37+
foreign import focus :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) Unit
38+
foreign import blur :: forall eff. HTMLElement -> Eff (dom :: DOM | eff) Unit

0 commit comments

Comments
 (0)