From 0b14aeba36ca3dbcf0dc66acf6613e658c788e34 Mon Sep 17 00:00:00 2001
From: kj <webmaster@outcontrol.net>
Date: Tue, 18 Apr 2023 01:21:36 -0400
Subject: [PATCH] Improve startup time.

---
 configs/init-base.el     | 39 +++++++++++----------------------------
 configs/init-packages.el | 10 ++++++----
 early-init.el            |  7 +++++++
 3 files changed, 24 insertions(+), 32 deletions(-)

diff --git a/configs/init-base.el b/configs/init-base.el
index b789969..fccf2ca 100644
--- a/configs/init-base.el
+++ b/configs/init-base.el
@@ -33,19 +33,6 @@
       (eval-print-last-sexp)))
   (load bootstrap-file nil 'nomessage))
 
-;; Initialize package sources
-;; (require 'package)
-
-;; (setq package-archives '(("melpa" . "https://melpa.org/packages/")
-;;                          ("org" . "https://orgmode.org/elpa/")
-;;                          ("elpa" . "https://elpa.gnu.org/packages/")))
-
-;; (package-initialize)
-
-;; Actualizar repositorios si aún no esta actualizados
-;; (unless package-archive-contents
-;;   (package-refresh-contents))
-
 ;; Instalar use-package si no está instalado
 (straight-use-package 'use-package)
 (setq use-package-always-ensure t)
@@ -53,14 +40,12 @@
 ;; Theme
 (use-package dracula-theme
   :straight t
-  :config
-  (load-theme 'dracula t)
-  (set-face-attribute 'default nil :font "Fira Code Retina" :height 112) ; Font
-)
-
-;; Instalar use-package en caso de no tenerlo
-;;(unless (package-installed-p 'use-package)
-;;  (package-install 'use-package))
+  :defer t
+  :hook (after-init . (lambda()
+                        (load-theme 'dracula t)
+                        (set-face-attribute 'default nil :font "Fira Code Retina" :height 112) ; Font
+                        ))
+  )
 
 (defconst private-dir  (expand-file-name "private" user-emacs-directory))
 (defconst temp-dir (format "%s/cache" private-dir)
@@ -76,13 +61,11 @@
 (setq default-process-coding-system '(utf-8-unix . utf-8-unix))
 
 ;; Emacs customizations
-(menu-bar-mode 0)                               ; Quitar menús.
-(tool-bar-mode 0)                               ; Quitar toolbar.
-(scroll-bar-mode -1)                            ; Quitar scrollbar.
-(tooltip-mode -1)                               ; Disable tooltips.
-(global-display-line-numbers-mode)              ; Mostar número de línea.
-(show-paren-mode 1)                             ; Habilitar resaltado de brackets.
-(pending-delete-mode t)                         ; Cuando selecciono un texto y escribo, el texto se borra (emacs por defecto solo escribe donde está el cursor).
+(scroll-bar-mode -1)                             ; Quitar scrollbar.
+(tooltip-mode -1)                                ; Disable tooltips.
+(global-display-line-numbers-mode)               ; Mostar número de línea.
+(show-paren-mode 1)                              ; Habilitar resaltado de brackets.
+(pending-delete-mode t)                          ; Cuando selecciono un texto y escribo, el texto se borra (emacs por defecto solo escribe donde está el cursor).
 
 (setq-default
  cursor-type 'bar                               ; Usar la barrita como cursor
diff --git a/configs/init-packages.el b/configs/init-packages.el
index 7668d72..bc9b681 100644
--- a/configs/init-packages.el
+++ b/configs/init-packages.el
@@ -51,8 +51,10 @@
 ;; Un bonito y sencillo panel de inicio
 (use-package dashboard
   :straight t
-  :config
+  :defer t
+  :init
   (dashboard-setup-startup-hook)
+  :config
   (setq dashboard-set-file-icons t
         dashboard-set-heading-icons t
         dashboard-set-file-icons t
@@ -311,9 +313,9 @@
   :hook (after-init . winner-mode))
 
 ;; Emacs Start Up Profiler
-;; (use-package esup
-;;   :ensure t
-;;   :straight t)
+(use-package esup
+  :ensure t
+  :straight t)
 
 (provide 'init-packages)
 ;;; init-packages.el ends here
diff --git a/early-init.el b/early-init.el
index e1ef263..ca46023 100644
--- a/early-init.el
+++ b/early-init.el
@@ -32,9 +32,16 @@
 (add-hook 'after-init-hook #'restore-gc-cons-percentage-after-init)
 (setq gc-cons-percentage (get 'gc-cons-percentage 'value-during-init))
 
+;; Color de fondo similar al theme para evitar que se vea al iniciar
+(add-to-list 'default-frame-alist '(background-color . "#282a36"))
+
 ;; Permitir solo la búsqueda de archivos a cargar en la config en case sensitive.
 (setq auto-mode-case-fold nil)
 
+;; Personalizaciones (Tedrían que ir en init-base, pero por optimización las pongo acá)
+(push '(menu-bar-lines . 0) default-frame-alist) ; Quitar menús.
+(push '(tool-bar-lines . 0) default-frame-alist) ; Quitar toolbar.
+
 ;; Iniciar emacs maximizado
 (add-to-list 'initial-frame-alist '(fullscreen . maximized)) ; frame inicial
 ;; (add-to-list 'default-frame-alist '(fullscreen . maximized)) ; Cada frame