awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix private & elpa package lists in doom/info

Browse Source 
And display errors if something went wrong.
This commit is contained in:
Henrik Lissner
2019-12-14 18:23:30 -05:00
parent c088aaeb1b
commit e623fde85a
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
core/autoload/debug.el
View File

@ -78,24 +78,24 @@ ready to be pasted in a bug report on github."
(cdr key))))
'("n/a")))
(packages
,@(or (ignore-errors
(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)
,@(or (condition-case e
(cl-loop for (name . plist) in (doom-package-list)
if (cl-find :private (plist-get plist :modules)
:key #'car)
collect
(if-let (splist (doom-plist-delete (copy-sequence plist)
:modules))
(prin1-to-string (cons name splist))
name))))
name))
(error (format "<%S>" e)))
'("n/a")))
(elpa
,@(or (ignore-errors
(cl-loop for (name . _) in package-alist
collect (format "%s" name)))
,@(or (condition-case e
(progn
(package-initialize)
(cl-loop for (name . _) in package-alist
collect (format "%s" name)))
(error (format "<%S>" e)))
'("n/a"))))))))