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

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

@@ -25,60 +25,59 @@
;; 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
(defvar bootstrap-version)
(let ((bootstrap-file
(expand-file-name
"straight/repos/straight.el/bootstrap.el"
(or (bound-and-true-p straight-base-dir)
user-emacs-directory)))
(bootstrap-version 7))
(unless (file-exists-p bootstrap-file)
(with-current-buffer
(url-retrieve-synchronously
"https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
'silent 'inhibit-cookies)
(goto-char (point-max))
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
;; Straight (setq straight-disable-native-compile nil
(defvar bootstrap-version) straight-use-package-by-default t
(let ((bootstrap-file use-package-enable-imenu-support t
(expand-file-name use-package-always-demand nil
"straight/repos/straight.el/bootstrap.el" use-package-always-defer nil
(or (bound-and-true-p straight-base-dir) use-package-hook-name-suffix nil
user-emacs-directory))) use-package-compute-statistics t)
(bootstrap-version 7))
(unless (file-exists-p bootstrap-file)
(with-current-buffer
(url-retrieve-synchronously
"https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
'silent 'inhibit-cookies)
(goto-char (point-max))
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
(setq straight-disable-native-compile nil (straight-use-package 'use-package)
straight-use-package-by-default t (straight-use-package 'org)
use-package-enable-imenu-support t (straight-use-package 'no-littering)
use-package-always-demand nil
use-package-always-defer nil
use-package-hook-name-suffix nil
use-package-compute-statistics t)
(straight-use-package 'use-package) (setq no-littering-etc-directory (expand-file-name ".config/" user-emacs-directory)
(straight-use-package 'org) no-littering-var-directory (expand-file-name ".local/" user-emacs-directory)
(straight-use-package 'no-littering) custom-file (no-littering-expand-etc-file-name "custom.el"))
(setq no-littering-etc-directory (expand-file-name ".config/" user-emacs-directory) (load-file custom-file)
no-littering-var-directory (expand-file-name ".local/" user-emacs-directory)
custom-file (no-littering-expand-etc-file-name "custom.el"))
(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