Commit 275004b5 authored by Ryan C. Thompson's avatar Ryan C. Thompson

Add github-tar method

parent 98009d26
......@@ -38,6 +38,7 @@
(require 'el-get-http)
(require 'el-get-http-tar)
(require 'el-get-http-zip)
(require 'el-get-github-tar)
(require 'el-get-pacman)
(require 'el-get-svn)
......
;;; el-get --- Manage the external elisp bits and pieces you depend upon
;;
;; Copyright (C) 2010-2011 Dimitri Fontaine
;;
;; Author: Dimitri Fontaine <dim@tapoueh.org>
;; URL: http://www.emacswiki.org/emacs/el-get
;; GIT: https://github.com/dimitri/el-get
;; Licence: WTFPL, grab your copy here: http://sam.zoy.org/wtfpl/
;;
;; This file is NOT part of GNU Emacs.
;;
;; Install
;; Please see the README.asciidoc file from the same distribution
(require 'el-get-http-tar)
(defun el-get-github-tar-url (package)
(let* ((source (el-get-package-def package)))
(or
;; Use :url if provided
(plist-get source :url)
;; Else generate URL from username, and reponame
(let* ((username (el-get-as-string
(or (plist-get source :username)
(error "Recipe for Github tar package %s needs a username" package))))
(reponame (el-get-as-string
(or (plist-get source :reponame)
package))))
(format "https://github.com/%s/%s/tarball/master"
username reponame)))))
(defun el-get-github-tar-install (package url post-install-fun)
"Clone the given package from Github following the URL."
(el-get-http-tar-install package
(or url (el-get-github-tar-url package))
post-install-fun))
(el-get-register-derived-method :github-tar :http-tar
:install #'el-get-github-tar-install
:update #'el-get-github-tar-install)
(provide 'el-get-github-tar)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment