TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

properly resolve local package archive urls

Browse source
This commit is contained in:
d12frosted 2016-09-13 16:44:41 +03:00
parent b7c84b5c35
commit 8578b40404
No known key found for this signature in database
GPG key ID: 8F60E862D6F5CE8F
1 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
core/core-configuration-layer.el
View file

@ -304,18 +304,21 @@ The returned list has a `package-archives' compliant format."
(mapcar
(lambda (x)
(cons (car x)
(if (string-match-p "http" (cdr x))
(if (or (string-match-p "http" (cdr x))
(string-prefix-p "/" (cdr x)))
(cdr x)
(concat (if (and dotspacemacs-elpa-https
(not spacemacs-insecure)
;; for now org ELPA repository does
;; not support HTTPS
;; TODO when org ELPA repo support
;; HTTPS remove the check
;; `(not (equal "org" (car x)))'
(not (equal "org" (car x))))
"https://"
"http://") (cdr x)))))
(concat
(if (and dotspacemacs-elpa-https
(not spacemacs-insecure)
;; for now org ELPA repository does
;; not support HTTPS
;; TODO when org ELPA repo support
;; HTTPS remove the check
;; `(not (equal "org" (car x)))'
(not (equal "org" (car x))))
"https://"
"http://")
(cdr x)))))
archives))
(defun configuration-layer/retrieve-package-archives (&optional quiet force)