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

Don't pretty-print doom/info's packages section

Browse source 
Your doom/info should be a compact summary of your config. Pretty
printing the packages listing vertically consumed too much space.
This commit is contained in:
Henrik Lissner 2020-03-10 18:21:27 -04:00
parent 5ae5d80c68
commit 8f68237e8b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
core/autoload/debug.el
View file

@ -158,13 +158,14 @@ markdown and copies it to your clipboard, ready to be pasted into bug reports!"
(progn (progn
(save-excursion (save-excursion
(pp info (current-buffer))) (pp info (current-buffer)))
(when (search-forward "(modules " nil t) (dolist (sym '(modules packages))
(goto-char (match-beginning 0)) (when (re-search-forward (format "^ *\\((%s\\)" sym) nil t)
(cl-destructuring-bind (beg . end) (goto-char (match-beginning 1))
(bounds-of-thing-at-point 'sexp) (cl-destructuring-bind (beg . end)
(let ((sexp (prin1-to-string (sexp-at-point)))) (bounds-of-thing-at-point 'sexp)
(delete-region beg end) (let ((sexp (prin1-to-string (sexp-at-point))))
(insert sexp))))) (delete-region beg end)
(insert sexp))))))
(insert "<details>\n\n```\n") (insert "<details>\n\n```\n")
(dolist (group info) (dolist (group info)
(insert! "%-8s%-10s %s\n" (insert! "%-8s%-10s %s\n"