Skip to content

Instantly share code, notes, and snippets.

@rberger
Created January 22, 2021 22:13
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save rberger/5b1e96867c8ee3adc8eae8daf5261819 to your computer and use it in GitHub Desktop.
Save rberger/5b1e96867c8ee3adc8eae8daf5261819 to your computer and use it in GitHub Desktop.
Gist Push Test
(defproject clj-linq "0.1.0-SNAPSHOT"
:description "Clojure Console App"
:url "https://gist.cafe/#clojure"
:license {:name "The 3-Clause BSD License"
:url "https://github.com/ServiceStack/gistcafe-kotlin/blob/main/LICENSE"}
:dependencies [[org.clojure/clojure "1.10.1"]
[org.clojure/data.json "1.0.0"]
[net.servicestack/gistcafe "0.0.6"]
[org.jetbrains.kotlin/kotlin-stdlib "1.4.21"]
[com.google.code.gson/gson "2.8.6"]]
:main main)
(ns main
(:require [clojure.data.json :as json])
(:import (net.servicestack.gistcafe Inspect)))
(defn -main [& args]
(let [orgName "clojure"
url (str "https://api.github.com/orgs/" orgName "/repos")
json (Inspect/readUrlAsText (java.net.URL. url))
orgRepos (map #(select-keys %
["name" "description" "language" "url" "watchers" "forks"])
(json/read-str json))]
(println "Top 3" orgName "GitHub Repos:")
(Inspect/printDump (take 3 orgRepos))
(println "\nTop 10" orgName "GitHub Repos:")
(Inspect/printDumpTable (take 10 orgRepos)
["name" "language" "watchers" "forks"])
(Inspect/vars { "orgRepos" orgRepos })
))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment