ugomemo.clj

#!/usr/bin/env lein exec
(use '[leiningen.exec :only (deps)])
(deps '[[clj-http "0.7.1"]])
(require '[clj-http.client :as client])

(defn api-request [url]
  (:body (client/get url {:as :json})))

(let [user (api-request "http://ugomemo.hatena.ne.jp/[email protected]")
      movies (api-request "http://ugomemo.hatena.ne.jp/11F9E990AA34FFBC@DSi/movies.json")]
  (printf "%sさんは%d個の作品を投稿しています。\n" (:name user) (:count movies)))