Add follow/unfollow

DuoSRX · Feb 6, 2012 · fadf7fc · fadf7fc
1 parent 8e4cef3
commit fadf7fc
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/clojure_geeklist/core.clj b/src/clojure_geeklist/core.clj
@@ -58,6 +58,16 @@
   [id & [options]]
   (make-request "users/%s/following" [id] :GET options))
 
+(defn follow
+  "Follow an user"
+  [id]
+  (make-request "follow" [] :POST {:user id :action "follow"}))
+
+(defn unfollow
+  "Unfollow an user"
+  [id]
+  (make-request "follow" [] :POST {:user id}))
+
 (defn user-cards
   "Get the given user cards"
   [id & [options]]