/
bluetooth_private.cljs
31 lines (20 loc) · 1.21 KB
/
bluetooth_private.cljs
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
(ns chromex.ext.bluetooth-private (:require-macros [chromex.ext.bluetooth-private :refer [gen-wrap]])
(:require [chromex.core]))
; -- functions --------------------------------------------------------------------------------------------------------------
(defn set-adapter-state* [config adapter-state]
(gen-wrap :function ::set-adapter-state config adapter-state))
(defn set-pairing-response* [config options]
(gen-wrap :function ::set-pairing-response config options))
(defn disconnect-all* [config device-address]
(gen-wrap :function ::disconnect-all config device-address))
(defn forget-device* [config device-address]
(gen-wrap :function ::forget-device config device-address))
(defn set-discovery-filter* [config discovery-filter]
(gen-wrap :function ::set-discovery-filter config discovery-filter))
(defn connect* [config device-address]
(gen-wrap :function ::connect config device-address))
(defn pair* [config device-address]
(gen-wrap :function ::pair config device-address))
; -- events -----------------------------------------------------------------------------------------------------------------
(defn on-pairing* [config channel & args]
(gen-wrap :event ::on-pairing config channel args))