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

Commit cd0d682

Browse files
chexxorchexxor
committed
Add HTMLHyperlinkElementUtils.
1 parent 13e7a35 commit cd0d682

File tree

3 files changed

+215
-0
lines changed

3 files changed

+215
-0
lines changed

‎src/DOM/HTML/HTMLHyperlinkElementUtils.js

Lines changed: 167 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,167 @@
1+
"use strict";
2+
3+
exports.href = function (u) {
4+
return function () {
5+
return u.href;
6+
};
7+
};
8+
9+
exports.setHref = function (href) {
10+
return function (u) {
11+
return function () {
12+
u.href = href;
13+
};
14+
};
15+
};
16+
17+
// ----------------------------------------------------------------------------
18+
19+
exports.origin = function (u) {
20+
return function () {
21+
return u.origin;
22+
};
23+
};
24+
25+
// ----------------------------------------------------------------------------
26+
27+
exports.protocol = function (u) {
28+
return function () {
29+
return u.protocol;
30+
};
31+
};
32+
33+
exports.setProtocol = function (protocol) {
34+
return function (u) {
35+
return function () {
36+
u.protocol = protocol;
37+
};
38+
};
39+
};
40+
41+
// ----------------------------------------------------------------------------
42+
43+
exports.username = function (u) {
44+
return function () {
45+
return u.username;
46+
};
47+
};
48+
49+
exports.setUsername = function (username) {
50+
return function (u) {
51+
return function () {
52+
u.username = username;
53+
};
54+
};
55+
};
56+
57+
// ----------------------------------------------------------------------------
58+
59+
exports.password = function (u) {
60+
return function () {
61+
return u.password;
62+
};
63+
};
64+
65+
exports.setPassword = function (password) {
66+
return function (u) {
67+
return function () {
68+
u.password = password;
69+
};
70+
};
71+
};
72+
73+
// ----------------------------------------------------------------------------
74+
75+
exports.host = function (u) {
76+
return function () {
77+
return u.host;
78+
};
79+
};
80+
81+
exports.setHost = function (host) {
82+
return function (u) {
83+
return function () {
84+
u.host = host;
85+
};
86+
};
87+
};
88+
89+
// ----------------------------------------------------------------------------
90+
91+
exports.hostname = function (u) {
92+
return function () {
93+
return u.hostname;
94+
};
95+
};
96+
97+
exports.setHostname = function (hostname) {
98+
return function (u) {
99+
return function () {
100+
u.hostname = hostname;
101+
};
102+
};
103+
};
104+
105+
// ----------------------------------------------------------------------------
106+
107+
exports.port = function (u) {
108+
return function () {
109+
return u.port;
110+
};
111+
};
112+
113+
exports.setPort = function (port) {
114+
return function (u) {
115+
return function () {
116+
u.port = port;
117+
};
118+
};
119+
};
120+
121+
// ----------------------------------------------------------------------------
122+
123+
exports.pathname = function (u) {
124+
return function () {
125+
return u.pathname;
126+
};
127+
};
128+
129+
exports.setPathname = function (pathname) {
130+
return function (u) {
131+
return function () {
132+
u.pathname = pathname;
133+
};
134+
};
135+
};
136+
137+
// ----------------------------------------------------------------------------
138+
139+
exports.search = function (u) {
140+
return function () {
141+
return u.search;
142+
};
143+
};
144+
145+
exports.setSearch = function (search) {
146+
return function (u) {
147+
return function () {
148+
u.search = search;
149+
};
150+
};
151+
};
152+
153+
// ----------------------------------------------------------------------------
154+
155+
exports.hash = function (u) {
156+
return function () {
157+
return u.hash;
158+
};
159+
};
160+
161+
exports.setHash = function (hash) {
162+
return function (u) {
163+
return function () {
164+
u.hash = hash;
165+
};
166+
};
167+
};

‎src/DOM/HTML/HTMLHyperlinkElementUtils.purs

Lines changed: 41 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,41 @@
1+
-- https://html.spec.whatwg.org/multipage/links.html#htmlhyperlinkelementutils
2+
module DOM.HTML.HTMLHyperlinkElementUtils where
3+
4+
import Prelude (Unit)
5+
6+
import Control.Monad.Eff (Eff)
7+
8+
import DOM (DOM)
9+
import DOM.HTML.Types (HTMLHyperlinkElementUtils)
10+
11+
foreign import href :: forall eff. HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) String
12+
foreign import setHref :: forall eff. String -> HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) Unit
13+
14+
foreign import origin :: forall eff. HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) String
15+
16+
foreign import protocol :: forall eff. HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) String
17+
foreign import setProtocol :: forall eff. String -> HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) Unit
18+
19+
foreign import username :: forall eff. HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) String
20+
foreign import setUsername :: forall eff. String -> HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) Unit
21+
22+
foreign import password :: forall eff. HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) String
23+
foreign import setPassword :: forall eff. String -> HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) Unit
24+
25+
foreign import host :: forall eff. HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) String
26+
foreign import setHost :: forall eff. String -> HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) Unit
27+
28+
foreign import hostname :: forall eff. HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) String
29+
foreign import setHostname :: forall eff. String -> HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) Unit
30+
31+
foreign import port :: forall eff. HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) String
32+
foreign import setPort :: forall eff. String -> HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) Unit
33+
34+
foreign import pathname :: forall eff. HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) String
35+
foreign import setPathname :: forall eff. String -> HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) Unit
36+
37+
foreign import search :: forall eff. HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) String
38+
foreign import setSearch :: forall eff. String -> HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) Unit
39+
40+
foreign import hash :: forall eff. HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) String
41+
foreign import setHash :: forall eff. String -> HTMLHyperlinkElementUtils -> Eff (dom :: DOM | eff) Unit

‎src/DOM/HTML/Types.purs

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -82,6 +82,8 @@ module DOM.HTML.Types
8282
, HTMLAnchorElement
8383
, htmlAnchorElementToHTMLElement
8484
, readHTMLAnchorElement
85+
, HTMLHyperlinkElementUtils
86+
, htmlAnchorElementToHTMLHyperlinkElementUtils
8587
, HTMLDataElement
8688
, htmlDataElementToHTMLElement
8789
, readHTMLDataElement
@@ -457,6 +459,11 @@ htmlAnchorElementToHTMLElement = U.unsafeCoerce
457459
readHTMLAnchorElement :: Foreign -> F HTMLAnchorElement
458460
readHTMLAnchorElement = unsafeReadTagged "HTMLAnchorElement"
459461

462+
foreign import data HTMLHyperlinkElementUtils :: Type
463+
464+
htmlAnchorElementToHTMLHyperlinkElementUtils :: HTMLAnchorElement -> HTMLHyperlinkElementUtils
465+
htmlAnchorElementToHTMLHyperlinkElementUtils = U.unsafeCoerce
466+
460467
foreign import data HTMLDataElement :: Type
461468

462469
htmlDataElementToHTMLElement :: HTMLDataElement -> HTMLElement

0 commit comments

Comments
 (0)