Skip to content
Browse files

Revert "rename gh-user to gh-user-stub"

This reverts commit 288a139.

Conflicts:
	gh-repos.el
  • Loading branch information...
1 parent f3171ca commit ecabbfcdc36294c0d23991aa5e0cbd1838420d89 @sigma committed Nov 26, 2013
Showing with 12 additions and 12 deletions.
  1. +2 −2 gh-common.el
  2. +1 −1 gh-gist.el
  3. +2 −2 gh-issues.el
  4. +1 −1 gh-pulls.el
  5. +5 −5 gh-repos.el
  6. +1 −1 gh-users.el
View
4 gh-common.el
@@ -60,14 +60,14 @@
(defmethod gh-object-read-into ((obj gh-object) data))
-(defclass gh-user-stub (gh-object)
+(defclass gh-user (gh-object)
((login :initarg :login)
(id :initarg :id)
(gravatar-url :initarg :gravatar-url)
(url :initarg :url))
"Github user object")
-(defmethod gh-object-read-into ((user gh-user-stub) data)
+(defmethod gh-object-read-into ((user gh-user) data)
(call-next-method)
(with-slots (login id gravatar-url url)
user
View
2 gh-gist.el
@@ -73,7 +73,7 @@
(history :initarg :history :initform nil)
(forks :initarg :forks :initform nil)
- (user-cls :allocation :class :initform gh-user-stub))
+ (user-cls :allocation :class :initform gh-user))
"Gist object")
(defmethod gh-object-read-into ((gist gh-gist-gist) data)
View
4 gh-issues.el
@@ -64,7 +64,7 @@
(created_at :initarg :created_at)
(due_on :initarg :due_on)
- (user-cls :allocation :class :initform gh-user-stub)
+ (user-cls :allocation :class :initform gh-user)
(milestone-cls :allocation :class :initform gh-issues-milestone))
"issues request")
@@ -85,7 +85,7 @@
(created_at :initarg :created_at)
(due_on :initarg :due_on)
- (user-cls :allocation :class :initform gh-user-stub))
+ (user-cls :allocation :class :initform gh-user))
"github milestone")
(defmethod gh-object-read-into ((issue gh-issues-issue) data)
View
2 gh-pulls.el
@@ -100,7 +100,7 @@
(base :initarg :base :initform nil)
(ref-cls :allocation :class :initform gh-repos-ref)
- (user-cls :allocation :class :initform gh-user-stub))
+ (user-cls :allocation :class :initform gh-user))
"Git pull requests API")
(defmethod gh-object-read-into ((req gh-pulls-request) data)
View
10 gh-repos.el
@@ -39,7 +39,7 @@
;;;###autoload
(defclass gh-repos-api (gh-api-v3)
((repo-cls :allocation :class :initform gh-repos-repo)
- (user-cls :allocation :class :initform gh-user-stub))
+ (user-cls :allocation :class :initform gh-user))
"Repos API")
;;;###autoload
@@ -90,8 +90,8 @@
(has-wiki :initarg :has-wiki)
(has-downloads :initarg :has-downloads)
- (owner-cls :allocation :class :initform gh-user-stub)
- (organisation-cls :allocation :class :initform gh-user-stub)
+ (owner-cls :allocation :class :initform gh-user)
+ (organisation-cls :allocation :class :initform gh-user)
(parent-cls :allocation :class :initform gh-repos-repo)
(source-cls :allocation :class :initform gh-repos-repo))
"Class for GitHub repositories")
@@ -110,7 +110,7 @@
(when (string-match "^\\([^/]+\\)/\\([^/]+\\)$" newname)
(setq login (match-string 1 newname)
name (match-string 2 newname)
- owner (gh-user-stub login :login login))
+ owner (gh-user login :login login))
(oset obj object-name name))))
obj))
@@ -163,7 +163,7 @@
(user :initarg :user :initform nil)
(repo :initarg :repo :initform nil)
- (user-cls :allocation :class :initform gh-user-stub)
+ (user-cls :allocation :class :initform gh-user)
(repo-cls :allocation :class :initform gh-repos-repo)))
(defmethod gh-object-read-into ((r gh-repos-ref) data)
View
2 gh-users.el
@@ -42,7 +42,7 @@
"Users API")
;;;###autoload
-(defclass gh-users-user (gh-user-stub)
+(defclass gh-users-user (gh-user)
((gravatar-id :initarg :gravatar-id)
(html-url :initarg :html-url)
(followers-url :initarg :followers-url)

0 comments on commit ecabbfc

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