Clojure GitHub API Homework

gistfile1.clj

(ns crash-course-github
  (:require [clj-http.client :as http]
            [cheshire.core :refer [parse-string]]
            [clojure.pprint :refer [pprint]]))

(use 'crash-course-github)

(defn query-github
  "Run an arbitrary query against Github API."
  [query]
  (parse-string (:body (http/get "https://api.github.com/users/richhollis/repos"
                                 {:query-params {:q query}}))
                true))

(def github-data 
  (query-github nil)
  ;(eval (read-string (slurp "/home/rich/ACrashCourseInClojure/src/crash_course_clojure/github-data"))) ; load map from text file or comment out and use above line
)

(def github-data-mapped
  (map (fn [repo] {
    :name (repo :name) 
    :stargazers_count (repo :stargazers_count)
    :language (repo :language)
    }) github-data)
)

(def reverse-list-map
   (reverse (sort-by :stargazers_count github-data-mapped))
)

; Ruby repos sorted by stargazer count
(filter (fn[x] (= "JavaScript" (x :language))) reverse-list-map)

({:name "vticker", :stargazers_count 66, :language "JavaScript"} {:name "website-responsive", :stargazers_count 0, :language "JavaScript"})