22 lines
761 B
EmacsLisp
22 lines
761 B
EmacsLisp
;;; early-init.el -*- lexical-binding: t; -*-
|
|
|
|
;; Prevent package.el from loading at startup (elpaca handles it)
|
|
(setq package-enable-at-startup nil)
|
|
|
|
;; Disable UI elements early for faster frame rendering
|
|
(setq inhibit-startup-screen t
|
|
inhibit-startup-echo-area-message user-login-name
|
|
initial-scratch-message nil
|
|
initial-major-mode 'fundamental-mode
|
|
frame-inhibit-implied-resize t
|
|
garbage-collection-messages t)
|
|
|
|
;; Temporarily raise GC threshold during startup
|
|
(setq gc-cons-threshold 8000000000
|
|
gc-cons-percentage 0.6)
|
|
(add-hook 'after-init-hook (lambda () (setq gc-cons-threshold 80000000)))
|
|
|
|
;; Disable UI chrome
|
|
(dolist (mode '(menu-bar-mode tool-bar-mode scroll-bar-mode))
|
|
(when (fboundp mode) (funcall mode -1)))
|