properly resolve local package archive urls

syl20bnr · Sep 13, 2016 · 8578b40 · 8578b40
1 parent b7c84b5
commit 8578b40
Showing 1 changed file with 14 additions and 11 deletions.
diff --git a/core/core-configuration-layer.el b/core/core-configuration-layer.el
@@ -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)