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.chrome-lwt/storage_chrome_lwt.ml.html
Source file storage_chrome_lwt.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22open Ezjs_min_lwt open Promise include Chrome_common.Storage let get ?key (st:storageArea t) = to_lwt_cb (fun cb -> st##get (opt string key) cb) let get_arr ?keys (st:storageArea t) = let keys = opt (of_listf string) keys in to_lwt_cb (fun cb -> st##get_arr keys cb) let get_o ?obj (st:storageArea t) = to_lwt_cb (fun cb -> st##get (Opt.option obj) cb) let getBytesInUse ?key (st:storageArea t) = to_lwt_cb (fun cb -> st##getBytesInUse (opt string key) cb) let getBytesInUse_list ?keys (st:storageArea t) = let keys = opt (of_listf string) keys in to_lwt_cb (fun cb -> st##getBytesInUse_arr keys cb) let set ?callback (st:storageArea t) o = to_lwt_cb_opt callback (fun cb -> st##set o cb) let remove ?callback (st:storageArea t) s = to_lwt_cb_opt callback (fun cb -> st##remove (string s) cb) let clear ?callback (st:storageArea t) = to_lwt_cb_opt callback (fun cb -> st##clear cb)