Get the number of builds made on Circle CI

circle_ci_builds.clj

(require '[clj-http.client :as client])

(def token "a-token")

(defn fetch-projects []
  (:body
   (client/get "https://circleci.com/api/v1/projects"
               {:query-params {"circle-token" token}
                :accept :json
                :as :json})))

(defn last-build-number [branch]
  (get-in branch [:recent_builds 0 :build_num] 0))

(defn build-count [project]
  (reduce max (map last-build-number (vals (:branches project)))))

(defn total-builds []
  (reduce + (map build-count (fetch-projects))))

;; user> (total-builds)
;; 16721