add support for the page method

Author: bostonaholic

src/circleci/analytics_clj/core.clj

@@ -7,10 +7,11 @@
                                            GroupMessage
                                            IdentifyMessage
                                            ScreenMessage
-                                           TrackMessage)))
+                                           TrackMessage
+                                           PageMessage)))
 
 (def ^:private ctx {"library" {"name" "analytics-clj"
-                               "version" "0.4.2"}})
+                               "version" "0.5.0"}})
 
 (defn initialize
   "Start building an Analytics instance."
@@ -143,6 +144,24 @@
                         (common-fields (merge {:user-id user-id} options))
                         (cond-> (not (nil? properties)) (properties* (string-keys properties)))))))
 
+(defn page
+  "The `page` method lets you record whenever a user
+  sees a page of your website, along with optional
+  extra information about the page being viewed."
+
+  {:added "0.5.0"}
+
+  ([^Analytics analytics user-id name]
+   (page analytics user-id name nil nil))
+
+  ([^Analytics analytics user-id name properties]
+   (page analytics user-id name properties nil))
+
+  ([^Analytics analytics user-id name properties options]
+   (enqueue analytics (doto (PageMessage/builder name)
+                        (common-fields (merge {:user-id user-id} options))
+                        (cond-> (not (nil? properties)) (properties* (string-keys properties)))))))
+
 (defn group
   "`group` lets you associate an identified user with
   a group. A group could be a company, organization, account,

test/circleci/analytics_clj/core_test.clj

@@ -111,6 +111,19 @@
         (a/screen analytics "1234" "Login Screen" {:path "/users/login"})
         (is @called)))))
 
+(deftest test-page
+  (testing "a simple page call"
+    (a/page analytics "1234" "Login Page"))
+
+  (testing "a apge call with custom properties"
+    (let [called (atom false)]
+      (with-redefs [e/properties* (fn [mb properties]
+                                    (is (= "path" (-> properties keys first)))
+                                    (is (= "/users/login" (-> properties vals first)))
+                                    (reset! called true))]
+        (a/page analytics "1234" "Login Page" {:path "/users/login"})
+        (is @called)))))
+
 (deftest test-group
   (let [called (atom false)]
     (with-redefs [e/traits* (fn [mb traits]