Remove duplicated code for startup optimization.

This commit is contained in:
kj 2023-03-24 15:49:28 -04:00
parent 575db84bb4
commit 75cf33384c
2 changed files with 3 additions and 25 deletions

View File

@ -32,6 +32,9 @@
(add-hook 'after-init-hook #'restore-gc-cons-percentage-after-init) (add-hook 'after-init-hook #'restore-gc-cons-percentage-after-init)
(setq gc-cons-percentage (get 'gc-cons-percentage 'value-during-init)) (setq gc-cons-percentage (get 'gc-cons-percentage 'value-during-init))
;; Permitir solo la búsqueda de archivos case sentsitive.
(setq auto-mode-case-fold nil)
;; Recommended by ;; Recommended by
;; https://github.com/raxod502/straight.el#getting-started to prevent ;; https://github.com/raxod502/straight.el#getting-started to prevent
;; pacakge.el stepping on straight's toes. ;; pacakge.el stepping on straight's toes.

25
init.el
View File

@ -9,31 +9,6 @@
;;; Code: ;;; Code:
;; Mejorar el tiempo de carga
(setq auto-mode-case-fold nil)
(unless (or (daemonp) noninteractive)
(let ((old-file-name-handler-alist file-name-handler-alist))
;; If `file-name-handler-alist' is nil, no 256 colors in TUI
;; @see https://emacs-china.org/t/spacemacs-centaur-emacs/3802/839
(setq file-name-handler-alist
(unless (display-graphic-p)
'(("\\(?:\\.tzst\\|\\.zst\\|\\.dz\\|\\.txz\\|\\.xz\\|\\.lzma\\|\\.lz\\|\\.g?z\\|\\.\\(?:tgz\\|svgz\\|sifz\\)\\|\\.tbz2?\\|\\.bz2\\|\\.Z\\)\\(?:~\\|\\.~[-[:alnum:]:#@^._]+\\(?:~[[:digit:]]+\\)?~\\)?\\'" . jka-compr-handler))))
(add-hook 'emacs-startup-hook
(lambda ()
"Recover file name handlers."
(setq file-name-handler-alist
(delete-dups (append file-name-handler-alist
old-file-name-handler-alist)))))))
(setq gc-cons-threshold most-positive-fixnum
gc-cons-percentage 0.5)
(add-hook 'emacs-startup-hook
(lambda ()
"Recover GC values after startup."
(setq gc-cons-threshold 800000
gc-cons-percentage 0.1)))
;; Cargar configuraciones ;; Cargar configuraciones
(add-to-list 'load-path (concat user-emacs-directory "configs")) (add-to-list 'load-path (concat user-emacs-directory "configs"))