package ezjs_extension
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))
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>