Generate a oneline descriptions for github repo with API

descriptions.clj

(ns example
  (:require [clojure.data.json :as json]
            [clojure.string :as string]))

(defn descriptions [repos]
  (map (fn [html-repo] (let [
                             api-repo (string/replace html-repo #"github.com" "api.github.com/repos")
                             json-resp (json/read-str (slurp api-repo)
                                                      :key-fn keyword)
                             name (:name json-resp)
                             url (:html_url json-resp)
                             description (:description json-resp)
                             homepage (:homepage json-resp)
                             line (format "* [%s](%s) %s %s" name url description homepage)]
                         line))
       repos))


(def myreps [
"https://github.com/MfgLabs/mfglabs-iconset"
"https://github.com/parkerbennett/stackicons"
"https://github.com/samcollins/css-social-buttons"
"https://github.com/Keyamoon/IcoMoon-Free"
"https://github.com/jhogue/PE-Analog-Clock-icon-font"
"https://github.com/erikflowers/weather-icons"
])


(println (string/join "\n" (descriptions myreps)))