package ezjs_extension
Binding for Chrome and Firefox extension API
Install
Dune Dependency
Authors
Maintainers
Sources
0.1.tar.gz
md5=0d1dc7175a620eb50c07f2bbe0531533
sha512=5742b4e64398533c95291fe7c9b5ed3e264214dee7522fec1a0074766afd40e633aa1ceea16cbc6923ab80d737a15c13b50b96d4ddf8fad8ec74c30816877c9a
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)"
>