joker commits

joker_commits.joke

(ns github
  (:require
   [joker.http :as h]
   [joker.json :as j]))

(defonce url "https://api.github.com/repos/candid82/joker/commits")

(defn get-commits
  []
  (j/read-string (:body (joker.http/send {:url url}))))

(defn format-commit
  [c]
  (let [m (get-in c ["commit" "message"])
        d (get-in c ["commit" "committer" "date"])]
    (str m " " d)))

(doseq [commits (take 10 (get-commits))]
  (println (format-commit commits)))