From 8f47d540ce6b1b56aebfa427e9f7d2d7e44e9bb4 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 21 Jun 2023 12:58:07 +0200
Subject: Emacs: collect gc stats for a while

---
 user/emacs/init.el      | 17 ++++++-----------
 user/settings/emacs.nix |  1 +
 2 files changed, 7 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.
diff --git a/user/settings/emacs.nix b/user/settings/emacs.nix
index 1899784b..84bfae59 100644
--- a/user/settings/emacs.nix
+++ b/user/settings/emacs.nix
@@ -122,6 +122,7 @@ in
         editorconfig
         eglot
         eldoc-box
+        emacs-gc-stats
         esh-buf-stack
         esh-help
         eshell-fringe-status
-- 
cgit 1.4.1