Add autocomplete type (#29)

* Add autocomplete type

* Replace OnOff with AutocompleteType

src/DOM/HTML/Indexed.purs

@@ -1,5 +1,6 @@
 module DOM.HTML.Indexed where
 
+import DOM.HTML.Indexed.AutocompleteType (AutocompleteType)
 import DOM.HTML.Indexed.ButtonType (ButtonType)
 import DOM.HTML.Indexed.CrossOriginValue (CrossOriginValue)
 import DOM.HTML.Indexed.DirValue (DirValue)
@@ -9,7 +10,6 @@ import DOM.HTML.Indexed.InputType (InputType)
 import DOM.HTML.Indexed.KindValue (KindValue)
 import DOM.HTML.Indexed.MenuType (MenuType)
 import DOM.HTML.Indexed.MenuitemType (MenuitemType)
-import DOM.HTML.Indexed.OnOff (OnOff)
 import DOM.HTML.Indexed.OrderedListType (OrderedListType)
 import DOM.HTML.Indexed.PreloadValue (PreloadValue)
 import DOM.HTML.Indexed.ScopeValue (ScopeValue)
@@ -280,7 +280,7 @@ type HTMLfooter = Interactive ()
 type HTMLform = Interactive
   ( acceptCharset :: String
   , action :: String
-  , autocomplete :: OnOff
+  , autocomplete :: AutocompleteType
   , enctype :: MediaType
   , method :: FormMethod
   , name :: String
@@ -343,7 +343,7 @@ type HTMLimg = Interactive
 
 type HTMLinput = Interactive
   ( accept :: InputAcceptType
-  , autocomplete :: OnOff
+  , autocomplete :: AutocompleteType
   , autofocus :: Boolean
   , checked :: Boolean
   , disabled :: Boolean

src/DOM/HTML/Indexed/AutocompleteType.purs

@@ -0,0 +1,123 @@
+module DOM.HTML.Indexed.AutocompleteType where
+
+import Prelude
+
+data AutocompleteType
+  = AutocompleteOff
+  | AutocompleteOn
+  | AutocompleteName
+  | AutocompleteHonorificPrefix
+  | AutocompleteGivenName
+  | AutocompleteAdditionalName
+  | AutocompleteFamilyName
+  | AutocompleteHonorificSuffix
+  | AutocompleteNickname
+  | AutocompleteEmail
+  | AutocompleteUsername
+  | AutocompleteNewPassword
+  | AutocompleteCurrentPassword
+  | AutocompleteOneTimeCode
+  | AutocompleteOrganizationTitle
+  | AutocompleteOrganization
+  | AutocompleteStreetAddress
+  | AutocompleteAddressLine1
+  | AutocompleteAddressLine2
+  | AutocompleteAddressLine3
+  | AutocompleteAddressLevel1
+  | AutocompleteAddressLevel2
+  | AutocompleteAddressLevel3
+  | AutocompleteAddressLevel4
+  | AutocompleteCountry
+  | AutocompleteCountryName
+  | AutocompletePostalCode
+  | AutocompleteCreditCardName
+  | AutocompleteCreditCardGivenName
+  | AutocompleteCreditCardAdditionalName
+  | AutocompleteCreditCardFamilyName
+  | AutocompleteCreditCardNumber
+  | AutocompleteCreditCardExpiration
+  | AutocompleteCreditCardExpirationMonth
+  | AutocompleteCreditCardExpirationYear
+  | AutocompleteCreditCardSecurityCode
+  | AutocompleteCreditCardType
+  | AutocompleteTransactionCurrency
+  | AutocompleteTransactionAmount
+  | AutocompleteLanguage
+  | AutocompleteBirthday
+  | AutocompleteBirthdayDay
+  | AutocompleteBirthdayMonth
+  | AutocompleteBirthdayYear
+  | AutocompleteSex
+  | AutocompleteTelephone
+  | AutocompleteTelephoneCountryCode
+  | AutocompleteTelephoneNational
+  | AutocompleteTelephoneAreaCode
+  | AutocompleteTelephoneLocal
+  | AutocompleteTelephoneLocalPrefix
+  | AutocompleteTelephoneLocalSuffix
+  | AutocompleteTelephoneExtension
+  | AutocompleteIMPP
+  | AutocompleteURL
+  | AutocompletePhoto
+
+derive instance eqAutocompleteType :: Eq AutocompleteType
+derive instance ordAutocompleteType :: Ord AutocompleteType
+
+renderAutocompleteType :: AutocompleteType -> String
+renderAutocompleteType = case _ of
+  AutocompleteOff -> "off"
+  AutocompleteOn -> "on"
+  AutocompleteName -> "name"
+  AutocompleteHonorificPrefix -> "honorific-prefix"
+  AutocompleteGivenName -> "given-name"
+  AutocompleteAdditionalName -> "additional-name"
+  AutocompleteFamilyName -> "family-name"
+  AutocompleteHonorificSuffix -> "honorific-suffix"
+  AutocompleteNickname -> "nickname"
+  AutocompleteEmail -> "email"
+  AutocompleteUsername -> "username"
+  AutocompleteNewPassword -> "new-password"
+  AutocompleteCurrentPassword -> "current-password"
+  AutocompleteOneTimeCode -> "one-time-code"
+  AutocompleteOrganizationTitle -> "organization-title"
+  AutocompleteOrganization -> "organization"
+  AutocompleteStreetAddress -> "street-address"
+  AutocompleteAddressLine1 -> "address-line1"
+  AutocompleteAddressLine2 -> "address-line2"
+  AutocompleteAddressLine3 -> "address-line3"
+  AutocompleteAddressLevel1 -> "address-level1"
+  AutocompleteAddressLevel2 -> "address-level2"
+  AutocompleteAddressLevel3 -> "address-level3"
+  AutocompleteAddressLevel4 -> "address-level4"
+  AutocompleteCountry -> "country"
+  AutocompleteCountryName -> "country-name"
+  AutocompletePostalCode -> "postal-code"
+  AutocompleteCreditCardName -> "cc-name"
+  AutocompleteCreditCardGivenName -> "cc-given-name"
+  AutocompleteCreditCardAdditionalName -> "cc-additional-name"
+  AutocompleteCreditCardFamilyName -> "cc-family-name"
+  AutocompleteCreditCardNumber -> "cc-number"
+  AutocompleteCreditCardExpiration -> "cc-exp"
+  AutocompleteCreditCardExpirationMonth -> "cc-exp-month"
+  AutocompleteCreditCardExpirationYear -> "cc-exp-year"
+  AutocompleteCreditCardSecurityCode -> "cc-csc"
+  AutocompleteCreditCardType -> "cc-type"
+  AutocompleteTransactionCurrency -> "transaction-currency"
+  AutocompleteTransactionAmount -> "transaction-amount"
+  AutocompleteLanguage -> "language"
+  AutocompleteBirthday -> "bday"
+  AutocompleteBirthdayDay -> "bday-day"
+  AutocompleteBirthdayMonth -> "bday-month"
+  AutocompleteBirthdayYear -> "bday-year"
+  AutocompleteSex -> "sex"
+  AutocompleteTelephone -> "tel"
+  AutocompleteTelephoneCountryCode -> "tel-country-code"
+  AutocompleteTelephoneNational -> "tel-national"
+  AutocompleteTelephoneAreaCode -> "telarea-code"
+  AutocompleteTelephoneLocal -> "tel-local"
+  AutocompleteTelephoneLocalPrefix -> "tel-local-prefix"
+  AutocompleteTelephoneLocalSuffix -> "tel-local-suffix"
+  AutocompleteTelephoneExtension -> "tel-extension"
+  AutocompleteIMPP -> "impp"
+  AutocompleteURL -> "url"
+  AutocompletePhoto -> "photo"