scratch/memrep dd3a881 3/4: Tweak the look

[Lars Ingebrigtsen]

branch: scratch/memrep
commit dd3a8816a13642603afb2eccd2bb17db8d88c499
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Tweak the look
---
 lisp/emacs-lisp/memory-report.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el
index 3497195..370cf31 100644
--- a/lisp/emacs-lisp/memory-report.el
+++ b/lisp/emacs-lisp/memory-report.el
@@ -40,7 +40,7 @@
         (inhibit-read-only t)
         summaries details)
     (erase-buffer)
-    (insert "Estimated Emacs Memory Usage\n\n")
+    (insert (propertize "Estimated Emacs Memory Usage\n\n" 'face 'bold))
     (dolist (report reports)
       (if (listp report)
           (push report summaries)
@@ -51,7 +51,9 @@
                       (car summary))))
     (insert "\n")
     (dolist (detail (nreverse details))
-      (insert detail "\n")))
+      (insert detail "\n"))
+    ;;(add-face-text-property (point-min) (point) 'variable-pitch)
+    )
   (goto-char (point-min)))
 
 (defvar memory-report--type-size (make-hash-table))
@@ -103,7 +105,7 @@
                                           elems)
                               0))
             (with-temp-buffer
-              (insert (format "Object Storage:\n\n"))
+              (insert (propertize "Object Storage\n\n" 'face 'bold))
               (dolist (object (seq-sort (lambda (e1 e2)
                                           (> (cadr e1) (cadr e2)))
                                         data))
@@ -136,7 +138,7 @@
      obarray)
     (list
      (with-temp-buffer
-       (insert "Largest Variables:\n\n")
+       (insert (propertize "Largest Variables\n\n" 'face 'bold))
        (cl-loop for i from 1 upto 20
                 for (symbol . size) in (seq-sort (lambda (e1 e2)
                                                    (> (cdr e1) (cdr e2)))
@@ -219,7 +221,7 @@
     (list (cons "Total Memory Usage In Buffers"
                 (seq-reduce #'+ (mapcar #'cdr buffers) 0))
           (with-temp-buffer
-            (insert "Largest Buffers:\n\n")
+            (insert (propertize "Largest Buffers\n\n" 'face 'bold))
             (cl-loop for i from 1 upto 20
                      for (buffer . size) in (seq-sort (lambda (e1 e2)
                                                         (> (cdr e1) (cdr e2)))