Fetch commit author frequences from the GitHub API (COMP 590 in-class exercise)

commits.clj

(ns commits
  (:require [clj-http.client :as http]
            [clj-json.core :as json]
            [clojure.pprint :refer [pprint]]))

(def api-url "https://api.github.com/repos/clojure/clojure/commits")

(defn get-committers-from-page [n]
  (some->> (http/get api-url {:query-params {"per_page" 100, "page" n}})
           :body
           json/parse-string
           (map #(get-in % ["author" "login"]))
           (remove nil?)))

(defn -main []
  (->> (get-committers-from-page 1)
       frequencies
       (sort-by val)
       pprint))