From 7e3c3331f94f65bfbacc2bbdf5ff168e21d74d4a Mon Sep 17 00:00:00 2001 From: pseudonymtim Date: Fri, 26 Jan 2024 15:55:08 +0000 Subject: [PATCH 1/2] Add upload-url argument to Analytics builder initialisation --- src/circleci/analytics_clj/core.clj | 5 ++++- src/circleci/analytics_clj/external.clj | 4 ++++ 2 files changed, 8 insertions(+), 1 deletion(-) 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..eb978fa 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 endpoint* [^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))) From 4abad5b77ad48796a26a1b4b607e2e031bfabae9 Mon Sep 17 00:00:00 2001 From: pseudonymtim Date: Fri, 26 Jan 2024 16:08:51 +0000 Subject: [PATCH 2/2] Correct function name to upload-url* --- src/circleci/analytics_clj/external.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/circleci/analytics_clj/external.clj b/src/circleci/analytics_clj/external.clj index eb978fa..4feaa88 100644 --- a/src/circleci/analytics_clj/external.clj +++ b/src/circleci/analytics_clj/external.clj @@ -15,7 +15,7 @@ (doto analytics-builder (.endpoint endpoint))) -(defn endpoint* [^com.segment.analytics.Analytics$Builder analytics-builder upload-url] +(defn upload-url* [^com.segment.analytics.Analytics$Builder analytics-builder upload-url] (doto analytics-builder (.setUploadURL upload-url)))