Add but don't export: SHOW-PUSHABLE

This was added sometime in the last day or so to the github api and shows what repositories a user has commit access to.
nixeagle · Mar 9, 2010 · 71afd2f · 71afd2f
1 parent 5b375ce
commit 71afd2f
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/users.lisp b/users.lisp
@@ -110,4 +110,11 @@ ID can be either a string or a positive number."))
                               :email email)))
 (defmethod remove-user-email ((email string) &key login token)
   (json->list (authed-request login token '("user" "email" "remove")
-                              :email email)))
+                              :email email)))
+
+(defgeneric show-pushable (&key login token))
+
+(defmethod show-pushable (&key login token)
+  (json->list (authed-request login token '("repos" "pushable"))))
+
+;;; END