117 lines
3.3 KiB
EmacsLisp
117 lines
3.3 KiB
EmacsLisp
|
;;; gh-common.el --- common objects for gh.el
|
||
|
|
|
||
|
|
;; Copyright (C) 2011 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-profile)
|
||
|
|
|
||
|
|
(defgroup gh nil
|
||
|
|
"Github API client libraries."
|
||
|
|
:group 'applications)
|
||
|
|
|
||
|
|
(defclass gh-object ()
|
||
|
|
())
|
||
|
|
|
||
|
|
(defmethod gh-object-read :static ((obj gh-object) data)
|
||
|
|
(let ((target (if (object-p obj) obj
|
||
|
|
(make-instance obj))))
|
||
|
|
(when data
|
||
|
|
(gh-object-read-into target data))
|
||
|
|
target))
|
||
|
|
|
||
|
|
(defmethod gh-object-reader :static ((obj gh-object))
|
||
|
|
(apply-partially 'gh-object-read obj))
|
||
|
|
|
||
|
|
(defmethod gh-object-list-read :static ((obj gh-object) data)
|
||
|
|
(mapcar (gh-object-reader obj) data))
|
||
|
|
|
||
|
|
(defmethod gh-object-list-reader :static ((obj gh-object))
|
||
|
|
(apply-partially 'gh-object-list-read obj))
|
||
|
|
|
||
|
|
(defmethod gh-object-read-into ((obj gh-object) data))
|
||
|
|
|
||
|
|
(defmethod slot-unbound ((obj gh-object) cls slot-name fn)
|
||
|
|
(if (eq fn 'oref) nil
|
||
|
|
(call-next-method)))
|
||
|
|
|
||
|
|
(defclass gh-user (gh-object)
|
||
|
|
((login :initarg :login)
|
||
|
|
(id :initarg :id)
|
||
|
|
(avatar-url :initarg :avatar-url)
|
||
|
|
(gravatar-url :initarg :gravatar-url)
|
||
|
|
(url :initarg :url))
|
||
|
|
"Github user object")
|
||
|
|
|
||
|
|
(defmethod gh-object-read-into ((user gh-user) data)
|
||
|
|
(call-next-method)
|
||
|
|
(with-slots (login id avatar-url gravatar-url url)
|
||
|
|
user
|
||
|
|
(setq login (gh-read data 'login)
|
||
|
|
id (gh-read data 'id)
|
||
|
|
avatar-url (gh-read data 'avatar_url)
|
||
|
|
gravatar-url (gh-read data 'gravatar_url)
|
||
|
|
url (gh-read data 'url))))
|
||
|
|
|
||
|
|
(defun gh-read (obj field)
|
||
|
|
(cdr (assoc field obj)))
|
||
|
|
|
||
|
|
(defun gh-namespaced-key (key)
|
||
|
|
(let ((profile (gh-profile-current-profile)))
|
||
|
|
(concat "github."
|
||
|
|
(if (string= profile gh-profile-default-profile)
|
||
|
|
""
|
||
|
|
(concat profile "."))
|
||
|
|
key)))
|
||
|
|
|
||
|
|
(defun gh-config (key)
|
||
|
|
"Returns a GitHub specific value from the global Git config."
|
||
|
|
(let ((strip (lambda (string)
|
||
|
|
(if (> (length string) 0)
|
||
|
|
(substring string 0 (- (length string) 1))))))
|
||
|
|
(funcall strip (gh-command-to-string "config" (gh-namespaced-key key)))))
|
||
|
|
|
||
|
|
(defun gh-set-config (key value)
|
||
|
|
"Sets a GitHub specific value to the global Git config."
|
||
|
|
(gh-command-to-string "config" "--global" (gh-namespaced-key key) value))
|
||
|
|
|
||
|
|
(defun gh-command-to-string (&rest args)
|
||
|
|
(let ((git (executable-find "git")))
|
||
|
|
(with-output-to-string
|
||
|
|
(apply 'process-file git nil standard-output nil args))))
|
||
|
|
|
||
|
|
(provide 'gh-common)
|
||
|
|
;;; gh-common.el ends here
|
||
|
|
|
||
|
|
;; Local Variables:
|
||
|
|
;; indent-tabs-mode: nil
|
||
|
|
;; End:
|