OnGotpointercapture.purs

module Deku.DOM.Attr.OnGotpointercapture where

import Prelude
import Effect (Effect)
import Deku.Attribute (class Attr, Attribute, Cb(..), cb', unsafeAttribute, unset')
import FRP.Event (Event)

data OnGotpointercapture = OnGotpointercapture

instance Attr anything OnGotpointercapture Cb where
  attr OnGotpointercapture value = unsafeAttribute
    { key: "gotpointercapture", value: cb' value }

instance Attr anything OnGotpointercapture (Effect Unit) where
  attr OnGotpointercapture value = unsafeAttribute
    { key: "gotpointercapture", value: cb' (Cb (const (value $> true))) }

instance Attr anything OnGotpointercapture (Effect Boolean) where
  attr OnGotpointercapture value = unsafeAttribute
    { key: "gotpointercapture", value: cb' (Cb (const value)) }

type OnGotpointercaptureEffect =
  forall element
   . Attr element OnGotpointercapture (Effect Unit)
  => Event (Attribute element)

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