Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

119 lines (95 sloc) 3.874 kb
;;; gh-auth.el --- authentication 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:
(require 'eieio)
(require 'gh-common)
(defgroup gh-auth nil
"Github authentication."
:group 'gh)
(defvar gh-auth-username nil)
(defvar gh-auth-password nil)
(defvar gh-auth-oauth-token nil)
(defun gh-auth-get-username ()
(let ((user (or gh-auth-username
(setq gh-auth-username (gh-config "user")))))
(when (not user)
(setq user (read-string "GitHub username: "))
(setq gh-auth-username user)
(gh-set-config "user" user))
user))
(defun gh-auth-get-password ()
(let ((pass (or gh-auth-password
(setq gh-auth-password (gh-config "password")))))
(when (not pass)
(setq pass (read-passwd "GitHub password: "))
(setq gh-auth-password pass)
(gh-set-config "password" pass))
pass))
(defun gh-auth-get-oauth-token ()
(let ((token (or gh-auth-oauth-token
(setq gh-auth-oauth-token (gh-config "token")))))
(when (not token)
(setq token (read-string "GitHub OAuth token: "))
(setq gh-auth-oauth-token token)
(gh-set-config "token" token))
token))
;;;###autoload
(defclass gh-authenticator ()
((username :initarg :username :initform nil))
"Abstract authenticator")
(defmethod constructor :static ((auth gh-authenticator) newname &rest args)
(let ((obj (call-next-method)))
(or (oref obj :username)
(oset obj :username (gh-auth-get-username)))
obj))
;;;###autoload
(defclass gh-password-authenticator (gh-authenticator)
((password :initarg :password :protection :private :initform nil))
"Password-based authenticator")
(defmethod constructor :static ((auth gh-password-authenticator) newname &rest args)
(let ((obj (call-next-method)))
(or (oref obj :password)
(oset obj :password (gh-auth-get-password)))
obj))
(defmethod gh-auth-modify-request ((auth gh-authenticator) req))
(defmethod gh-auth-modify-request ((auth gh-password-authenticator) req)
(object-add-to-list req :headers
(cons "Authorization"
(concat "Basic "
(base64-encode-string
(format "%s:%s" (oref auth :username)
(encode-coding-string
(oref auth :password) 'utf-8))))))
req)
;;;###autoload
(defclass gh-oauth-authenticator (gh-authenticator)
((token :initarg :token :protection :private :initform nil))
"Oauth-based authenticator")
(defmethod constructor :static ((auth gh-oauth-authenticator) newname &rest args)
(let ((obj (call-next-method)))
(or (oref obj :token)
(oset obj :token (gh-auth-get-oauth-token)))
obj))
(defmethod gh-auth-modify-request ((auth gh-oauth-authenticator) req)
(object-add-to-list req :headers
(cons "Authorization"
(format "token %s" (oref auth :token))))
req)
(provide 'gh-auth)
;;; gh-auth.el ends here
Jump to Line
Something went wrong with that request. Please try again.