-
Notifications
You must be signed in to change notification settings - Fork 14
/
external.clj
66 lines (49 loc) · 2.06 KB
/
external.clj
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
(ns circleci.analytics-clj.external
(:import (com.segment.analytics.messages MessageBuilder)))
;;; com.segment.analytics.Analytics$Builder
(defn client* [^com.segment.analytics.Analytics$Builder analytics-builder client]
(doto analytics-builder
(.client client)))
(defn log* [^com.segment.analytics.Analytics$Builder analytics-builder log]
(doto analytics-builder
(.log log)))
(defn endpoint* [^com.segment.analytics.Analytics$Builder analytics-builder endpoint]
(doto analytics-builder
(.endpoint endpoint)))
(defn network-executor* [^com.segment.analytics.Analytics$Builder analytics-builder network-executor]
(doto analytics-builder
(.networkExecutor network-executor)))
(defn callback* [^com.segment.analytics.Analytics$Builder analytics-builder callback]
(doto analytics-builder
(.callback callback)))
(defn user-agent* [^com.segment.analytics.Analytics$Builder analytics-builder user-agent]
(doto analytics-builder
(.userAgent user-agent)))
;;; com.segment.analytics.messages MessageBuilder
(defn anonymous-id* [^MessageBuilder message-builder anonymous-id]
(doto message-builder
(.anonymousId anonymous-id)))
(defn context* [^MessageBuilder message-builder context]
(doto message-builder
(.context context)))
(defn enable-integration* [^MessageBuilder message-builder integration enable?]
(doto message-builder
(.enableIntegration integration enable?)))
(defn integration-options* [^MessageBuilder message-builder integration options]
(doto message-builder
(.integrationOptions integration options)))
(defn timestamp* [^MessageBuilder message-builder timestamp]
(doto message-builder
(.timestamp timestamp)))
(defn message-id* [^MessageBuilder message-builder message-id]
(doto message-builder
(.messageId message-id)))
(defn user-id* [^MessageBuilder message-builder user-id]
(doto message-builder
(.userId user-id)))
(defn properties* [message-builder properties]
(doto message-builder
(.properties properties)))
(defn traits* [message-builder traits]
(doto message-builder
(.traits traits)))