Skip to content

Commit 4d28c0c

Browse files
thomashoneymanthomashoneyman
authored
Add autocomplete type (#29)
* Add autocomplete type * Replace OnOff with AutocompleteType
1 parent b4b8596 commit 4d28c0c

File tree

3 files changed

+126
-18
lines changed

3 files changed

+126
-18
lines changed

‎src/DOM/HTML/Indexed.purs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
module DOM.HTML.Indexed where
22

3+
import DOM.HTML.Indexed.AutocompleteType (AutocompleteType)
34
import DOM.HTML.Indexed.ButtonType (ButtonType)
45
import DOM.HTML.Indexed.CrossOriginValue (CrossOriginValue)
56
import DOM.HTML.Indexed.DirValue (DirValue)
@@ -9,7 +10,6 @@ import DOM.HTML.Indexed.InputType (InputType)
910
import DOM.HTML.Indexed.KindValue (KindValue)
1011
import DOM.HTML.Indexed.MenuType (MenuType)
1112
import DOM.HTML.Indexed.MenuitemType (MenuitemType)
12-
import DOM.HTML.Indexed.OnOff (OnOff)
1313
import DOM.HTML.Indexed.OrderedListType (OrderedListType)
1414
import DOM.HTML.Indexed.PreloadValue (PreloadValue)
1515
import DOM.HTML.Indexed.ScopeValue (ScopeValue)
@@ -280,7 +280,7 @@ type HTMLfooter = Interactive ()
280280
type HTMLform = Interactive
281281
( acceptCharset :: String
282282
, action :: String
283-
, autocomplete :: OnOff
283+
, autocomplete :: AutocompleteType
284284
, enctype :: MediaType
285285
, method :: FormMethod
286286
, name :: String
@@ -343,7 +343,7 @@ type HTMLimg = Interactive
343343

344344
type HTMLinput = Interactive
345345
( accept :: InputAcceptType
346-
, autocomplete :: OnOff
346+
, autocomplete :: AutocompleteType
347347
, autofocus :: Boolean
348348
, checked :: Boolean
349349
, disabled :: Boolean

‎src/DOM/HTML/Indexed/AutocompleteType.purs

Lines changed: 123 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,123 @@
1+
module DOM.HTML.Indexed.AutocompleteType where
2+
3+
import Prelude
4+
5+
data AutocompleteType
6+
= AutocompleteOff
7+
| AutocompleteOn
8+
| AutocompleteName
9+
| AutocompleteHonorificPrefix
10+
| AutocompleteGivenName
11+
| AutocompleteAdditionalName
12+
| AutocompleteFamilyName
13+
| AutocompleteHonorificSuffix
14+
| AutocompleteNickname
15+
| AutocompleteEmail
16+
| AutocompleteUsername
17+
| AutocompleteNewPassword
18+
| AutocompleteCurrentPassword
19+
| AutocompleteOneTimeCode
20+
| AutocompleteOrganizationTitle
21+
| AutocompleteOrganization
22+
| AutocompleteStreetAddress
23+
| AutocompleteAddressLine1
24+
| AutocompleteAddressLine2
25+
| AutocompleteAddressLine3
26+
| AutocompleteAddressLevel1
27+
| AutocompleteAddressLevel2
28+
| AutocompleteAddressLevel3
29+
| AutocompleteAddressLevel4
30+
| AutocompleteCountry
31+
| AutocompleteCountryName
32+
| AutocompletePostalCode
33+
| AutocompleteCreditCardName
34+
| AutocompleteCreditCardGivenName
35+
| AutocompleteCreditCardAdditionalName
36+
| AutocompleteCreditCardFamilyName
37+
| AutocompleteCreditCardNumber
38+
| AutocompleteCreditCardExpiration
39+
| AutocompleteCreditCardExpirationMonth
40+
| AutocompleteCreditCardExpirationYear
41+
| AutocompleteCreditCardSecurityCode
42+
| AutocompleteCreditCardType
43+
| AutocompleteTransactionCurrency
44+
| AutocompleteTransactionAmount
45+
| AutocompleteLanguage
46+
| AutocompleteBirthday
47+
| AutocompleteBirthdayDay
48+
| AutocompleteBirthdayMonth
49+
| AutocompleteBirthdayYear
50+
| AutocompleteSex
51+
| AutocompleteTelephone
52+
| AutocompleteTelephoneCountryCode
53+
| AutocompleteTelephoneNational
54+
| AutocompleteTelephoneAreaCode
55+
| AutocompleteTelephoneLocal
56+
| AutocompleteTelephoneLocalPrefix
57+
| AutocompleteTelephoneLocalSuffix
58+
| AutocompleteTelephoneExtension
59+
| AutocompleteIMPP
60+
| AutocompleteURL
61+
| AutocompletePhoto
62+
63+
derive instance eqAutocompleteType :: Eq AutocompleteType
64+
derive instance ordAutocompleteType :: Ord AutocompleteType
65+
66+
renderAutocompleteType :: AutocompleteType -> String
67+
renderAutocompleteType = case _ of
68+
AutocompleteOff -> "off"
69+
AutocompleteOn -> "on"
70+
AutocompleteName -> "name"
71+
AutocompleteHonorificPrefix -> "honorific-prefix"
72+
AutocompleteGivenName -> "given-name"
73+
AutocompleteAdditionalName -> "additional-name"
74+
AutocompleteFamilyName -> "family-name"
75+
AutocompleteHonorificSuffix -> "honorific-suffix"
76+
AutocompleteNickname -> "nickname"
77+
AutocompleteEmail -> "email"
78+
AutocompleteUsername -> "username"
79+
AutocompleteNewPassword -> "new-password"
80+
AutocompleteCurrentPassword -> "current-password"
81+
AutocompleteOneTimeCode -> "one-time-code"
82+
AutocompleteOrganizationTitle -> "organization-title"
83+
AutocompleteOrganization -> "organization"
84+
AutocompleteStreetAddress -> "street-address"
85+
AutocompleteAddressLine1 -> "address-line1"
86+
AutocompleteAddressLine2 -> "address-line2"
87+
AutocompleteAddressLine3 -> "address-line3"
88+
AutocompleteAddressLevel1 -> "address-level1"
89+
AutocompleteAddressLevel2 -> "address-level2"
90+
AutocompleteAddressLevel3 -> "address-level3"
91+
AutocompleteAddressLevel4 -> "address-level4"
92+
AutocompleteCountry -> "country"
93+
AutocompleteCountryName -> "country-name"
94+
AutocompletePostalCode -> "postal-code"
95+
AutocompleteCreditCardName -> "cc-name"
96+
AutocompleteCreditCardGivenName -> "cc-given-name"
97+
AutocompleteCreditCardAdditionalName -> "cc-additional-name"
98+
AutocompleteCreditCardFamilyName -> "cc-family-name"
99+
AutocompleteCreditCardNumber -> "cc-number"
100+
AutocompleteCreditCardExpiration -> "cc-exp"
101+
AutocompleteCreditCardExpirationMonth -> "cc-exp-month"
102+
AutocompleteCreditCardExpirationYear -> "cc-exp-year"
103+
AutocompleteCreditCardSecurityCode -> "cc-csc"
104+
AutocompleteCreditCardType -> "cc-type"
105+
AutocompleteTransactionCurrency -> "transaction-currency"
106+
AutocompleteTransactionAmount -> "transaction-amount"
107+
AutocompleteLanguage -> "language"
108+
AutocompleteBirthday -> "bday"
109+
AutocompleteBirthdayDay -> "bday-day"
110+
AutocompleteBirthdayMonth -> "bday-month"
111+
AutocompleteBirthdayYear -> "bday-year"
112+
AutocompleteSex -> "sex"
113+
AutocompleteTelephone -> "tel"
114+
AutocompleteTelephoneCountryCode -> "tel-country-code"
115+
AutocompleteTelephoneNational -> "tel-national"
116+
AutocompleteTelephoneAreaCode -> "telarea-code"
117+
AutocompleteTelephoneLocal -> "tel-local"
118+
AutocompleteTelephoneLocalPrefix -> "tel-local-prefix"
119+
AutocompleteTelephoneLocalSuffix -> "tel-local-suffix"
120+
AutocompleteTelephoneExtension -> "tel-extension"
121+
AutocompleteIMPP -> "impp"
122+
AutocompleteURL -> "url"
123+
AutocompletePhoto -> "photo"

‎src/DOM/HTML/Indexed/OnOff.purs

Lines changed: 0 additions & 15 deletions
This file was deleted.

0 commit comments

Comments
 (0)