oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

(Emacs/init)~gc-cons-threshold is set to max at start of bootup

Browse Source
This commit is contained in:
Aryadev Chavali
2024-05-06 02:36:54 +05:30
parent 14f29b8319
commit 41bf661eed
1 changed files with 44 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Emacs/.config/emacs/init.el
View File

@@ -25,11 +25,10 @@
;; Before doing anything else, make gc-cons-threshold ridiculously ;; Before doing anything else, make gc-cons-threshold ridiculously
;; high. This makes it so we have as few pauses during init as ;; high. This makes it so we have as few pauses during init as
;; possible. ;; possible.
(setq gc-cons-threshold (* 1024 1024 1024)) ; ~1GiB (let ((gc-cons-threshold most-positive-fixnum))
;; Straight
;; Straight (defvar bootstrap-version)
(defvar bootstrap-version) (let ((bootstrap-file
(let ((bootstrap-file
(expand-file-name (expand-file-name
"straight/repos/straight.el/bootstrap.el" "straight/repos/straight.el/bootstrap.el"
(or (bound-and-true-p straight-base-dir) (or (bound-and-true-p straight-base-dir)
@@ -44,7 +43,7 @@
(eval-print-last-sexp))) (eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage)) (load bootstrap-file nil 'nomessage))
(setq straight-disable-native-compile nil (setq straight-disable-native-compile nil
straight-use-package-by-default t straight-use-package-by-default t
use-package-enable-imenu-support t use-package-enable-imenu-support t
use-package-always-demand nil use-package-always-demand nil
@@ -52,33 +51,33 @@
use-package-hook-name-suffix nil use-package-hook-name-suffix nil
use-package-compute-statistics t) use-package-compute-statistics t)
(straight-use-package 'use-package) (straight-use-package 'use-package)
(straight-use-package 'org) (straight-use-package 'org)
(straight-use-package 'no-littering) (straight-use-package 'no-littering)
(setq no-littering-etc-directory (expand-file-name ".config/" user-emacs-directory) (setq no-littering-etc-directory (expand-file-name ".config/" user-emacs-directory)
no-littering-var-directory (expand-file-name ".local/" user-emacs-directory) no-littering-var-directory (expand-file-name ".local/" user-emacs-directory)
custom-file (no-littering-expand-etc-file-name "custom.el")) custom-file (no-littering-expand-etc-file-name "custom.el"))
(load-file custom-file) (load-file custom-file)
;;; Load literate ;;; Load literate
(load-file (concat user-emacs-directory "elisp/literate.el")) (load-file (concat user-emacs-directory "elisp/literate.el"))
;; Compile on Emacs quit ;; Compile on Emacs quit
(add-hook (add-hook
'kill-emacs-hook 'kill-emacs-hook
#'+literate/compile-config) #'+literate/compile-config)
(+literate/load-config) (+literate/load-config)
(when (daemonp) (when (daemonp)
(require 'general) (require 'general)
(require 'evil) (require 'evil)
(require 'notmuch) (require 'notmuch)
(require 'company) (require 'company)
(require 'org) (require 'org)
(require 'eglot)) (require 'eglot)))
(setq gc-cons-threshold (* 100 1024 1024) ; ~100MiB (setq gc-cons-threshold (* 100 1024 1024) ; ~100MiB
read-process-output-max 5242880 ; ~5MiB read-process-output-max 5242880 ; ~5MiB