my-emacs-d/elpa/gh-20160222.1811/gh-orgs.el

;;; gh-org.el --- orgs module for gh.el

;; Copyright (C) 2012  Yann Hodique

;; Author: Yann Hodique <yann.hodique@gmail.com>
;; 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-orgs-api (gh-api-v3)
  ((org-cls :allocation :class :initform gh-orgs-org))
  "Orgs API")

;;;###autoload
(defclass gh-orgs-org-stub (gh-object)
  ((login :initarg :login)
   (id :initarg :id)
   (url :initarg :url)
   (avatar-url :initarg :avatar-url)))

(defmethod gh-object-read-into ((stub gh-orgs-org-stub) data)
  (call-next-method)
  (with-slots (login id url avatar-url)
      stub
    (setq login (gh-read data 'login)
          id (gh-read data 'id)
          url (gh-read data 'url)
          avatar-url (gh-read data 'avatar_url))))

(defclass gh-orgs-plan (gh-object)
  ((name :initarg :name)
   (space :initarg :space)
   (private-repos :initarg :private-repos)))

(defmethod gh-object-read-into ((plan gh-orgs-plan) data)
  (call-next-method)
  (with-slots (name space private-repos)
      plan
    (setq name (gh-read data 'name)
          space (gh-read data 'space)
          private-repos (gh-read data 'private_repos))))

(defclass gh-orgs-org (gh-orgs-org-stub)
  ((name :initarg :name)
   (company :initarg :company)
   (blog :initarg :blog)
   (location :initarg :location)
   (email :initarg :email)
   (public-repos :initarg :public-repos)
   (public-gists :initarg :public-gists)
   (followers :initarg :followers)
   (following :initarg :following)
   (html-url :initarg :html-url)
   (created-at :initarg :created-at)
   (type :initarg :type)
   (total-private-repos :initarg :total-private-repos)
   (owned-private-repos :initarg :owned-private-repos)
   (private-gists :initarg :private-gists)
   (disk-usage :initarg :disk-usage)
   (collaborators :initarg :collaborators)
   (billing-email :initarg :billing-email)
   (plan :initarg :plan :initform nil)

   (plan-cls :allocation :class :initform gh-orgs-plan))
  "Class for GitHub organizations")

(defmethod gh-object-read-into ((org gh-orgs-org) data)
  (call-next-method)
  (with-slots (name company blog location email
                    public-repos public-gists followers following
                    html-url created-at type
                    total-private-repos owned-private-repos
                    private-gists disk-usage collaborators
                    billing-email plan)
      org
    (setq name (gh-read data 'name)
          company (gh-read data 'company)
          blog (gh-read data 'blog)
          location (gh-read data 'location)
          email (gh-read data 'email)
          public-repos (gh-read data 'public_repos)
          public-gists (gh-read data 'public_gists)
          followers (gh-read data 'followers)
          following (gh-read data 'following)
          html-url (gh-read data 'html_url)
          created-at (gh-read data 'created_at)
          type (gh-read data 'type)
          total-private-repos (gh-read data 'total_private_repos)
          owned-private-repos (gh-read data 'owned_private_repos)
          private-gists (gh-read data 'private_gists)
          disk-usage (gh-read data 'disk_usage)
          collaborators (gh-read data 'collaborators)
          billing-email (gh-read data 'billing_email)
          plan (gh-object-read (or (oref org :plan)
                                   (oref org plan-cls))
                               (gh-read data 'plan)))))

(defmethod gh-orgs-org-to-obj ((org gh-orgs-org))
  `(,@(when (slot-boundp org :billing-email)
        (list (cons "billing_email" (oref org :billing-email))))
    ,@(when (slot-boundp org :blog)
        (list (cons "blog" (oref org :blog))))
    ,@(when (slot-boundp org :company)
        (list (cons "company" (oref org :company))))
    ,@(when (slot-boundp org :email)
        (list (cons "email" (oref org :email))))
    ,@(when (slot-boundp org :location)
        (list (cons "location" (oref org :location))))
    ,@(when (slot-boundp org :name)
        (list (cons "name" (oref org :name))))))

(defmethod gh-orgs-list ((api gh-orgs-api) &optional username)
  (gh-api-authenticated-request
   api (gh-object-list-reader (oref api org-cls)) "GET"
   (format "/users/%s/orgs" (or username (gh-api-get-username api)))))

(defmethod gh-orgs-get ((api gh-orgs-api) org)
  (gh-api-authenticated-request
   api (gh-object-reader (oref api org-cls)) "GET"
   (format "/orgs/%s" org)))

(defmethod gh-orgs-update ((api gh-orgs-api) org-obj)
  (gh-api-authenticated-request
   api (gh-object-reader (oref api org-cls)) "PATCH"
   (format "/orgs/%s" (oref org-obj :login))
   (apply 'gh-orgs-org-to-obj org-obj nil)))

(provide 'gh-orgs)
;;; gh-org.el ends here

;; Local Variables:
;; indent-tabs-mode: nil
;; End: