(* BSD-2-Clause License *)

type t

(* type for icon option used to create an icon*)
type opt =
  | Icon_retina_url of string
  | Icon_size of Point.t
  | Icon_anchor of Point.t
  | Popup_anchor of Point.t
  | Tooltip_anchor of Point.t
  | Shadow_url of string
  | Shadow_retina_url of string
  | Shadow_size of Point.t
  | Shadow_anchor of Point.t
  | Class_name of string
  | Cross_origin of string option

(** [create icon_url options] Creates an icon instance with the given [options],
    and the required `iconUrl` option set to [icon_url] *)
val create : string -> opt list -> t