Big re-write :)
I reordered the code in a more clean an organized way. Also this improves a lot the emacs startup time again, bucause after some updates it becomes a bit slow with the old configuration, so i did it again in a new way.
This commit is contained in:
40
init.el
40
init.el
@ -9,21 +9,47 @@
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Cargar configuraciones
|
||||
;; Optimize Garbage Collection for Startup
|
||||
(setq gc-cons-threshold most-positive-fixnum)
|
||||
|
||||
(add-to-list 'load-path (concat user-emacs-directory "configs"))
|
||||
;; Optimize `auto-mode-alist`
|
||||
(setq auto-mode-case-fold nil)
|
||||
|
||||
(unless (or (daemonp) noninteractive init-file-debug)
|
||||
;; Temporarily suppress file-handler processing to speed up startup
|
||||
(let ((default-handlers file-name-handler-alist))
|
||||
(setq file-name-handler-alist nil)
|
||||
;; Recover handlers after startup
|
||||
(add-hook 'emacs-startup-hook
|
||||
(lambda ()
|
||||
(setq file-name-handler-alist
|
||||
(delete-dups (append file-name-handler-alist default-handlers))))
|
||||
101)))
|
||||
|
||||
;; Función para añadir 'config' a la ruta de carga código elisp de emacs
|
||||
(defun update-load-path (&rest _)
|
||||
"Update the `load-path` to prioritize personal configurations."
|
||||
(push (expand-file-name "configs" user-emacs-directory) load-path))
|
||||
|
||||
;; Nos aseguramos de que ejecute 'update-load-path' antes de 'package-initialize'
|
||||
(advice-add #'package-initialize :after #'update-load-path)
|
||||
|
||||
;; Ahora lo corremos implícitamente
|
||||
(update-load-path)
|
||||
|
||||
;; Paquetes base
|
||||
(require 'init-package)
|
||||
(require 'init-base)
|
||||
(require 'init-utils)
|
||||
(require 'init-ui)
|
||||
(require 'init-editor)
|
||||
(require 'init-highlight)
|
||||
(require 'init-theme)
|
||||
(require 'init-packages)
|
||||
(require 'init-functions)
|
||||
(require 'init-ai)
|
||||
(require 'init-vc)
|
||||
(require 'init-org)
|
||||
(require 'init-eglot)
|
||||
(require 'init-corfu)
|
||||
;; (require 'init-ctags)
|
||||
(require 'init-lsp)
|
||||
(require 'init-completion)
|
||||
(require 'init-minibuffer)
|
||||
;; (require 'init-evil)
|
||||
(require 'init-keys)
|
||||
|
Reference in New Issue
Block a user