maxweber

user> (slurp "https://graph.facebook.com/btaylor")
"{\"id\":\"220439\",
\"name\":\"Bret Taylor\",
\"first_name\":\"Bret\",
\"last_name\":\"Taylor\",
\"link\":\"http:\\/\\/www.facebook.com\\/btaylor\",
\"gender\":\"male\",
\"locale\":\"en_US\"}"

maxweber

user> (use 'clojure.contrib.json)
nil
user> (read-json (slurp "https://graph.facebook.com/btaylor"))
{:id "220439",
 :name "Bret Taylor",
 :first_name "Bret",
 :last_name "Taylor",
 :link "http://www.facebook.com/btaylor",
 :gender "male",
 :locale "en_US"}

maxweber

user> (require '[clj-http.client :as client])
nil
user> (use 'clojure.pprint)
nil
user> (pprint (client/get "https://graph.facebook.com/220439"))
{:status 200,
 :headers
 {"p3p"
  "CP=\"Facebook does not have a P3P policy. Learn why here: http://fb.me/p3p\"",
  "content-type" "text/javascript; charset=UTF-8",

maxweber

(use 'clojure.contrib.json)
(defn wrap-json-response-conversion [client]
  "Automatically transforms the body of a response of a Facebook Graph API request from JSON to a Clojure
   data structure through the use of clojure.contrib.json. It checks if the header Content-Type
   is 'text/javascript' which the Facebook Graph API returns in the case of a JSON response."
  (fn [req]
    (let [{:keys [headers] :as resp} (client req)
          content-type (headers "content-type")]
      (if (and (not (nil? content-type))
               (.startsWith content-type "text/javascript"))

maxweber

user> (use 'clojure.pprint)
nil
user> (require '[clj-http.client :as client])
nil
user> (def request (wrap-json-response-conversion (client/wrap-request #'clj-http.core/request)))
#'user/request
user> (pprint (:body (request {:method :get :url "https://graph.facebook.com/btaylor"})))
{:id "220439",
 :name "Bret Taylor",
 :first_name "Bret",

maxweber

(defn get
  "Like #'request, but sets the :method and :url as appropriate."
  [url & [req]]
  (request (merge req {:method :get :url url})))

maxweber

(def server (start-server))

maxweber

{
   "error": {
      "type": "OAuthException",
      "message": "Error validating application."
   }
}

maxweber

clj-facebook-graph.example> (facebook-auth-by-name)
{"Max Weber" {:access-token "134211159981787|2.NFMD8_yemOzJ6rIH3Ezukw__.3600.129951..."}}

maxweber

clj-facebook-graph.example> (with-facebook-auth-by-name "Max Weber" (client/get "https://graph.facebook.com/me/friends"))
{:status 200, :headers {"content-type" "text/javascript; charset=UTF-8",
 "date" "Mon, 07 Mar 2011 15:56:41 GMT",
 "cache-control" "private, no-cache, no-store, must-revalidate",
 "expires" "Sat, 01 Jan 2000 00:00:00 GMT",
 "etag" "\"bb3aff0d25be9397d666254583743b7a8bcfb60e\"",
 "x-powered-by" "HPHP", "content-length" "4462",
 "pragma" "no-cache", "connection" "close", "x-fb-server" "10.32.53.102"},
 :body {:data [{:name "Friend 1", :id "id of friend one"} {:name "Friend 2", :id "id of friend two"} ...