A few small Emacs-related updates

1 files changed, 35 insertions, 3 deletions

diff --git a/.emacs.d/early-init.el b/.emacs.d/early-init.el
index 962c724..0060280 100644
--- a/.emacs.d/early-init.el
+++ b/.emacs.d/early-init.el
@@ -1,8 +1,40 @@
-;; No package.el (for emacs 27 and later).  See
-;; https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=24acb31c04b4048b85311d794e600ecd7ce60d3b
-(setq package-enable-at-startup nil)
+;;; early-init.el --- bandali's early init -*- lexical-binding: t -*-
+
+;; Copyright (c) 2019-2025 Amin Bandali <bandali@gnu.org>
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
 (setq load-prefer-newer t)
+
 (menu-bar-mode -1)
 (tool-bar-mode -1)
 (scroll-bar-mode -1)
 (blink-cursor-mode -1)
+
+(defconst b/gc-cons-threshold gc-cons-threshold)
+(defconst b/gc-cons-percentage gc-cons-percentage)
+(defvar b/file-name-handler-alist file-name-handler-alist)
+(setq
+ gc-cons-threshold (* 30 1024 1024) ; 30 MiB
+ gc-cons-percentage 0.6
+ file-name-handler-alist nil)
+
+;; Set them back to their defaults once we're done initializing.
+(defun b/post-init ()
+  "My post-initialization function."
+  (setq
+   gc-cons-threshold b/gc-cons-threshold
+   gc-cons-percentage b/gc-cons-percentage
+   file-name-handler-alist b/file-name-handler-alist))
+(add-hook 'after-init-hook #'b/post-init)