Improve startup time.

This commit is contained in:
kj 2023-04-18 01:21:36 -04:00
parent 811ff581cf
commit 0b14aeba36
3 changed files with 24 additions and 32 deletions

View File

@ -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,15 +40,13 @@
;; Theme
(use-package dracula-theme
:straight t
:config
:defer t
:hook (after-init . (lambda()
(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))
(defconst private-dir (expand-file-name "private" user-emacs-directory))
(defconst temp-dir (format "%s/cache" private-dir)
"Hostname-based elisp temp directories.")
@ -76,8 +61,6 @@
(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.

View File

@ -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

View File

@ -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