twitter-api test script

core.clj

(ns twitter-api-test.followers-minus-friends
  (:use
   [twitter.api.restful :only [show-followers show-friends lookup-users]]
   [clojure.set :only [difference]])
  (:require [clojure.string :as string]))

(defn vector-to-comma-separated [vector]
   (string/join "," vector))
  
(defn userinfos [idset]
  (let [groups-of-100-ids (partition-all 100 idset)]
    ;; the api only allows 100 ids at a time
    (mapcat #(:body (lookup-users :params {:user_id (vector-to-comma-separated %)}))
            groups-of-100-ids)))

(defn idset [twitter-fn screenname]
  (set (:body
        (twitter-fn :params {:screen-name screenname}))))

(defn followers-minus-friends [screenname]
  (let [difference-ids (difference (idset show-followers screenname)
                                   (idset show-friends screenname))
        userinfos (userinfos difference-ids)]
    (map :screen_name userinfos)))
                                
;(followers-minus-friends "Borkdude")