Emacs: collect gc stats for a while

1 files changed, 6 insertions, 11 deletions

diff --git a/user/emacs/init.el b/user/emacs/init.el
index 8cb4b77c..88730f1e 100644
--- a/user/emacs/init.el
+++ b/user/emacs/init.el
@@ -1,17 +1,7 @@
 ;;; init --- user init file  -*- lexical-binding: t; -*-
 (eval '(setq inhibit-startup-echo-area-message "alan"))
 (defvar default-file-name-handler-alist file-name-handler-alist)
-(setq gc-cons-threshold most-positive-fixnum
-      gc-cons-percentage 0.6
-      file-name-handler-alist nil)
-(defun set-max-gc-cons ()
-  (setq gc-cons-threshold most-positive-fixnum))
-(defun set-default-gc-cons ()
-  (setq gc-cons-threshold (* 16 1024 1024)
-        gc-cons-percentage 0.1))
-(add-hook 'minibuffer-setup-hook #'set-max-gc-cons)
-(add-hook 'minibuffer-exit-hook #'set-default-gc-cons)
-(add-hook 'after-init-hook #'set-default-gc-cons)
+(setq file-name-handler-alist nil)
 
 (defun restore-file-name-handler-alist ()
   (setq file-name-handler-alist default-file-name-handler-alist))
@@ -55,6 +45,11 @@
             (when (eq system-type 'darwin)
               (general-unbind "s-x"))))
 
+(use-package emacs-gc-stats
+  :config (progn
+            (setq emacs-gc-stats-gc-defaults 'emacs-defaults)
+            (emacs-gc-stats-mode +1)))
+
 ;;; Styles
 
 ;; I prefer an always-visible cursor.  Feels less distracting.