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

14
core/autoload/debug.el
View file

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

4
core/autoload/packages.el
View file

@ -131,10 +131,10 @@ was installed with."
;;
;;; 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
(condition-case e
(if (not eval)
(if (not noeval)
(load file noerror t t)
(when (file-readable-p file)
(insert-file-contents file)