emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Minor, general refactors to package API

Browse source
This commit is contained in:
Henrik Lissner 2019-07-26 20:17:09 +02:00
parent 6fcaa80355
commit 1a72cf0677
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 14 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

30
core/autoload/packages.el
View file

@ -129,23 +129,19 @@ was installed with."
(while (re-search-forward "(package! " nil t)
(save-excursion
(goto-char (match-beginning 0))
(unless (string-match-p
"^.*;" (buffer-substring-no-properties
(line-beginning-position)
(point)))
(cl-destructuring-bind (name . plist) (cdr (sexp-at-point))
(push (cons name
(plist-put plist :modules
(cond ((file-in-directory-p file doom-private-dir)
'((:private)))
((file-in-directory-p file doom-core-dir)
'((:core)))
((doom-module-from-path file)))))
(unless (let ((ppss (syntax-ppss)))
(or (nth 3 ppss)
(nth 4 ppss)))
(cl-destructuring-bind (name . plist)
(cdr (sexp-at-point))
(push (cons
name (plist-put
plist :modules
(list (doom-module-from-path file))))
doom-packages)))))))
((debug error)
(signal 'doom-package-error
(list (or (doom-module-from-path file)
'(:private . packages))
(list (doom-module-from-path file)
e))))))
;;;###autoload
@ -161,9 +157,8 @@ ones."
doom-packages
doom-disabled-packages)
(doom--read-module-packages-file
(expand-file-name "packages.el" doom-core-dir)
all-p t)
(let ((private-packages (expand-file-name "packages.el" doom-private-dir)))
(doom-path doom-core-dir "packages.el") all-p t)
(let ((private-packages (doom-path doom-private-dir "packages.el")))
(unless all-p
;; We load the private packages file twice to ensure disabled packages
;; are seen ASAP, and a second time to ensure privately overridden
@ -173,7 +168,6 @@ ones."
(mapc #'doom--read-module-packages-file
(doom-files-in doom-modules-dir
:depth 2
:full t
:match "/packages\\.el$"))
(cl-loop for key being the hash-keys of doom-modules
for path = (doom-module-path (car key) (cdr key) "packages.el")

3
core/core-packages.el
View file

@ -146,7 +146,8 @@ necessary package metadata is initialized and available for them."
(when noninteractive
(add-hook 'kill-emacs-hook #'doom--finalize-straight))
(dolist (package (straight--directory-files (straight--build-dir)))
(add-to-list 'load-path (directory-file-name (straight--build-dir package)))))
(cl-pushnew (directory-file-name (straight--build-dir package))
load-path)))
(when (or force-p (not doom-packages))
(doom-log "Initializing doom-packages")
(setq doom-disabled-packages nil