mirror of
https://github.com/dimitri/el-get.git
synced 2024-09-29 04:58:53 +08:00
Add github-zip method
This commit is contained in:
parent
41992d105d
commit
37833f68cb
|
@ -39,6 +39,7 @@
|
|||
(require 'el-get-http-tar)
|
||||
(require 'el-get-http-zip)
|
||||
(require 'el-get-github-tar)
|
||||
(require 'el-get-github-zip)
|
||||
(require 'el-get-pacman)
|
||||
(require 'el-get-svn)
|
||||
|
||||
|
|
44
methods/el-get-github-zip.el
Normal file
44
methods/el-get-github-zip.el
Normal file
|
@ -0,0 +1,44 @@
|
|||
;;; 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-zip)
|
||||
|
||||
(defun el-get-github-zip-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 zip package %s needs a username" package))))
|
||||
(reponame (el-get-as-string
|
||||
(or (plist-get source :reponame)
|
||||
package)))
|
||||
(branch (or (plist-get source :branch)
|
||||
"master")))
|
||||
(format "https://github.com/%s/%s/zipball/%s"
|
||||
username reponame branch)))))
|
||||
|
||||
(defun el-get-github-zip-install (package url post-install-fun)
|
||||
"Clone the given package from Github following the URL."
|
||||
(el-get-http-zip-install package
|
||||
(or url (el-get-github-zip-url package))
|
||||
post-install-fun))
|
||||
|
||||
(el-get-register-derived-method :github-zip :http-zip
|
||||
:install #'el-get-github-zip-install
|
||||
:update #'el-get-github-zip-install)
|
||||
|
||||
(provide 'el-get-github-zip)
|
Loading…
Reference in New Issue
Block a user