Skip to content
Browse files

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.
  • Loading branch information...
1 parent 5b375ce commit 71afd2fe8728878eb5f8374182af3a67b01a9c6f @nixeagle committed Mar 9, 2010
Showing with 8 additions and 1 deletion.
  1. +8 −1 users.lisp
View
9 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

0 comments on commit 71afd2f

Please sign in to comment.
Something went wrong with that request. Please try again.