;;; gh-repos.el --- repos module for gh.el ;; Copyright (C) 2011 Yann Hodique ;; Author: Yann Hodique ;; Keywords: ;; This file is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; This file is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; ;;; Code: (eval-when-compile (require 'cl)) ;;;###autoload (require 'eieio) (require 'gh-api) (require 'gh-auth) (require 'gh-common) ;;;###autoload (defclass gh-repos-api (gh-api-v3) ((repo-cls :allocation :class :initform gh-repos-repo) (user-cls :allocation :class :initform gh-user)) "Repos API") ;;;###autoload (defclass gh-repos-repo-stub (gh-object) ((name :initarg :name) (description :initarg :description) (homepage :initarg :homepage) (private :initarg :private)) "Class for user-created repository objects") (defmethod gh-object-read-into ((stub gh-repos-repo-stub) data) (call-next-method) (with-slots (name description homepage private) stub (setq name (gh-read data 'name) description (gh-read data 'description) homepage (gh-read data 'homepage) private (gh-read data 'private)))) ;;;###autoload (defclass gh-repos-repo (gh-repos-repo-stub) ((url :initarg :url) (html-url :initarg :html-url) (clone-url :initarg :clone-url) (git-url :initarg :git-url) (ssh-url :initarg :ssh-url) (svn-url :initarg :svn-url) (mirror-url :initarg :mirror-url) (owner :initarg :owner :initform nil) (id :initarg :id) (full-name :initarg full-name) (language :initarg :language) (fork :initarg :fork) (forks :initarg :forks) (forks-count :initarg forks-count) (watchers :initarg :watchers) (watchers-count :initarg watchers-count) (size :initarg :size) (master-branch :initarg :master-branch) (open-issues :initarg :open-issues) (pushed-at :initarg :pushed-at) (created-at :initarg :created-at) (updated-at :initarg :updated-at) (organisation :initarg :organisation :initform nil) (parent :initarg :parent) (source :initarg :source) (has-issues :initarg :has-issues) (has-wiki :initarg :has-wiki) (has-downloads :initarg :has-downloads) (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") (defmethod gh-object-read-into ((repo gh-repos-repo) data) (call-next-method) (with-slots (url html-url clone-url git-url ssh-url svn-url mirror-url id owner full-name language fork forks forks-count watchers watchers-count size master-branch open-issues pushed-at created-at organisation parent source has-issues has-wiki has-downloads) repo (setq url (gh-read data 'url) html-url (gh-read data 'html_url) clone-url (gh-read data 'clone_url) git-url (gh-read data 'git_url) ssh-url (gh-read data 'ssh_url) svn-url (gh-read data 'svn_url) mirror-url (gh-read data 'mirror_url) id (gh-read data 'id) owner (gh-object-read (or (oref repo :owner) (oref repo owner-cls)) (gh-read data 'owner)) full-name (gh-read data 'full_name) language (gh-read data 'language) fork (gh-read data 'fork) forks (gh-read data 'forks) forks-count (gh-read data 'forks_count) watchers (gh-read data 'watchers) watchers-count (gh-read data 'watchers_count) size (gh-read data 'size) master-branch (gh-read data 'master_branch) open-issues (gh-read data 'open_issues) pushed-at (gh-read data 'pushed_at) created-at (gh-read data 'created_at) organisation (gh-object-read (or (oref repo :organisation) (oref repo organisation-cls)) (gh-read data 'organisation)) parent (gh-object-read (oref repo parent-cls) (gh-read data 'parent)) source (gh-object-read (oref repo source-cls) (gh-read data 'source)) has-issues (gh-read data 'has_issues) has-wiki (gh-read data 'has_wiki) has-downloads (gh-read data 'has_downloads)))) (defclass gh-repos-ref (gh-object) ((label :initarg :label) (ref :initarg :ref :initform nil) (sha :initarg :sha :initform nil) (user :initarg :user :initform nil) (repo :initarg :repo :initform nil) (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) (call-next-method) (with-slots (label ref sha user repo) r (setq label (gh-read data 'label) ref (gh-read data 'ref) sha (gh-read data 'sha) user (gh-object-read (or (oref r :user) (oref r user-cls)) (gh-read data 'user)) repo (gh-object-read (or (oref r :repo) (oref r repo-cls)) (gh-read data 'repo))))) (defmethod gh-repos-user-list ((api gh-repos-api) &optional username) (gh-api-authenticated-request api (gh-object-list-reader (oref api repo-cls)) "GET" (format "/users/%s/repos" (or username (gh-api-get-username api))))) (defmethod gh-repos-org-list ((api gh-repos-api) org) (gh-api-authenticated-request api (gh-object-list-reader (oref api repo-cls)) "GET" (format "/orgs/%s/repos" org))) (defmethod gh-repos-repo-to-obj ((repo gh-repos-repo-stub) &rest caps) (let ((has_issues (plist-member caps :issues)) (has_wiki (plist-member caps :wiki)) (has_downloads (plist-member caps :downloads))) `(("name" . ,(oref repo :name)) ,@(when (slot-boundp repo :homepage) (list (cons "homepage" (oref repo :homepage)))) ,@(when (slot-boundp repo :description) (list (cons "description" (oref repo :description)))) ,@(when (slot-boundp repo :private) (list (cons "public" (not (oref repo :private))))) ,@(when has_issues (list (cons "has_issues" (plist-get caps :issues)))) ,@(when has_wiki (list (cons "has_wiki" (plist-get caps :wiki)))) ,@(when has_downloads (list (cons "has_downloads" (plist-get caps :downloads))))))) (defmethod gh-repos-repo-new ((api gh-repos-api) repo-stub &optional org &rest caps) (gh-api-authenticated-request api (gh-object-reader (oref api repo-cls)) "POST" (if org (format "/orgs/%s/repos" org) "/user/repos") (apply 'gh-repos-repo-to-obj repo-stub caps))) (defmethod gh-repos-repo-get ((api gh-repos-api) repo-id &optional user) (gh-api-authenticated-request api (gh-object-reader (oref api repo-cls)) "GET" (format "/repos/%s/%s" (or user (gh-api-get-username api)) repo-id))) (defmethod gh-repos-repo-update ((api gh-repos-api) repo-stub &optional user &rest caps) (gh-api-authenticated-request api (gh-object-reader (oref api repo-cls)) "PATCH" (format "/repos/%s/%s" (or user (gh-api-get-username api)) (oref repo-stub :name)) (apply 'gh-repos-repo-to-obj repo-stub caps))) (defmethod gh-repos-repo-rename ((api gh-repos-api) repo-stub new-name &optional user) (let ((new-stub (gh-repos-repo-stub "repo" :name new-name))) (gh-api-authenticated-request api (gh-object-reader (oref api repo-cls)) "PATCH" (format "/repos/%s/%s" (or user (gh-api-get-username api)) (oref repo-stub :name)) (gh-repos-repo-to-obj new-stub)))) (defmethod gh-repos-repo-delete ((api gh-repos-api) repo-id &optional user) (gh-api-authenticated-request api (gh-object-reader (oref api repo-cls)) "DELETE" (format "/repos/%s/%s" (or user (gh-api-get-username api)) repo-id))) ;; TODO gh-repos-repo-move (defmethod gh-repos-repo-contributors ((api gh-repos-api) repo) (gh-api-authenticated-request api (gh-object-reader (oref api repo-cls)) "GET" (format "/repos/%s/%s/contributors" (oref (oref repo :owner) :login) (oref repo :name)))) ;;; TODO: generate some useful objects with the return values (defmethod gh-repos-repo-languages ((api gh-repos-api) repo) (gh-api-authenticated-request api nil "GET" (format "/repos/%s/%s/languages" (oref (oref repo :owner) :login) (oref repo :name)))) (defmethod gh-repos-repo-teams ((api gh-repos-api) repo) (gh-api-authenticated-request api nil "GET" (format "/repos/%s/%s/teams" (oref (oref repo :owner) :login) (oref repo :name)))) (defmethod gh-repos-repo-tags ((api gh-repos-api) repo) (gh-api-authenticated-request api nil "GET" (format "/repos/%s/%s/tags" (oref (oref repo :owner) :login) (oref repo :name)))) (defmethod gh-repos-repo-branches ((api gh-repos-api) repo) (gh-api-authenticated-request api nil "GET" (format "/repos/%s/%s/branches" (oref (oref repo :owner) :login) (oref repo :name)))) ;;; TODO gh-repos-repo-branch-commits ;;; TODO Collaborators sub-API ;;; TODO Comments sub-API ;;; TODO Commits sub-API ;;; TODO Contents sub-API ;;; TODO Downloads sub-API ;;; Forks sub-API (defmethod gh-repos-forks-list ((api gh-repos-api) repo &optional recursive) (let ((resp (gh-api-authenticated-request api (gh-object-list-reader (oref api repo-cls)) "GET" (format "/repos/%s/%s/forks" (oref (oref repo :owner) :login) (oref repo :name))))) (when recursive (let ((forks (oref resp :data))) (oset resp :data (apply 'nconc forks (mapcar (lambda (f) (oref (gh-repos-forks-list api f t) data)) forks))))) resp)) (defmethod gh-repos-fork ((api gh-repos-api) repo &optional org) (gh-api-authenticated-request api (gh-object-reader (oref api repo-cls)) "POST" (format "/repos/%s/%s/forks" (oref (oref repo :owner) :login) (oref repo :name)) nil (when org `(("org" . ,org))))) ;;; TODO Keys sub-API ;;; TODO Hooks sub-API ;;; TODO Merging sub-API ;;; Starring sub-API (defmethod gh-repos-stargazers ((api gh-repos-api) repo) (gh-api-authenticated-request api (gh-object-list-reader (oref api user-cls)) "GET" (format "/repos/%s/%s/stargazers" (oref (oref repo :owner) :login) (oref repo :name)))) (defmethod gh-repos-starred-list ((api gh-repos-api) &optional username) (gh-api-authenticated-request api (gh-object-list-reader (oref api repo-cls)) "GET" (format "/users/%s/starred" (or username (gh-api-get-username api))))) (defmethod gh-repos-starred-p ((api gh-repos-api) repo) (eq (oref (gh-api-authenticated-request api nil "GET" (format "/user/starred/%s/%s" (oref (oref repo :owner) :login) (oref repo :name))) :http-status) 204)) (defmethod gh-repos-star ((api gh-repos-api) repo) (gh-api-authenticated-request api nil "PUT" (format "/user/starred/%s/%s" (oref (oref repo :owner) :login) (oref repo :name)))) (defmethod gh-repos-unstar ((api gh-repos-api) repo) (gh-api-authenticated-request api nil "DELETE" (format "/user/starred/%s/%s" (oref (oref repo :owner) :login) (oref repo :name)))) ;;; TODO Statuses sub-API ;;; Watching sub-API (defmethod gh-repos-watchers ((api gh-repos-api) repo) (gh-api-authenticated-request api (gh-object-list-reader (oref api user-cls)) "GET" (format "/repos/%s/%s/subscribers" (oref (oref repo :owner) :login) (oref repo :name)))) (defmethod gh-repos-watched-list ((api gh-repos-api) &optional username) (gh-api-authenticated-request api (gh-object-list-reader (oref api repo-cls)) "GET" (format "/users/%s/subscriptions" (or username (gh-api-get-username api))))) (defmethod gh-repos-watched-p ((api gh-repos-api) repo) (eq (oref (gh-api-authenticated-request api nil "GET" (format "/user/subscriptions/%s/%s" (oref (oref repo :owner) :login) (oref repo :name))) :http-status) 204)) (defmethod gh-repos-watch ((api gh-repos-api) repo) (gh-api-authenticated-request api nil "PUT" (format "/user/subscriptions/%s/%s" (oref (oref repo :owner) :login) (oref repo :name)))) (defmethod gh-repos-unwatch ((api gh-repos-api) repo) (gh-api-authenticated-request api nil "DELETE" (format "/user/subscriptions/%s/%s" (oref (oref repo :owner) :login) (oref repo :name)))) (provide 'gh-repos) ;;; gh-repos.el ends here ;; Local Variables: ;; indent-tabs-mode: nil ;; End: