diff options
Diffstat (limited to '.config/emacs/early-init.el')
| -rw-r--r-- | .config/emacs/early-init.el | 28 |
1 files changed, 20 insertions, 8 deletions
diff --git a/.config/emacs/early-init.el b/.config/emacs/early-init.el index a80caf9..671a562 100644 --- a/.config/emacs/early-init.el +++ b/.config/emacs/early-init.el @@ -1,14 +1,7 @@ ;; -*- lexical-binding: t; -*- -; external package manager -(setq package-archives nil) - - -(push '(menu-bar-lines . 0) default-frame-alist) -(push '(tool-bar-lines . 0) default-frame-alist) -(push '(background-color . "#000000") default-frame-alist) - +;;;; display load information + speedups (defun bd/display-startup-time () (message "Emacs loaded in %s with %d garbage collections." (format "%.2f seconds" @@ -19,3 +12,22 @@ (add-hook 'emacs-startup-hook #'bd/display-startup-time) (setq frame-inhibit-implied-resize t) + +;; reduce the frequency of garbage collection during startup +;; by making it happen as little as possible +;; TODO: `most-positive-fixnum' will pressure system memory if used +;; as a permanent value +(setopt gc-cons-threshold most-positive-fixnum + gc-cons-percentage 0.5) + +(add-hook 'emacs-startup-hook + (lambda () + (setopt gc-cons-threshold (* 1024 1024 20) + gc-cons-percentage 0.2))) + + +;;;; avoid-blinding startup +(push '(menu-bar-lines . 0) default-frame-alist) +(push '(tool-bar-lines . 0) default-frame-alist) +(push '(background-color . "#000000") default-frame-alist) +(push '(foreground-color . "#ffffff") default-frame-alist) |