From 8f68237e8bd8b0d34a8f18f334daedc79de748da Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Tue, 10 Mar 2020 18:21:27 -0400
Subject: [PATCH] Don't pretty-print doom/info's packages section

Your doom/info should be a compact summary of your config. Pretty
printing the packages listing vertically consumed too much space.
---
 core/autoload/debug.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

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