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

Change how doom/info lists private packages

Browse source
This commit is contained in:
Henrik Lissner 2019-09-14 18:27:02 -04:00
parent c8cd94a5d2
commit fff4968da9
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
core/autoload/debug.el
View file

@ -80,14 +80,18 @@ ready to be pasted in a bug report on github."
'("n/a"))) '("n/a")))
(packages (packages
,@(or (ignore-errors ,@(or (ignore-errors
(cl-loop for (name . plist) in (doom-package-list) (let ((doom-interactive-mode t)
if (doom-package-private-p name) doom-packages
collect doom-disabled-packages)
(format (doom--read-module-packages-file
"%s" (if-let (splist (doom-plist-delete (copy-sequence plist) (doom-path doom-private-dir "packages.el")
:modules)) nil t)
(cons name splist) (cl-loop for (name . plist) in (nreverse doom-packages)
name)))) collect
(if-let (splist (doom-plist-delete (copy-sequence plist)
:modules))
(prin1-to-string (cons name splist))
name))))
'("n/a"))) '("n/a")))
(elpa (elpa
,@(or (ignore-errors ,@(or (ignore-errors

4
core/autoload/packages.el
View file

@ -131,10 +131,10 @@ was installed with."
;; ;;
;;; Package list getters ;;; Package list getters
(defun doom--read-module-packages-file (file &optional eval noerror) (defun doom--read-module-packages-file (file &optional noeval noerror)
(with-temp-buffer ; prevent buffer-local settings from propagating (with-temp-buffer ; prevent buffer-local settings from propagating
(condition-case e (condition-case e
(if (not eval) (if (not noeval)
(load file noerror t t) (load file noerror t t)
(when (file-readable-p file) (when (file-readable-p file)
(insert-file-contents file) (insert-file-contents file)