{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}

module Miso.Extend
  ( crossorigin_,
    onPreventClick,
  )
where

import Alpha
import Miso
import Miso.String

-- | HTML crossorigin attribute
--
-- https://developer.mozilla.org/en-US/docs/Web/HTML/Attributes/crossorigin
crossorigin_ :: MisoString -> Attribute action
crossorigin_ = textProp "crossorigin"

-- | Like 'onClick' but prevents the default action from triggering. Use this to
-- overide 'a_' links, for example.
onPreventClick :: action -> Attribute action
onPreventClick action =
  onWithOptions
    Miso.defaultOptions {preventDefault = True}
    "click"
    emptyDecoder
    (\() -> action)