Target.purs

module Deku.DOM.Attr.Target where

import Prelude

import Deku.DOM.Elt.A (A_)
import Deku.DOM.Elt.Area (Area_)
import Deku.DOM.Elt.Base (Base_)
import Deku.DOM.Elt.Form (Form_)
import Deku.Attribute (class Attr, prop', unsafeAttribute, unset')

data Target = Target

instance Attr A_ Target String where
  attr Target value = unsafeAttribute { key: "target", value: prop' value }

instance Attr Area_ Target String where
  attr Target value = unsafeAttribute { key: "target", value: prop' value }

instance Attr Base_ Target String where
  attr Target value = unsafeAttribute { key: "target", value: prop' value }

instance Attr Form_ Target String where
  attr Target value = unsafeAttribute { key: "target", value: prop' value }

instance Attr everything Target Unit where
  attr Target _ = unsafeAttribute
    { key: "target", value: unset' }