-
Notifications
You must be signed in to change notification settings - Fork 457
/
el-get-methods.el
91 lines (80 loc) · 3.16 KB
/
el-get-methods.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
;;; 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.md file from the same distribution
(require 'cl-lib)
(require 'el-get-core)
(unless (version< emacs-version "24.4")
(require 'subr-x))
;;
;; NOTE: this will probably benefit from some autoloading magic, later.
;;
(eval-and-compile
(add-to-list 'load-path
(expand-file-name
"methods"
(file-name-directory (or load-file-name byte-compile-current-file buffer-file-name)))))
(defun el-get-insecure-check (package url)
"Raise an error if it's not safe to install PACKAGE from URL.
When `el-get-allow-insecure' is non-nil, check if any of the
following are true:
- URL's protocol is in `el-get-secure-protocols'
- URL starts with 'file:///' (without hostname), so it points to the
local file
- URL starts with username, i.e. 'username@example.com', also known as
SCP-like syntax
- URL satisfies `file-name-absolute-p'
- PACKAGE definition has a non-empty :checksum"
(unless el-get-allow-insecure
(cl-assert (stringp url) nil "URL is nil, can't decide if it's safe to install package '%s'" package)
(let* ((checksum (plist-get (el-get-package-def package) :checksum))
(checksum-empty (or (not (stringp checksum))
(if (fboundp 'string-blank-p)
(string-blank-p checksum)
(string-match-p "\\`[ \t\n\r]*\\'" checksum)))))
(unless (or (string-match "\\`file:///" url)
(file-name-absolute-p url)
(car (member 0 (mapcar (lambda (secure-proto)
(let ((proto-rx (concat "\\`" (regexp-quote secure-proto) "://")))
(string-match-p proto-rx url))) el-get-secure-protocols)))
(string-match "\\`[-_\.A-Za-z0-9]+@" url))
;; With not empty :checksum, we can rely on `el-get-post-install' calling
;; `el-get-verify-checksum' for security.
(unless (not checksum-empty)
(error (concat "Attempting to install PACKAGE "
(el-get-as-string package)
" from insecure URL " url
" without `el-get-allow-insecure'.")))))))
(require 'el-get-apt-get)
(require 'el-get-builtin)
(require 'el-get-brew)
(require 'el-get-bzr)
(require 'el-get-cvs)
(require 'el-get-darcs)
(require 'el-get-elpa)
(require 'el-get-emacsmirror)
(require 'el-get-emacswiki)
(require 'el-get-fink)
(require 'el-get-git)
(require 'el-get-github)
(require 'el-get-git-svn)
(require 'el-get-go)
(require 'el-get-hg)
(require 'el-get-http)
(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)
(require 'el-get-fossil)
(provide 'el-get-methods)