gistfile1.lisp

(ns org.buntin.github.github)

(defn- perform-request [url]
  ; HTTP stuff...
  url)

(defn make-github [version return-type]
  (fn [url & args]
    (perform-request
     (apply format
      (str "http://github.com/api/%s/%s" url) version return-type args))))

(defn user [username]
  (format "/%s" username))

(defn recent [username project branch]
  (format "/%s/%s/commits/%s" username project branch))

(defn search [query]
  (format "/search/%s" query))

(defn commit [username project sha]
  (format "/%s/%s/commit/%s" username project sha))

(comment
  (def github (make-github "v1" "json"))
  (github (user "sethtrain"))
  (github (recent "sethtrain" "authorize-clj" "master"))
  (github (search "clojure"))
  (github (commit "sethtrain" "authorize-clj" "a2771c6db5cc6c034c617374c239d0ae6c351d6f"))
)