From 160da56845dbc70367d0977ccd6aab78c22f3f2b Mon Sep 17 00:00:00 2001
From: mir <mirmarq428@gmail.com>
Date: Tue, 23 Jan 2024 18:44:23 -0900
Subject: [PATCH] minor speed improvements

---
 init.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/init.el b/init.el
index 72ad6e1..762cf5f 100644
--- a/init.el
+++ b/init.el
@@ -10,6 +10,8 @@
 
 ;;; Code:
 
+(setq gc-cons-threshold (* 8 5000 5000))
+
 (setq load-prefer-newer t) ; why ever use stale code, ever?
 ;; Load the files that I put my settings in...
 (defvar mir-directory
@@ -27,7 +29,8 @@
 
 ;; do the things
 (add-hook 'server-after-make-frame-hook #'mir/graphical-setup)
-(if (display-graphic-p) (mir/graphical-setup))
+(if (display-graphic-p)
+    (add-hook 'elpaca-after-init-hook #'mir/graphical-setup))
 
 ;; Control backups/swapfiles
 (defvar backup-directory
@@ -93,7 +96,7 @@
 (setq debug-on-error nil)
 
 ;; lower gc threshold again
-(setq gc-cons-threshold (* 2 1000 1000))
+(setq gc-cons-threshold (* 2 100 1000))
 ;; (add-function :before #'after-focus-change-function #'garbage-collect)
 
 ;;; init.el ends here