Module `Ezjs_push`Source

Sourceclass type 'a promise = object ... end

Sourceclass type notification_action = object ... end

Sourceclass type notification_options = object ... end

Sourceclass type subscription_options = object ... end

Sourceclass type notification = object ... end

Sourceclass type notificationEvent = object ... end

Sourceclass type pushSubscription = object ... end

Sourceclass type pushManager = object ... end

Sourceclass type serviceWorkerRegistration = object ... end

Sourceclass type serviceWorkerContainer = object ... end

Sourceclass type navigator = object ... end

Sourceclass type pushMessageData = object ... end

Sourceval navigator : navigator Js_of_ocaml.Js.t

Sourceval notification : notification Js_of_ocaml.Js.t

Sourcetype notification_action_ml = {

na_action : string option;
na_title : string option;
na_icon : string option;

}

Sourcetype data = string

Sourcetype notifictaion_options_ml = {

no_actions : notification_action_ml list option;
no_body : string option;
no_icon : string option;
no_tag : string option;
no_vibrate : int list option;
no_require_interaction : bool option;
no_data : data option;

}

Sourcetype subscrition_options_ml = {

so_user_visible_only : bool option;
so_application_server_key : string option;

}

Source

val jthen : 
  < _then : 't0 -> 'res Js_of_ocaml.Js.meth.. > Js_of_ocaml.Js.t ->
  't0 ->
  'res

Source

val then1 : 
  < _then : 'a -> 'b Js_of_ocaml.Js.meth.. > Js_of_ocaml.Js.t ->
  'a ->
  unit

Source

val then0 : 
  < _then : ('a -> unit) -> 'b Js_of_ocaml.Js.meth.. > Js_of_ocaml.Js.t ->
  unit

Source

val catch : 
  < catch : 't2 -> 'res Js_of_ocaml.Js.meth.. > Js_of_ocaml.Js.t ->
  't2 ->
  'res

Source

val catch1 : 
  < catch : 'a -> 'b Js_of_ocaml.Js.meth.. > Js_of_ocaml.Js.t ->
  'a ->
  unit

Sourceval unopt : 'a -> ('b -> 'a) -> 'b option -> 'a

Sourceval request_permission : (string Js_of_ocaml.Js.t -> unit) -> unit

Sourceval permission : unit -> string

Sourceval service_worker : unit -> serviceWorkerContainer Js_of_ocaml.Js.t

Source

val register_worker : 
  string ->
  (serviceWorkerRegistration Js_of_ocaml.Js.t -> unit) ->
  unit

Source

val get_registration : 
  ?none:(unit -> unit) ->
  (serviceWorkerRegistration Js_of_ocaml.Js.t -> unit) ->
  unit

Source

val registration : 
  string ->
  (serviceWorkerRegistration Js_of_ocaml.Js.t -> unit) ->
  unit

Source

val update_service_worker : 
  < update : 'res Js_of_ocaml.Js.meth.. > Js_of_ocaml.Js.t ->
  unit

Source

val unregister_service_worker : 
  < unregister : 'res Js_of_ocaml.Js.meth.. > Js_of_ocaml.Js.t ->
  unit

Source

val push_manager : 
  < pushManager : < get : 'res.. > Js_of_ocaml.Js.gen_prop.. > Js_of_ocaml.Js.t ->
  'res

Source

val urlBase64ToUint8Array : 
  string ->
  Js_of_ocaml.Typed_array.uint8Array Js_of_ocaml.Js.t

Source

val make_subscription_options : 
  subscrition_options_ml ->
  subscription_options Js_of_ocaml.Js.t

Source

val subscribe : 
  ?options:subscrition_options_ml ->
  < pushManager : 
    < get : 
      < subscribe : 
        subscription_options Js_of_ocaml.Js.t ->
        < _then : 'a -> 'b Js_of_ocaml.Js.meth.. > Js_of_ocaml.Js.t
          Js_of_ocaml.Js.meth.. >
        Js_of_ocaml.Js.t.. >
      Js_of_ocaml.Js.gen_prop.. >
    Js_of_ocaml.Js.t ->
  'a ->
  unit

Source

val get_subscription : 
  ?none:(unit -> unit) ->
  < pushManager : 
    < get : 
      < getSubscription : 
        < _then : ('a Js_of_ocaml.Js.Opt.t -> unit) -> 'b Js_of_ocaml.Js.meth.. >
          Js_of_ocaml.Js.t
          Js_of_ocaml.Js.meth.. >
        Js_of_ocaml.Js.t.. >
      Js_of_ocaml.Js.gen_prop.. >
    Js_of_ocaml.Js.t ->
  ('a -> unit) ->
  unit

Source

val subscription : 
  ?options:subscrition_options_ml ->
  < pushManager : 
    < get : 
      < getSubscription : 
        < _then : ('a Js_of_ocaml.Js.Opt.t -> unit) -> 'b Js_of_ocaml.Js.meth.. >
          Js_of_ocaml.Js.t
          Js_of_ocaml.Js.meth
        ; subscribe : 
          subscription_options Js_of_ocaml.Js.t ->
          < _then : ('a -> unit) -> 'c Js_of_ocaml.Js.meth.. > Js_of_ocaml.Js.t
            Js_of_ocaml.Js.meth.. >
        Js_of_ocaml.Js.t.. >
      Js_of_ocaml.Js.gen_prop.. >
    Js_of_ocaml.Js.t ->
  ('a -> unit) ->
  unit

Source

val make_notification_action : 
  notification_action_ml ->
  notification_action Js_of_ocaml.Js.t

Source

val make_notification_options : 
  notifictaion_options_ml ->
  notification_options Js_of_ocaml.Js.t

Source

val show_notification : 
  ?options:notifictaion_options_ml ->
  string ->
  < showNotification : 
    Js_of_ocaml.Js.js_string Js_of_ocaml.Js.t ->
    notification_options Js_of_ocaml.Js.t ->
    < _then : ('a -> unit) -> 'b Js_of_ocaml.Js.meth.. > Js_of_ocaml.Js.t
      Js_of_ocaml.Js.meth.. >
    Js_of_ocaml.Js.t ->
  unit

package ezjs_push

Module Ezjs_pushSource

Module `Ezjs_push`Source