package ezjs_extension

  1. Overview
  2. Docs
Binding for Chrome and Firefox extension API

Install

Dune Dependency

Authors

Maintainers

Sources

0.2.tar.gz
md5=656df77dabbefd03a5646cf72953b29c
sha512=f1e0f92683eb1605bb32ba2791ef046fd2312357f19fcc44ae06544708b789f2398666cf0adb1848e89c8f0a6f17615ac8437477cd7761f9cff5cff9969bb54d

doc/src/ezjs_extension.browser/browser_action_browser.ml.html

Source file browser_action_browser.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
open Ezjs_min
open Promise
include Browser_common.Browser_action

let get_title ?tabId ?windowId f =
  let details : tabDetails t = Unsafe.obj [||] in
  details##.tabId := Optdef.option tabId;
  details##.windowId := Optdef.option windowId;
  jthen (browserAction##getTitle details) (fun s -> f (to_string s))

let get_popup ?tabId ?windowId f =
  let details : tabDetails t = Unsafe.obj [||] in
  details##.tabId := Optdef.option tabId;
  details##.windowId := Optdef.option windowId;
  jthen (browserAction##getPopup details) (fun s -> f (to_string s))

let get_badge ?tabId ?windowId f =
  let details : tabDetails t = Unsafe.obj [||] in
  details##.tabId := Optdef.option tabId;
  details##.windowId := Optdef.option windowId;
  jthen (browserAction##getBadgeText details) (fun s -> f (to_string s))

let get_badge_bg ?tabId ?windowId f =
  let details : tabDetails t = Unsafe.obj [||] in
  details##.tabId := Optdef.option tabId;
  details##.windowId := Optdef.option windowId;
  jthen (browserAction##getBadgeBackgroundColor details) f

let get_badge_color ?tabId ?windowId f =
  let details : tabDetails t = Unsafe.obj [||] in
  details##.tabId := Optdef.option tabId;
  details##.windowId := Optdef.option windowId;
  jthen (browserAction##getBadgeTextColor details) f

let isEnabled ?tabId ?windowId f =
  let details : tabDetails t = Unsafe.obj [||] in
  details##.tabId := Optdef.option tabId;
  details##.windowId := Optdef.option windowId;
  jthen (browserAction##isEnabled details) (fun b -> f (to_bool b))
OCaml

Innovation. Community. Security.