diff --git a/src/circleci/analytics_clj/core.clj b/src/circleci/analytics_clj/core.clj index 0404bdc..944b5c4 100644 --- a/src/circleci/analytics_clj/core.clj +++ b/src/circleci/analytics_clj/core.clj @@ -19,7 +19,7 @@ ([write-key] (initialize write-key nil)) - ([write-key {:keys [client log endpoint user-agent network-executor callback]}] + ([write-key {:keys [client log endpoint upload-url user-agent network-executor callback]}] (.build (doto (Analytics/builder write-key) (cond-> (not (nil? client)) (client* client)) @@ -30,6 +30,9 @@ (cond-> (not (nil? endpoint)) (endpoint* endpoint)) + (cond-> (not (nil? upload-url)) + (upload-url* upload-url)) + (cond-> (not (nil? user-agent)) (user-agent* user-agent)) diff --git a/src/circleci/analytics_clj/external.clj b/src/circleci/analytics_clj/external.clj index a40f5ae..4feaa88 100644 --- a/src/circleci/analytics_clj/external.clj +++ b/src/circleci/analytics_clj/external.clj @@ -15,6 +15,10 @@ (doto analytics-builder (.endpoint endpoint))) +(defn upload-url* [^com.segment.analytics.Analytics$Builder analytics-builder upload-url] + (doto analytics-builder + (.setUploadURL upload-url))) + (defn user-agent* [^com.segment.analytics.Analytics$Builder analytics-builder user-agent] (doto analytics-builder (.userAgent user-agent)))