Migrate from straight.el to elpaca.

Idk why, I only can try it.

For now the emacs-init-time whas improved.

.gitignore

@@ -25,3 +25,5 @@ workspace/
 /request/
 /smex-items
 /tree-sitter/
+/elpaca/
+/tramp

configs/init-base.el

@@ -20,31 +20,60 @@
     ))
 
 ;; Instalar straight.el (reemplpazando package.el)
-(defvar bootstrap-version)
+(defvar elpaca-installer-version 0.5)
-(let ((bootstrap-file
+(defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
-      (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
+(defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
-      (bootstrap-version 5))
+(defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
-  (unless (file-exists-p bootstrap-file)
+(defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
-    (with-current-buffer
+                              :ref nil
-        (url-retrieve-synchronously
+                              :files (:defaults (:exclude "extensions"))
-        "https://raw.githubusercontent.com/radian-software/straight.el/master/install.el"
+                              :build (:not elpaca--activate-package)))
-        'silent 'inhibit-cookies)
+(let* ((repo  (expand-file-name "elpaca/" elpaca-repos-directory))
-      (goto-char (point-max))
+       (build (expand-file-name "elpaca/" elpaca-builds-directory))
-      (eval-print-last-sexp)))
+       (order (cdr elpaca-order))
-  (load bootstrap-file nil 'nomessage))
+       (default-directory repo))
+  (add-to-list 'load-path (if (file-exists-p build) build repo))
+  (unless (file-exists-p repo)
+    (make-directory repo t)
+    (when (< emacs-major-version 28) (require 'subr-x))
+    (condition-case-unless-debug err
+        (if-let ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*"))
+                 ((zerop (call-process "git" nil buffer t "clone"
+                                       (plist-get order :repo) repo)))
+                 ((zerop (call-process "git" nil buffer t "checkout"
+                                       (or (plist-get order :ref) "--"))))
+                 (emacs (concat invocation-directory invocation-name))
+                 ((zerop (call-process emacs nil buffer nil "-Q" "-L" "." "--batch"
+                                       "--eval" "(byte-recompile-directory \".\" 0 'force)")))
+                 ((require 'elpaca))
+                 ((elpaca-generate-autoloads "elpaca" repo)))
+            (progn (message "%s" (buffer-string)) (kill-buffer buffer))
+          (error "%s" (with-current-buffer buffer (buffer-string))))
+      ((error) (warn "%s" err) (delete-directory repo 'recursive))))
+  (unless (require 'elpaca-autoloads nil t)
+    (require 'elpaca)
+    (elpaca-generate-autoloads "elpaca" repo)
+    (load "./elpaca-autoloads")))
+(add-hook 'after-init-hook #'elpaca-process-queues)
+(elpaca `(,@elpaca-order))
 
 ;; Instalar use-package si no está instalado
-(straight-use-package 'use-package)
+(elpaca elpaca-use-package
-(setq use-package-always-ensure t)
+  ;; Enable :elpaca use-package keyword.
+  (elpaca-use-package-mode)
+  ;; Assume :elpaca t unless otherwise specified.
+  (setq elpaca-use-package-by-default t))
+
+;; Block until current queue processed.
+(elpaca-wait)
 
 ;; Theme
 (use-package dracula-theme
-  :straight t
   :defer t
-  :hook (after-init . (lambda()
+  :init
   (load-theme 'dracula t)
+  :config
   (set-face-attribute 'default nil :font "Fira Code Retina" :height 112) ; Font
-                        ))
   )
 
 (defconst private-dir  (expand-file-name "private" user-emacs-directory))
@@ -119,9 +148,7 @@
                   (setup-daemon))))
   (message "Corriendo en modo normal."))
 
-;(add-hook 'window-setup-hook 'toggle-frame-maximized t)
+(add-hook 'elpaca-after-init-hook (lambda () (load custom-file 'noerror)))
-
-(load custom-file)
 
 (provide 'init-base)
 ;;; init-base.el ends here

configs/init-corfu.el

@@ -17,7 +17,7 @@
 
 (use-package corfu
   :defer t
-  :straight (corfu :files (:defaults "extensions/*")
+  :elpaca (:files (:defaults "extensions/*")
                    :includes (corfu-info corfu-history))
   :hook ((after-init . global-corfu-mode)
          (corfu-mode . corfu-popupinfo-mode))
@@ -38,14 +38,13 @@
 
 (use-package orderless
   :defer t
-  :straight t
   :config
   (setq completion-styles '(orderless basic)
         completion-category-defaults nil
         completion-category-overrides '((file (styles partial-completion)))))
 
 (use-package cape
-  :straight (cape :type git :host github :repo "minad/cape")
+  :elpaca (:host github :repo "minad/cape")
   :after corfu
   :init
   ;; (advice-add 'eglot-completion-at-point :around #'cape-wrap-buster)
@@ -58,7 +57,7 @@
 ;; Hacer que corfu funcione en la terminal
 (unless (display-graphic-p)
   (use-package corfu-terminal
-    :straight (corfu-terminal :type git :repo "https://codeberg.org/akib/emacs-corfu-terminal.git")
+    :elpaca (:repo "https://codeberg.org/akib/emacs-corfu-terminal.git")
     :config
     (corfu-terminal-mode +1))
   )
@@ -66,7 +65,6 @@
 ;; Iconos en corfu
 (use-package kind-icon
   :ensure t
-  :straight t
   :after corfu
   :custom
   (kind-icon-default-face 'corfu-default) ; to compute blended backgrounds correctly

configs/init-ctags.el

@@ -19,7 +19,6 @@
 (use-package citre
   :defer t
   :ensure t
-  :straight t
   :diminish
   :bind (("C-x c ." . citre-jump)
          ("C-x c ," . citre-jump-back)

configs/init-eglot.el

@@ -31,7 +31,7 @@
 
 (use-package eglot
   :defer t
-  :straight (:type built-in)
+  :elpaca nil
   :hook ((css-mode . eglot-ensure)
          (html-mode . eglot-ensure)
          (php-mode . eglot-ensure)
@@ -50,7 +50,6 @@
 ;; Emmet (mientras veo como hacer funcionar emmet-ls)
 (use-package emmet-mode
   :defer t
-  :straight t
   :hook
   ((html-mode . emmet-mode)
    (web-mode . emmet-mode))
@@ -59,7 +58,7 @@
 ;; Revisar por errores en el código
 (use-package flymake
   :defer t
-  :straight (:type built-in)
+  :elpaca nil
   :hook (prog-mode . (lambda ()
                        (unless (derived-mode-p 'makefile-mode)
                          (flymake-mode))))
@@ -70,7 +69,7 @@
 ;; Mostar los errores de flymake en un popup-tip
 (use-package flymake-diagnostic-at-point
   :defer t
-  :straight t
+  :elpaca t
   :after flymake
   :hook (flymake-mode . flymake-diagnostic-at-point-mode))
 

configs/init-evil.el

@@ -14,7 +14,6 @@
 ;;; Code:
 (use-package evil
   :defer t
-  :straight t
   :hook (after-init . evil-mode)
   :config
   ;; Configuraciones básicas

configs/init-minibuffer.el

@@ -13,7 +13,6 @@
 ;; Autocompletado y sugerencias para el minibuffer
 (use-package counsel
   :defer t
-  :straight t
   :diminish ivy-mode counsel-mode
   :bind (("C-s"    . swiper-isearch)
          ("C-r"    . counsel-rg)
@@ -99,7 +98,6 @@
 ;; Integración entre projectile y counsel
 (use-package counsel-projectile
   :defer t
-  :straight t
   :bind*
   ("C-x p" . counsel-projectile)
   :hook (counsel-mode . counsel-projectile-mode)
@@ -108,7 +106,6 @@
 ;; Autocompletado, sugerencias y menú de búsqueda mejorados (este paquete incluye counsel y swiper)
 (use-package ivy
   :defer t
-  :straight t
   :hook (after-init . ivy-mode)
   :config
   (setq ivy-use-virtual-buffers nil))
@@ -116,7 +113,6 @@
 ;; Ivy pero con más detalles en pantalla
 (use-package ivy-rich
   :defer t
-  :straight t
   :ensure t
   :hook ((counsel-projectile-mode . ivy-rich-mode) ; MUST after `counsel-projectile'
          (ivy-rich-mode . ivy-rich-project-root-cache-mode)
@@ -131,19 +127,16 @@
 ;; nerd-icons en ivy
 (use-package nerd-icons-ivy-rich
   :defer t
-  :straight t
   :ensure t
   :hook (after-init . nerd-icons-ivy-rich-mode))
 
 ;; nerd-icons en ibuffer
 (use-package nerd-icons-ibuffer
-  :straight t
   :defer t
   :hook (ibuffer-mode . nerd-icons-ibuffer-mode))
 
 ;; Ordenar los comandos usados en M-x (por uso y luego alfabéticamente)
 (use-package smex
-  :straight t
   :defer t
   :after (counsel))
 

configs/init-org.el

@@ -50,7 +50,7 @@
 ;; org-mode
 (use-package org
   :defer t
-  :straight (:type built-in)
+  :elpaca nil
   :bind (("C-c a" . org-agenda)
          ("C-c c" . org-capture))
   :hook
@@ -139,24 +139,23 @@
             (buffer-substring-no-properties (point) (point-max)))
         (message "Download of image \"%s\" failed" link)
         nil)))
+  )
 
+;; Org-yt para soportar embebidos.
+(use-package org-yt
+  :elpaca (:host github :repo "TobiasZawada/org-yt")
+  :config
   (org-link-set-parameters "http"  :image-data-fun #'org-http-image-data-fn)
   (org-link-set-parameters "https" :image-data-fun #'org-http-image-data-fn)
-
-  (use-package org-yt
-    :defer t
-    :straight (org-yt :type git :host github :repo "TobiasZawada/org-yt"))
   )
 
 ;; Los head "*" se ven como puntos
 (use-package org-bullets
   :defer t
-  :straight t
   :hook
   (org-mode . org-bullets-mode))
 
 (use-package visual-fill-column
-  :straight t
   :defer t
   :after (org)
   :config
@@ -171,7 +170,6 @@
 ;; Segundo cerebro: Base de conocimientos en formato Zettelkasten
 (use-package org-roam
   :defer t
-  :straight t
   :ensure t
   :bind (("<f4>" . org-roam-node-insert)
          ("<f3>" . org-roam-node-find))
@@ -187,7 +185,6 @@
 ;; Interface web para navegar en mi base de conocimientos.
 (use-package org-roam-ui
   :defer t
-  :straight t
   :ensure t
   :config
   (setq org-roam-ui-sync-theme t
@@ -197,13 +194,11 @@
 
 ;; Continúa el formato de la lista cuando presionas enter.
 (use-package org-autolist
-  :straight t
   :ensure t
   :hook (org-mode . org-autolist-mode))
 
 ;; Emojis en lugar de letras para las prioridades en org-mode.
 (use-package org-fancy-priorities
-  :straight t
   :defer t
   :ensure t
   :hook (org-mode . org-fancy-priorities-mode)
@@ -216,7 +211,6 @@
 
 ;; Org mode en modo presentación
 (use-package org-present
-  :straight t
   :defer t
   :after (org)
   :config

configs/init-packages.el

@@ -17,7 +17,6 @@
 ;; Intercamiar buffers de lugar
 (use-package buffer-move
   :defer t
-  :straight t
   :bind (("M-S-<up>" . buf-move-up)
          ("M-S-<down>" . buf-move-down)
          ("M-S-<left>" . buf-move-left)
@@ -26,19 +25,16 @@
 
 ;; Mostrar la ayuda de eldoc/documentación en un childframe
 (use-package eldoc-box
-  :straight t
   :defer t
   :bind ("<f1>" . eldoc-box-help-at-point))
 
 ;; Seleccionar por regiones (similar a mark-sexp, pero toma en cuenta hacia atrás del cursor también)
 (use-package expand-region
-  :straight t
   :defer t
   :bind ("C-+" . er/expand-region))
 
 ;; Major mode para archivos CSV
 (use-package csv-mode
-  :straight t
   :defer t
   :hook ((csv-mode . csv-align-mode)
          (csv-mode . csv-header-line))
@@ -46,7 +42,6 @@
 
 ;; Un bonito y sencillo panel de inicio
 (use-package dashboard
-  :straight t
   :defer t
   :init
   (dashboard-setup-startup-hook)
@@ -66,7 +61,6 @@
 
 ;; Sidebar a la derecha con los archivos
 (use-package dired-sidebar
-  :straight t
   :defer t
   :hook (dired-mode . hl-line-mode)
   :ensure t
@@ -81,18 +75,16 @@
 ;; Mover líneas o regiones
 (use-package drag-stuff
   :defer t
-  :straight t
   :hook
-  (after-init . drag-stuff-global-mode)
+  (elpaca-after-init . drag-stuff-global-mode)
   :config
   (drag-stuff-define-keys))
 
 ;; La línea bonita esa de abajo
 (use-package doom-modeline
   :defer t
-  :straight t
   :ensure t
-  :hook (after-init . doom-modeline-mode)
+  :hook (elpaca-after-init . doom-modeline-mode)
   :config
   (setq doom-modeline-project-detection 'auto
         doom-modeline-buffer-file-name-style 'relative-from-project
@@ -104,21 +96,19 @@
 ;; Emparejamiento automático de comillas, paréntesis, corchetes y llaves
 (use-package electric-pair
   :defer t
-  :straight (:type built-in)
+  :elpaca nil
-  :hook (after-init . electric-pair-mode)
+  :hook (elpaca-after-init . electric-pair-mode)
   :config
   (setq electric-pair-delete-adjacent-pairs nil))
 
 ;; Git Gutter - Marca a la izq. si una linea ha sido agregada, editada o eliminada desde el último commit.
 (use-package git-gutter
   :defer t
-  :straight t
   :hook
-  (after-init . global-git-gutter-mode))
+  (elpaca-after-init . global-git-gutter-mode))
 
 ;; Resalta los escapes de secuencia
 (use-package highlight-escape-sequences
-  :straight t
   :defer t
   :hook (prog-mode . hes-mode)
   :config
@@ -141,7 +131,6 @@
 
 ;; Mostrar lo que se está presionando en pantalla
 (use-package keypression
-  :straight t
   :defer t
   :config
   (setq keypression-use-child-frame t
@@ -157,23 +146,19 @@
 
 ;; Generador automatizado de archivos de licencia
 (use-package license-templates
-  :straight t
   :defer t)
 
 ;; Magia para git
 (use-package magit
-  :defer t
+  :defer t)
-  :straight t)
 
 ;; Modo markdown
 (use-package markdown-mode
-  :defer t
+  :defer t)
-  :straight t)
 
 ;; Multiple vterm
 (use-package multi-vterm
   :defer t
-  :straight t
   :bind* (("<f5>" . multi-vterm-dedicated-toggle)
           ("C-x tt" . multi-vterm-dedicated-toggle)
           ("C-x tf" . multi-vterm)
@@ -184,19 +169,16 @@
 
 ;; Iconos bonitos para varias cosas
 (use-package nerd-icons
-  :straight t
   :defer t)
 
 ;; Usar nerd-icons en dired
 (use-package nerd-icons-dired
-  :straight t
   :defer t
   :hook (dired-mode . nerd-icons-dired-mode))
 
 ;; Mecanografía
 (use-package speed-type
   :defer t
-  :straight t
   :diminish
   :config
   (setq speed-type-gb-book-list '(66867 66866 66591 57303)
@@ -205,13 +187,11 @@
 
 ;; Des-minifica / ordena el código
 (use-package prettier
-  :defer t
+  :defer t)
-  :straight t)
 
 ;; Paquete para manejo de proyectos
 (use-package projectile
   :defer t
-  :straight t
   :bind ("C-c p" . projectile-command-map)
   :diminish projectile-mode
   :custom ((projectile-completion-system 'ivy))
@@ -260,7 +240,7 @@
 ;; Recentf - Guarda registro de los archivos abiertos recientemente
 (use-package recentf
   :defer t
-  :straight t
+  :elpaca nil
   :bind ("C-x C-r" . recentf-open-files)
   :config
   (setq recentf-save-file
@@ -270,9 +250,8 @@
 ;; Busqueda rápida con ripgrep
 (use-package rg
   :defer t
-  :straight t
   :defines projectile-command-map
-  :hook (after-init . rg-enable-default-bindings)
+  :hook (elpaca-after-init . rg-enable-default-bindings)
   :bind (:map rg-global-map
          ("c" . rg-dwim-current-dir)
          ("f" . rg-dwim-current-file)
@@ -287,8 +266,8 @@
 
 ;; Guardar la posición del cursor en un archivo para volver allí cuando se lo vuelva a abrir.
 (use-package saveplace
-  :straight t
+  :elpaca nil
-  :hook (after-init . save-place-mode)
+  :hook (elpaca-after-init . save-place-mode)
   :config
   (setq save-place-file (locate-user-emacs-file (concat temp-dir "/places"))))
 
@@ -296,13 +275,12 @@
 (use-package silicon
   :ensure t
   :defer t
-  :straight (silicon :type git :host github :repo "iensu/silicon-el"))
+  :elpaca (:host github :repo "iensu/silicon-el"))
 
 ;; Mejorando el scroll
 (use-package smooth-scrolling
   :defer t
-  :straight t
+  :hook (elpaca-after-init . smooth-scrolling-mode)
-  :hook (after-init . smooth-scrolling-mode)
   :config
   (setq mouse-wheel-scroll-amount
         '(8 ((shift) . 1) ((control) . nil)))    ; Cambia el scroll a 8 líneas a la vez, 1 cuando se preciona SHIFT y saltos de página cuando presionas CTRL
@@ -312,8 +290,7 @@
 ;; Ayuda a manipular los archivos con líneas demasiado largas
 (use-package so-long
   :defer t
-  :straight (:type built-in)
+  :elpaca nil
-  ;; :hook (after-init . global-so-long-mode)
   :bind (:map so-long-mode-map
               ("C-s"    . isearch-forward)
               ("C-r"    . isearch-backward))
@@ -332,7 +309,7 @@
 ;; Tree-sitter :)
 (use-package treesit
   :defer t
-  :straight (:type built-in)
+  :elpaca nil
   :commands (treesit-install-language-grammar nf/treesit-install-all-languages)
   :config
   (setq treesit-language-source-alist
@@ -367,38 +344,37 @@
 
 ;; Cuando presionas enter en un bloque de comentario sigue el estilo del bloque.
 (use-package vs-comment-return
-  :straight (vs-comment-return :type git :host github :repo "emacs-vs/vs-comment-return")
+  :elpaca (:host github :repo "emacs-vs/vs-comment-return")
   :defer t
   :hook (prog-mode . vs-comment-return-mode)
   )
 
 ;; Mostrar el último commit que modificó la linea actual
 (use-package vc-msg
-  :straight t
   :defer t
   :bind (("C-c v" . vc-msg-show)
          ("C-c C-v" . vc-msg-show))
   )
 
 ;; Terminal
-(use-package vterm :ensure t :defer t :straight t)
+(use-package vterm
+  :ensure t
+  :defer t)
 
 ;; Cuando iniicias un atajo de teclas te muestra las posibilidades
 (use-package which-key
   :defer t
-  :straight t
+  :hook (elpaca-after-init . which-key-mode))
-  :hook (after-init . which-key-mode))
 
 ;; Restaurar el estado de los frames
 (use-package winner
+  :elpaca nil
   :defer t
-  :straight t
+  :hook (elpaca-after-init . winner-mode))
-  :hook (after-init . winner-mode))
 
 ;; Emacs Start Up Profiler
 (use-package esup
-  :ensure t
+  :defer t)
-  :straight t)
 
 (provide 'init-packages)
 ;;; init-packages.el ends here

configs/lang-go.el

@@ -10,7 +10,6 @@
 ;;; Code:
 
 (use-package go-mode
-  :straight t
   :defer t)
 
 (provide 'lang-go)

configs/lang-html.el

@@ -10,7 +10,6 @@
 ;;; Code:
 
 (use-package web-mode
-  :straight t
   :defer t
   :config
   (setq web-mode-markup-indent-offset 2
@@ -23,7 +22,7 @@
 
 
 (use-package auto-rename-tag
-  :straight t (auto-rename-tag :type git :host github :repo "jcs-elpa/auto-rename-tag")
+  :elpaca (:host github :repo "jcs-elpa/auto-rename-tag")
   :defer t
   :hook ((html-mode . auto-rename-tag-mode)
          (web-mode  . auto-rename-tag-mode))

configs/lang-js.el

@@ -11,7 +11,7 @@
 
 (use-package js
   :defer t
-  :straight t
+  :elpaca nil
   :mode
   ("\\.js$" . js-mode)
   :hook
@@ -22,7 +22,6 @@
 ;; json-mode
 (use-package json-mode
   :defer t
-  :straight t
   :ensure t
   :mode
   ("\\.json$" . json-mode)

configs/lang-php.el

@@ -11,7 +11,6 @@
 
 (use-package php-mode
   :defer t
-  :straight t
   :bind ("C-c d b" . kj/php-doc-block)
   :config
   (defun kj/php-doc-block ()
@@ -28,7 +27,7 @@
   )
 
 (use-package php-doc-block
-  :straight (php-doc-block :type git :host github :repo "moskalyovd/emacs-php-doc-block")
+  :elpaca (:host github :repo "moskalyovd/emacs-php-doc-block")
   )
 
 (provide 'lang-php)

configs/lang-rust.el

@@ -11,21 +11,9 @@
 
 (use-package rust-mode
   :defer t
-  :straight t
   :ensure t
   :config
   (setq rust-format-on-save t))
 
-;; Rustic es necesario solamente si se usa lsp-mode + flycheck.
-;; (use-package rustic
-;;   :defer t
-;;   :straight t
-;;   :ensure t
-;;   :config
-;;   ;;(setq rustic-lsp-server 'rls)
-;;   (setq rustic-lsp-client 'lsp)
-;;   ;;(setq rustic-lsp-client nil)
-;;   (push 'rustic-clippy flycheck-checkers))
-
 (provide 'lang-rust)
 ;;; lang-rust.el ends here

early-init.el

@@ -33,7 +33,7 @@
 (setq gc-cons-percentage (get 'gc-cons-percentage 'value-during-init))
 
 ;; Color de fondo similar al theme para evitar que se vea blanco al iniciar
-(add-to-list 'default-frame-alist '(background-color . "#282a36"))
+;; (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)
@@ -46,6 +46,14 @@
 ;; (add-to-list 'initial-frame-alist '(fullscreen . maximized)) ; frame inicial
 ;; (add-to-list 'default-frame-alist '(fullscreen . maximized)) ; Cada frame
 (add-hook 'window-setup-hook 'toggle-frame-maximized t) ; Hacerlo mediante window-setup-hook (se maximiza al terminar de cargar la ventana)
+(push '(ns-transparent-titlebar . t) default-frame-alist)
+
+;; Resizing the Emacs frame can be a terribly expensive part of changing the
+;; font. By inhibiting this, we easily halve startup times with fonts that are
+;; larger than the system default.
+(setq frame-inhibit-implied-resize t
+      frame-resize-pixelwise t)
+
 
 ;; Recommended by
 ;; https://github.com/raxod502/straight.el#getting-started to prevent