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

Allow local packages without owner

This commit is contained in:
Eivind Fonn 2015-09-19 23:16:05 +02:00 committed by syl20bnr
parent 0ab2c89628
commit 92c792c18e
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
core/core-configuration-layer.el
View File

@ -742,13 +742,14 @@ path."
;; load-path
(pcase (oref pkg :location)
(`local
(let* ((owner (object-assoc (oref pkg :owner)
:name configuration-layer--layers))
(dir (oref owner :dir)))
(unless (eq owner 'dotfile)
(push (format "%slocal/%S/" dir pkg-name) load-path)
;; TODO remove extensions in 0.105.0
(push (format "%sextensions/%S/" dir pkg-name) load-path))))
(when (oref pkg :owner)
(let* ((owner (object-assoc (oref pkg :owner)
:name configuration-layer--layers))
(dir (oref owner :dir)))
(unless (eq owner 'dotfile)
(push (format "%slocal/%S/" dir pkg-name) load-path)
;; TODO remove extensions in 0.105.0
(push (format "%sextensions/%S/" dir pkg-name) load-path)))))
(`private
(push (configuration-layer//get-private-layer-dir
(symbol-name (oref pkg :name)))