diff --git a/gh-common.el b/gh-common.el index 21c2437..4891e6f 100644 --- a/gh-common.el +++ b/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 diff --git a/gh-gist.el b/gh-gist.el index b8e1279..cb12779 100644 --- a/gh-gist.el +++ b/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) diff --git a/gh-issues.el b/gh-issues.el index 35f7bdf..6db912c 100644 --- a/gh-issues.el +++ b/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) diff --git a/gh-pulls.el b/gh-pulls.el index 070bbd4..650b0ca 100644 --- a/gh-pulls.el +++ b/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) diff --git a/gh-repos.el b/gh-repos.el index f5499d6..1a62416 100644 --- a/gh-repos.el +++ b/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) diff --git a/gh-users.el b/gh-users.el index 1ec709b..305b1e6 100644 --- a/gh-users.el +++ b/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)