Add macher package

enable global subword mode by default.
disable automatic PHP CS Fixer on save
2025-09-08 10:24:01 -03:00 · 2025-09-08 09:45:54 -03:00 · 2025-09-08 09:21:24 -03:00 · 2025-09-08 09:20:38 -03:00 · 2025-09-08 09:17:58 -03:00 · 2025-09-08 09:16:13 -03:00
34 changed files with 2121 additions and 1080 deletions
--- a/.gitignore
+++ b/.gitignore
@ -27,3 +27,13 @@ workspace/
 /tree-sitter/
 /elpaca/
 /tramp
+/nov-places
+/devdocs/
+/.mc-lists.el
+/eshell/
+/.emacs.desktop
+/.tutor/
+/intelephense/
+/auto-save-list/
+/*.eld
+/.custom.el
--- a/59
+++ b/59
@ -0,0 +1,59 @@
+;; -*- coding: utf-8; lexical-binding: t -*-
+(define-abbrev-table 'mhtml-mode-abbrev-table
+  '(
+    ("doc" "<!DOCTYPE html>
+<html>
+  <head>
+    <meta charset=\"UTF-8\"/>
+    <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">
+    <title>Document</title>
+  </head>
+  <body>
+  </body>
+</html>" nil :count 1)
+    ("doctype" "<!DOCTYPE html>" nil :count 0)
+   ))
+
+(define-abbrev-table 'php-ts-mode-abbrev-table
+  '(
+    ("bwtest" "use Tests\\TestCase;
+
+class Test extends TestCase
+{
+    /**
+     * @group
+     * @group
+     * @test
+     */
+    public function Service()
+    {
+        /**
+         * Preparing
+         */
+
+        /**
+         * Actions
+         */
+
+        /**
+         * Asserts
+         */
+    }
+}" nil :count 6)
+   ))
+
+(define-abbrev-table 'web-mode-abbrev-table
+  '(
+    ("doc" "<!DOCTYPE html>
+<html>
+  <head>
+    <meta charset=\"UTF-8\"/>
+    <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">
+    <title>Document</title>
+  </head>
+  <body>
+  </body>
+</html>" nil :count 10)
+    ("doctype" "<!DOCTYPE html>" nil :count 2)
+   ))
+
--- a/configs/init-ai.el
+++ b/configs/init-ai.el
@ -0,0 +1,56 @@
+;;; init-ai.el --- Configuración de inteligencias artificales  -*- lexical-binding: t -*-
+
+;; Author: kj <webmaster@outcontrol.net>
+;; URL: https://git.kj2.me/kj/confi-emacs-actual
+
+;;; Commentary:
+
+;; Configuración para Inteligencia artifical en Emacs.
+
+;;; Code:
+
+;; Cliente LLM (ollama, chatgpt, gemini, etc.)
+(use-package gptel
+  :config
+  ;; (setq gptel-model 'gemma3:4b
+  ;;       gptel-backend (gptel-make-ollama "Ollama"
+  ;;                       :host "localhost:11434"
+  ;;                       :stream t
+  ;;                       :models '("mistral:latest"
+  ;;                                 "deepseek-r1:1.5b"
+  ;;                                 "deepcoder"
+  ;;                                 "dolphin-llama3:latest"
+  ;;                                 "gemma3:4b"
+  ;;                                 "llava:latest"))
+        gptel-default-mode 'org-mode
+        gptel-prompt-prefix-alist
+        '((markdown-mode . "# User\n\n")
+          (org-mode . "* User\n\n")
+          (text-mode . "# User\n\n"))
+        gptel-response-prefix-alist
+        '((markdown-mode . "# AI\n\n")
+          (org-mode . "* AI\n\n")
+          (text-mode . "# AI\n\n"))
+        gptel-directives
+        '((default . "You are a large language model living in Emacs and a helpful assistant. Respond concisely in Spanish."))
+        )
+  (setopt gptel-include-reasoning nil)) ;; Mantener hasta resolver: https://github.com/ragnard/gptel-magit/issues/8
+
+(use-package copilot
+  :bind (("M-<return>" . copilot-complete)
+         :map copilot-completion-map
+         ("C-g" . 'copilot-clear-overlay)
+         ("C-<return>" . 'copilot-accept-completion)
+         ("C-<tab>" . 'copilot-accept-completion-by-word)))
+
+(use-package gptel-magit
+  :ensure t
+  :hook (magit-mode . gptel-magit-install))
+
+(use-package macher
+  :ensure (:host github :repo "kmontag/macher")
+  :custom
+  (macher-action-buffer-ui 'org))
+
+(provide 'init-ai)
+;;; init-ai.el ends here
--- a/configs/init-base.el
+++ b/configs/init-base.el
@ -6,10 +6,11 @@
 ;;; Commentary:

 ;; Configuración general de Emacs.
-;; No incluye paquetes/extensiones, solo configuraciones generales.

 ;;; Code:

+(require 'init-functions)
+
 ;; Native compilation
 (when (and (fboundp 'native-comp-available-p)
           (native-comp-available-p))
@ -19,136 +20,114 @@
    (setq package-native-compile t)
    ))

-;; Instalar straight.el (reemplpazando package.el)
-(defvar elpaca-installer-version 0.5)
-(defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
-(defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
-(defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
-(defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
-                              :ref nil
-                              :files (:defaults (:exclude "extensions"))
-                              :build (:not elpaca--activate-package)))
-(let* ((repo  (expand-file-name "elpaca/" elpaca-repos-directory))
-       (build (expand-file-name "elpaca/" elpaca-builds-directory))
-       (order (cdr elpaca-order))
-       (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))
+;; Custom configs file
+(setq custom-file (concat user-emacs-directory ".custom.el"))

-;; Instalar use-package si no está instalado
-(elpaca elpaca-use-package
-  ;; 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
-  :defer t
+;; Garbage Collector Magic Hack
+(use-package gcmh
+  :diminish
+  :hook (emacs-startup . gcmh-mode)
  :init
-  (load-theme 'dracula t)
-  :config
-  (set-face-attribute 'default nil :font "Fira Code Retina" :height 112) ; Font
-  )
+  (setq gcmh-idle-delay 'auto
+        gcmh-auto-idle-delay-factor 10
+        gcmh-high-cons-threshold #x1000000)) ; 16MB
+
+;; Guardar la posición del cursor en un archivo para volver allí cuando se lo vuelva a abrir.
+(use-package saveplace
+  :ensure nil
+  :hook (after-init . save-place-mode))
+
+;; Recentf - Guarda registro de los archivos abiertos recientemente
+(use-package recentf
+  :ensure nil
+  :bind (("C-x C-r" . recentf-open-files))
+  :hook (after-init . recentf-mode)
+  :init (setq recentf-max-saved-items 300
+              recentf-exclude
+              '("\\.?cache" ".cask" "url" "COMMIT_EDITMSG\\'" "bookmarks"
+                "\\.\\(?:gz\\|gif\\|svg\\|png\\|jpe?g\\|bmp\\|xpm\\)$"
+                "\\.?ido\\.last$" "\\.revive$" "/G?TAGS$" "/.elfeed/"
+                "^/tmp/" "^/var/folders/.+$" "^/ssh:" "/persp-confs/"
+                (lambda (file) (file-in-directory-p file package-user-dir))))
+  :config
+  (push (expand-file-name recentf-save-file) recentf-exclude)
+  (add-to-list 'recentf-filename-handlers #'abbreviate-file-name))
+
+;; Guarda el historial del minibuffer
+(use-package savehist
+  :ensure nil
+  :hook (after-init . savehist-mode)
+  :init (setq enable-recursive-minibuffers t ; Allow commands in minibuffers
+              history-length 1000
+              savehist-additional-variables '(mark-ring
+                                              global-mark-ring
+                                              search-ring
+                                              regexp-search-ring
+                                              extended-command-history)
+              savehist-autosave-interval 300))
+
+;; Misc.
+(use-package simple
+  :ensure nil
+  :hook ((after-init . size-indication-mode)
+         (before-save . delete-trailing-whitespace)
+         (text-mode . visual-line-mode))
+  :init
+  (setq column-number-mode t
+        line-number-mode t
+        kill-whole-line t               ; Kill line including '\n' (C-k)
+        line-move-visual nil
+        track-eol t                     ; Keep cursor at end of lines. Require line-move-visual is nil.
+        set-mark-command-repeat-pop t)  ; Repeating C-SPC after popping mark pops it again
+  ;; Visualize TAB, (HARD) SPACE, NEWLINE
+  (setq-default show-trailing-whitespace nil ; Don't show trailing whitespace by default
+                cursor-type 'bar)            ; Usar la barrita como cursor
+  (setq show-trailing-whitespace t))

-(defconst private-dir  (expand-file-name "private" user-emacs-directory))
-(defconst temp-dir (format "%s/cache" private-dir)
-  "Hostname-based elisp temp directories.")

 ;; UTF-8 please
-(set-charset-priority 'unicode)
-(setq locale-coding-system   'utf-8)   ; pretty
-(set-terminal-coding-system  'utf-8)   ; pretty
-(set-keyboard-coding-system  'utf-8)   ; pretty
-(set-selection-coding-system 'utf-8)   ; please
-(prefer-coding-system        'utf-8)   ; with sugar on top
-(setq default-process-coding-system '(utf-8-unix . utf-8-unix))
+(when (fboundp 'set-charset-priority)
+  (set-charset-priority 'unicode))
+(set-language-environment "UTF-8")
+(set-default-coding-systems 'utf-8)
+(set-buffer-file-coding-system 'utf-8)
+(set-clipboard-coding-system 'utf-8)
+(set-file-name-coding-system 'utf-8)
+(set-keyboard-coding-system 'utf-8)
+(set-next-selection-coding-system 'utf-8)
+(set-selection-coding-system 'utf-8)
+(set-terminal-coding-system 'utf-8)
+(setq locale-coding-system 'utf-8)
+(setq system-time-locale "C")

-;; Emacs customizations
-(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).
-;; (global-hl-line-mode)                           ; Resaltar línea actual por defecto.
-(setq use-short-answers t)                      ; Usar respuesta cortas (y/n) en lugar de las largas (yes/no)
-(setq-default
- cursor-type 'bar                               ; Usar la barrita como cursor
- cursor-in-non-selected-windows nil             ; Desaparecer el cursor en frames no activos.
- indent-tabs-mode nil                           ; Cambiar tabs por espacios.
- inhibit-startup-message t                      ; Eliminar el mensaje de inicio.
- )
-(setq
- custom-file (concat private-dir "/.custom.el") ; Cabiar la ruta del código que se genera al isntalar un theme o package
- ac-ignore-case nil                             ; Desactivar el autocapitalizado.
- ac-disable-faces nil                           ; Auto-complete hablitado incluso entre comillas (fuente: https://bit.ly/3a9wCB4).
- tags-revert-without-query 1                    ; Recargar tags (ctags) sin pedir confirmación.
- )
-;; Leve transparencia en emacs por defecto.
-;; (set-frame-parameter nil 'alpha-background 95)
+;; Misc
+(if (boundp 'use-short-answers)
+    (setq use-short-answers t)
+  (fset 'yes-or-no-p 'y-or-n-p))
+(setq-default major-mode 'text-mode
+              fill-column 80
+              tab-width 4
+              indent-tabs-mode nil)     ; Permanently indent with spaces, never with TABs

-;; Backups enabled, use nil to disable
-(setq
- history-length                     1000
- backup-inhibited                   nil
- make-backup-files                  nil
- auto-save-default                  nil
- auto-save-list-file-name           (concat temp-dir "/autosave")
- create-lockfiles                   nil
- backup-directory-alist            `((".*" . ,(concat temp-dir "/backup/")))
- auto-save-file-name-transforms    `((".*" ,(concat temp-dir "/auto-save-list/") t)))
+(setq visible-bell t
+      inhibit-compacting-font-caches t  ; Don’t compact font caches during GC
+      delete-by-moving-to-trash t       ; Deleting files go to OS's trash folder
+      make-backup-files nil             ; Forbide to make backup files
+      auto-save-default nil             ; Disable auto sav
+      inhibit-splash-screen t
+      uniquify-buffer-name-style 'post-forward-angle-brackets ; Show path if names are same
+      adaptive-fill-regexp "[ t]+|[ t]*([0-9]+.|*+)[ t]*"
+      adaptive-fill-first-line-regexp "^* *$"
+      sentence-end "\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*"
+      sentence-end-double-space nil
+      word-wrap-by-category t)

-;; Configuración cuando es un server
-(defun setup-daemon ()
-  "Carga la configuración del modo daemon."
-  (message "Corriendo en modo daemon.")
-  (set-face-attribute 'default nil :font "Fira Code Retina" :height 112)
-
-  ;; Abrir primero el dashboard
-  (setq initial-buffer-choice (lambda ()
-                                (get-buffer "*dashboard*")
-                                (dashboard-refresh-buffer)))
-
-  ;; Cerrar buffers al cerrar emacsclient
-  (add-hook 'delete-frame-functions
-            (lambda (frame)
-              (mapc 'kill-buffer (delq (get-buffer "*dashboard*") (buffer-list)))
-              ))
-  )
-
-(if (daemonp)
-    (add-hook 'after-make-frame-functions
-              (lambda (frame)
-                (with-selected-frame frame
-                  (setup-daemon))))
-  (message "Corriendo en modo normal."))
-
-(add-hook 'elpaca-after-init-hook (lambda () (load custom-file 'noerror)))
+;; Async
+(use-package async
+  :functions (async-bytecomp-package-mode dired-async-mode)
+  :init
+  (async-bytecomp-package-mode 1)
+  (dired-async-mode 1))

 (provide 'init-base)
 ;;; init-base.el ends here
--- a/configs/init-completion.el
+++ b/configs/init-completion.el
@ -0,0 +1,135 @@
+;;; init-completion.el --- Autocompletado con corfu  -*- lexical-binding: t -*-
+
+;; Author: kj <webmaster@outcontrol.net>
+;; URL: https://git.kj2.me/kj/confi-emacs-actual
+
+;;; Commentary:
+
+;; Archivo de configuración específico para el paquete corfu.
+;; Corfu, de manera resumida, es el que nos muestra el autocompletado
+;; en Emacs, tanto para código como para otro tipo de textos.
+;;
+;; Este paquete viene a ser una alternativa a Company, por lo
+;; que no se deberían activar los 2 al mismo tiempo.
+
+
+;;; Code:
+
+;; childframe con los cantidatos de autocompletado
+(use-package corfu
+  :ensure (:files (:defaults "extensions/*")
+                  :includes (corfu-info corfu-history))
+  :hook ((elpaca-after-init . global-corfu-mode)
+         (global-corfu-mode . corfu-popupinfo-mode))
+  :bind (:map corfu-map
+              ("<escape>" . corfu-quit)
+              ("<SPC>"    . corfu-insert-separator))
+  :custom-face
+  (corfu-border ((t (:inherit region :background unspecified))))
+  :custom
+  (corfu-auto t)
+  :config
+  (global-corfu-mode)
+  (setq corfu-popupinfo-delay 0
+        corfu-auto-delay 0
+        corfu-auto-prefix 2
+        corfu-cycle t
+        corfu-quit-at-boundary t
+        corfu-preview-current nil
+        corfu-quit-no-match t)
+  (when (< emacs-major-version 29)
+    (advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent)
+    (advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify))
+  (corfu-history-mode 1)
+  (savehist-mode 1)
+  (add-to-list 'savehist-additional-variables 'corfu-history)
+  )
+
+;; Cambia la forma de mostrar y buscar sugerencias (afecta a corfu, pero también a otros como vertico).
+(use-package orderless
+  :after corfu
+  :custom
+  (completion-styles '(orderless))      ; Use orderless
+  (completion-category-defaults nil)    ; I want to be in control!
+  (setq completion-ignore-case  t)
+  (completion-category-overrides '((file (styles basic partial-completion orderless))))
+  (orderless-matching-styles
+   '(orderless-literal
+     orderless-prefixes
+     orderless-initialism
+     orderless-regexp
+     orderless-flex                       ; Basically fuzzy finding
+     ;; orderless-strict-leading-initialism
+     ;; orderless-strict-initialism
+     ;; orderless-strict-full-initialism
+     ;; orderless-without-literal          ; Recommended for dispatches instead
+     ))
+  )
+
+;; Set de funciones de para las sugerencias de corfu.
+(use-package cape
+  :ensure (:host github :repo "minad/cape")
+  :after corfu
+  :hook (eglot-managed-mode . (lambda()
+                                (setq completion-at-point-functions
+                                      (list (cape-capf-super
+                                             #'eglot-completion-at-point
+                                             #'cape-abbrev
+                                             #'cape-dabbrev
+                                             #'cape-history
+                                             #'cape-dict
+                                             #'cape-file
+                                             #'cape-keyword)))))
+  :bind (("C-c c f" . cape-file)
+         ("C-c c l" . cape-line))
+  :init
+  (setq text-mode-ispell-word-completion nil)
+  ;; (add-to-list 'completion-at-point-functions #'cape-line)     ;; Completar línea actual en función de lo que dice otras líneas de buffer.
+  ;; (add-to-list 'completion-at-point-functions #'cape-tex)      ;; Completar Latex (caracteres unicode).
+  (add-to-list 'completion-at-point-functions #'cape-dabbrev)  ;; Completar desde otras la palabras del buffer.
+  (add-to-list 'completion-at-point-functions #'cape-abbrev)   ;; Completar desde una abreviaciónes configuradas con add-global-abbrev (añadir abreviación global) o add-mode-abbrev (abreviación para el modo actual).
+  (add-to-list 'completion-at-point-functions #'cape-history)  ;; Completar desde el historial de altocompletado
+  (add-to-list 'completion-at-point-functions #'cape-dict)     ;; Completar desde un diccionario (por defecto toma el de linux que está en /usr/share/dict/words).
+  (add-to-list 'completion-at-point-functions #'cape-file)     ;; Completar rutas de archivos.
+  (add-to-list 'completion-at-point-functions #'cape-keyword)  ;; Completar desde keyword del lenguaje.
+
+  (advice-add 'eglot-completion-at-point :around #'cape-wrap-buster)
+  )
+
+;; Hacer que corfu funcione en la terminal
+(unless (display-graphic-p)
+  (use-package corfu-terminal
+    :after corfu
+    :ensure (:repo "https://codeberg.org/akib/emacs-corfu-terminal.git")
+    :init
+    (corfu-terminal-mode +1))
+  )
+
+;; A few more useful configurations...
+(use-package emacs
+  :ensure nil
+  :custom
+  ;; TAB cycle if there are only few candidates
+  ;; (completion-cycle-threshold 3)
+
+  ;; Enable indentation+completion using the TAB key.
+  ;; `completion-at-point' is often bound to M-TAB.
+  (tab-always-indent 'complete)
+
+  ;; Emacs 30 and newer: Disable Ispell completion function. As an alternative,
+  ;; try `cape-dict'.
+  (text-mode-ispell-word-completion nil)
+
+  ;; Emacs 28 and newer: Hide commands in M-x which do not apply to the current
+  ;; mode.  Corfu commands are hidden, since they are not used via M-x. This
+  ;; setting is useful beyond Corfu.
+  (read-extended-command-predicate #'command-completion-default-include-p))
+
+;; Iconos en corfu
+(use-package nerd-icons-corfu
+  :after corfu
+  :init (add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter))
+
+
+(provide 'init-completion)
+;;; init-completion.el ends here
--- a/configs/init-corfu.el
+++ b/configs/init-corfu.el
@ -1,72 +0,0 @@
-;;; init-corfu.el --- Autocompletado con corfu  -*- lexical-binding: t -*-
-
-;; Author: kj <webmaster@outcontrol.net>
-;; URL: https://git.kj2.me/kj/confi-emacs-actual
-
-;;; Commentary:
-
-;; Archivo de configuración específico para el paquete corfu.
-;; Corfu, de manera resumida, es el que nos muestra el autocompletado
-;; en Emacs, tanto para código como para otro tipo de textos.
-;;
-;; Este paquete viene a ser una alternativa a Company, por lo
-;; que no se deberían activar los 2 al mismo tiempo.
-
-
-;;; Code:
-
-(use-package corfu
-  :defer t
-  :elpaca (:files (:defaults "extensions/*")
-                   :includes (corfu-info corfu-history))
-  :hook ((elpaca-after-init . global-corfu-mode)
-         (corfu-mode . corfu-popupinfo-mode))
-  :bind (("<escape>" . corfu-quit)
-         ("<SPC>" . corfu-insert-separator))
-  :custom
-  (corfu-auto t)
-  :config
-  (setq corfu-popupinfo-delay 0
-        ;; corfu-auto-delay 0.5
-        corfu-auto-prefix 1
-        corfu-cycle t
-        corfu-preview-current nil
-        corfu-quit-no-match t)
-  )
-
-(use-package orderless
-  :config
-  (setq completion-styles '(orderless basic)
-        completion-category-overrides '((file (styles partial-completion)))))
-
-(use-package cape
-  :elpaca (:host github :repo "minad/cape")
-  :after corfu
-  :init
-  ;; (advice-add 'eglot-completion-at-point :around #'cape-wrap-buster)
-  (advice-add #'eglot-completion-at-point :around #'cape-wrap-nonexclusive)
-  (add-to-list 'completion-at-point-functions #'cape-dabbrev)
-  (add-to-list 'completion-at-point-functions #'cape-file)
-  ;; (add-to-list 'completion-at-point-functions #'cape-line)
-  )
-
-;; Hacer que corfu funcione en la terminal
-(unless (display-graphic-p)
-  (use-package corfu-terminal
-    :elpaca (:repo "https://codeberg.org/akib/emacs-corfu-terminal.git")
-    :config
-    (corfu-terminal-mode +1))
-  )
-
-;; Iconos en corfu
-(use-package kind-icon
-  :ensure t
-  :after corfu
-  :custom
-  (kind-icon-default-face 'corfu-default) ; to compute blended backgrounds correctly
-  :config
-  (add-to-list 'corfu-margin-formatters #'kind-icon-margin-formatter))
-
-
-(provide 'init-corfu)
-;;; init-corfu.el ends here
--- a/configs/init-ctags.el
+++ b/configs/init-ctags.el
@ -1,76 +0,0 @@
-;;; init-ctags.el --- Configuracíón de TAGS  -*- lexical-binding: t -*-
-
-;; Author: kj <webmaster@outcontrol.net>
-;; URL: https://git.kj2.me/kj/confi-emacs-actual
-
-;;; Commentary:
-
-;;; Code:
-
-;; En esta sección está la configuración para ctags.
-;; Quizá con la aparición de lsp sea menos necesaria,
-;; pero dado a que sigue teniendo potencial para aportar
-;; además de tener un rendimiento muy bueno es mejor
-;; no dejarla de lado.
-
-;; Ctags IDE on the True Editor
-;; @see https://github.com/universal-ctags/citre#quick-start
-
-(use-package citre
-  :defer t
-  :ensure t
-  :diminish
-  :bind (("C-x c ." . citre-jump)
-         ("C-x c ," . citre-jump-back)
-         ("C-x c p" . citre-peek)
-         ("C-x c a" . citre-ace-peek)
-         ("C-x c u" . citre-update-this-tags-file))
-  :init
-  (require 'citre-config)
-  (setq citre-auto-enable-citre-mode-modes '(prog-mode))
-  :config
-  (with-no-warnings
-    (setq citre-default-create-tags-file-location 'global-cache
-          ;; citre-ctags-program "/usr/bin/ctags"
-          ;; citre-readtags-program "/usr/bin/readtags"
-          citre-use-project-root-when-creating-tags t
-          citre-prompt-language-for-ctags-command t)
-
-    (with-eval-after-load 'projectile
-      (setq citre-project-root-function #'projectile-project-root))
-
-    ;; Integrate with `lsp-mode' and `eglot'
-    (define-advice xref--create-fetcher (:around (fn &rest args) fallback)
-      (let ((fetcher (apply fn args))
-            (citre-fetcher
-             (let ((xref-backend-functions '(citre-xref-backend t)))
-               (ignore xref-backend-functions)
-               (apply fn args))))
-        (lambda ()
-          (or (with-demoted-errors "%s, fallback to citre"
-                (funcall fetcher))
-              (funcall citre-fetcher)))))
-
-    (defun lsp-citre-capf-function ()
-      "A capf backend that tries lsp first, then Citre."
-      (let ((lsp-result (if (fboundp #'eglot-completion-at-point)
-                            (eglot-completion-at-point)
-                        (when (fboundp #'lsp-completion-at-point)
-                            (lsp-completion-at-point)))))
-        (if (and lsp-result
-                 (try-completion
-                  (buffer-substring (nth 0 lsp-result)
-                                    (nth 1 lsp-result))
-                  (nth 2 lsp-result)))
-            lsp-result
-          (citre-completion-at-point))))
-
-    (defun enable-lsp-citre-capf-backend ()
-      "Enable the lsp + Citre capf backend in current buffer."
-      (add-hook 'completion-at-point-functions #'lsp-citre-capf-function nil t))
-
-    (add-hook 'citre-mode-hook #'enable-lsp-citre-capf-backend)
-  ))
-
-(provide 'init-ctags)
-;;; init-ctags.el ends here
--- a/configs/init-editor.el
+++ b/configs/init-editor.el
@ -0,0 +1,166 @@
+;; init-editor.el --- Initialize editing configurations.	-*- lexical-binding: t -*-
+
+;; Copyright (C) 2006-2025 Vincent Zhang
+
+;; Author: kj <webmaster@outcontrol.net>
+;; URL: https://git.kj2.me/kj/confi-emacs-actual
+
+;;; Commentary:
+;;
+;; Configuración en la edición de texto en general
+;;
+
+;;; Code:
+
+;; Visor de documentos de emacs (soporta de todo: epub, pdf, odt, docx, cbz, etc.)
+(use-package doc-view
+  :hook
+  (doc-view-mode . (lambda ()
+                       (display-line-numbers-mode 0)))
+  :ensure nil)
+
+;; Eliminar cuando está
+(use-package delsel
+  :ensure nil
+  :hook (elpaca-after-init . delete-selection-mode))
+
+;; Minor mode to aggressively keep your code always indented
+(use-package aggressive-indent
+  :diminish
+  :autoload aggressive-indent-mode
+  :functions too-long-file-p
+  :hook ((elpaca-after-init . global-aggressive-indent-mode)
+         ;; NOTE: Disable in large files due to the performance issues
+         ;; https://github.com/Malabarba/aggressive-indent-mode/issues/73
+         (find-file . (lambda ()
+                        (when (too-long-file-p)
+                          (aggressive-indent-mode -1)))))
+  :config
+  ;; Disable in some modes
+  (dolist (mode '(gitconfig-mode
+                  asm-mode web-mode html-mode
+                  css-mode css-ts-mode
+                  go-mode go-ts-mode
+                  python-ts-mode yaml-ts-mode
+                  scala-mode
+                  shell-mode term-mode vterm-mode
+                  prolog-inferior-mode))
+    (add-to-list 'aggressive-indent-excluded-modes mode))
+
+  ;; Disable in some commands
+  (add-to-list 'aggressive-indent-protected-commands #'delete-trailing-whitespace t)
+
+  ;; Be slightly less aggressive in C/C++/C#/Java/Go/Swift
+  (add-to-list 'aggressive-indent-dont-indent-if
+               '(and (derived-mode-p 'c-mode 'c++-mode 'csharp-mode
+                                     'java-mode 'go-mode 'swift-mode)
+                     (null (string-match "\\([;{}]\\|\\b\\(if\\|for\\|while\\)\\b\\)"
+                                         (thing-at-point 'line))))))
+
+;; Mover líneas o regiones con M-<teclas de dirección>
+(use-package drag-stuff
+  :diminish
+  :autoload drag-stuff-define-keys
+  :hook (elpaca-after-init . drag-stuff-global-mode)
+  :config
+  (add-to-list 'drag-stuff-except-modes 'org-mode)
+  (drag-stuff-define-keys))
+
+;; A comprehensive visual interface to diff & patch
+(use-package ediff
+  :ensure nil
+  :hook(;; show org ediffs unfolded
+        (ediff-prepare-buffer . outline-show-all)
+        )
+  :config
+  (setq ediff-window-setup-function 'ediff-setup-windows-plain
+        ediff-split-window-function 'split-window-horizontally
+        ediff-merge-split-window-function 'split-window-horizontally))
+
+;; Automatic parenthesis pairing
+(use-package elec-pair
+  :ensure nil
+  ;; :hook (elpaca-after-init . electric-pair-mode)
+  :init (setq electric-pair-inhibit-predicate 'electric-pair-conservative-inhibit))
+
+;; Edit multiple regions in the same way simultaneously
+(use-package iedit
+  :defines desktop-minor-mode-table
+  :bind (("C-;" . iedit-mode)
+         ("C-x r RET" . iedit-rectangle-mode)
+         :map isearch-mode-map ("C-;" . iedit-mode-from-isearch)
+         :map esc-map ("C-;" . iedit-execute-last-modification)
+         :map help-map ("C-;" . iedit-mode-toggle-on-function))
+  :config
+  ;; Avoid restoring `iedit-mode'
+  (with-eval-after-load 'desktop
+    (add-to-list 'desktop-minor-mode-table
+                 '(iedit-mode nil))))
+
+;; Seleccionar por regiones (similar a mark-sexp, pero toma en cuenta hacia atrás del cursor también)
+(use-package expand-region
+  :functions treesit-buffer-root-node
+  :bind ("C-=" . er/expand-region)
+  :config
+  (defun treesit-mark-bigger-node ()
+    "Use tree-sitter to mark regions."
+    (let* ((root (treesit-buffer-root-node))
+           (node (treesit-node-descendant-for-range root (region-beginning) (region-end)))
+           (node-start (treesit-node-start node))
+           (node-end (treesit-node-end node)))
+      ;; Node fits the region exactly. Try its parent node instead.
+      (when (and (= (region-beginning) node-start) (= (region-end) node-end))
+        (when-let* ((node (treesit-node-parent node)))
+          (setq node-start (treesit-node-start node)
+                node-end (treesit-node-end node))))
+      (set-mark node-end)
+      (goto-char node-start)))
+  (add-to-list 'er/try-expand-list 'treesit-mark-bigger-node))
+
+;; Hungry deletion (Elimina los espacios en blancos consecutivos)
+(use-package hungry-delete
+  :diminish
+  :hook (elpaca-after-init . global-hungry-delete-mode)
+  :init (setq hungry-delete-chars-to-skip " \t\f\v"
+              hungry-delete-except-modes
+              '(help-mode minibuffer-mode minibuffer-inactive-mode calc-mode)))
+
+;; Mejora C-a y C-e para ir a lo que contextualmente sería el fin de la línea
+(use-package mwim
+  :bind (([remap move-beginning-of-line] . mwim-beginning)
+         ([remap move-end-of-line] . mwim-end)))
+
+;; Ayuda a manipular los archivos con líneas demasiado largas
+(use-package so-long
+  :ensure nil
+  :hook (after-init . global-so-long-mode)
+  :bind (:map so-long-mode-map
+              ("C-s"    . isearch-forward)
+              ("C-r"    . isearch-backward))
+  :config
+  (setq so-long-variable-overrides
+        '((bidi-inhibit-bpa . t)
+          (bidi-paragraph-direction . left-to-right)
+          (buffer-read-only . nil)
+          (global-hl-line-mode . nil)
+          (line-move-visual . t)
+          (show-paren-mode . nil)
+          (truncate-lines . nil)
+          (which-func-mode . nil))))
+
+;; Generador de texto aleatorio para placeholding
+(use-package lorem-ipsum)
+
+;; Corrector ortográfico y de sintaxis avanzado
+(use-package languagetool
+  :ensure t
+  :defer t
+  :commands (languagetool-check
+             languagetool-clear-suggestions
+             languagetool-correct-at-point
+             languagetool-correct-buffer
+             languagetool-set-language
+             languagetool-server-mode))
+
+(provide 'init-editor)
+;;; init-editor.el ends here
--- a/configs/init-eglot.el
+++ b/configs/init-eglot.el
@ -1,77 +0,0 @@
-;;; init-eglot.el --- Configuración de eglot (LSP)   -*- lexical-binding: t -*-
-
-;; Author: kj <webmaster@outcontrol.net>
-;; URL: https://git.kj2.me/kj/confi-emacs-actual
-
-;;; Commentary:
-
-;; Este archivo tiene todo lo relacionado con eglot.
-;; Eglot es un cliente LSP para Emacs que desde la
-;; versión 29 viene integrado dentro del mismo.
-;;
-;; El nombre Eglot es un apócope de "Emacs polyglot"
-;; ya que con este cliente podemos añadir soporte para
-;; muchísimos lenguajes, puesto que actualente el que
-;; un lenguaje tenga su propio LSP es muy normal.
-;;
-;; Como añadido:
-;;
-;; Un Languaje Server Provider (LSP), es un protocolo
-;; mediante el cual existen servidores para lenguajes
-;; en específico, los cuales proveen cosas como el
-;; autocompletado, linting, documentación, ir a la
-;; definición, etc.
-;;
-;; Este protocolo viene a solucionar el problema de
-;; que cada herramienta de programación tenga que
-;; volver a crear su propio soporte para cada uno
-;; de los lenguajes (DRY).
-
-;;; Code:
-
-(use-package eglot
-  :defer t
-  :elpaca nil
-  :hook ((css-mode . eglot-ensure)
-         (html-mode . eglot-ensure)
-         (php-mode . eglot-ensure)
-         (rust-mode . eglot-ensure)
-         (sh-mode . eglot-ensure))
-  :config
-  ;; (add-to-list 'eglot-server-programs '(php-mode . ("intelephense" "--stdio")))
-  (add-to-list 'eglot-server-programs '(php-mode . ("phpactor" "language-server" "-vvv")))
-  ;; (add-to-list 'eglot-ignored-server-capabilites :hoverProvider)
-  ;; (add-to-list 'eglot-server-programs '(css-mode . ("vscode-css-language-server" "--stdio")))
-  ;; (add-to-list 'eglot-server-programs '(html-mode . ("vscode-html-language-server" "--stdio")))
-
-  ;; (add-hook 'eglot--managed-mode-hook (lambda () (flymake-mode -1)))
-)
-
-;; Emmet (mientras veo como hacer funcionar emmet-ls)
-(use-package emmet-mode
-  :defer t
-  :hook
-  ((html-mode . emmet-mode)
-   (web-mode . emmet-mode))
-  )
-
-;; Revisar por errores en el código
-(use-package flymake
-  :defer t
-  :elpaca nil
-  :hook (prog-mode . (lambda ()
-                       (unless (derived-mode-p 'makefile-mode)
-                         (flymake-mode))))
-  :config
-  (remove-hook 'flymake-diagnostic-functions 'flymake-proc-legacy-flymake)
-  )
-
-;; Mostar los errores de flymake en un popup-tip
-(use-package flymake-diagnostic-at-point
-  :defer t
-  :elpaca t
-  :after flymake
-  :hook (flymake-mode . flymake-diagnostic-at-point-mode))
-
-(provide 'init-eglot)
-;;; init-eglot.el ends here
--- a/configs/init-evil.el
+++ b/configs/init-evil.el
@ -13,43 +13,52 @@

 ;;; Code:
 (use-package evil
-  :defer t
-  ;; :hook (elpaca-after-init . evil-mode)
+  :hook ((elpaca-after-init . evil-mode)
+         (git-timemachine-mode . evil-emacs-state))
+  :init
+  (setq evil-want-keybinding nil)
+  ;; Habilitar atajos de de tecla de emacs en insert state
+  (setq evil-disable-insert-state-bindings t)
  :config
  ;; Configuraciones básicas
  ;; (setq evil-default-state 'emacs) ;; Modo por defecto en emacs
-  (setq evil-default-state 'normal) ;; Modo por defecto en emacs
+  ;; (setq evil-default-state 'insert) ;; Modo por defecto en emacs
  (setq evil-emacs-state-cursor 'bar) ;; Cursor de emacs state en bar
-  (setq evil-normal-state-cursor 'bar) ;; Cursor de normal state en bar en lugar de box
+  ;; (setq evil-normal-state-cursor 'bar) ;; Cursor de normal state en bar en lugar de box
  (evil-set-leader 'motion (kbd "SPC")) ;; Leader key
  (evil-set-undo-system 'undo-redo)

-  ;; Habilitar atajos de de tecla de emacs en insert state
-  (setq evil-insert-state-map (make-sparse-keymap))
+  ;; Arreglar el problemita con corfu-quit y el cambio de modos
+  (evil-define-key 'emacs 'global (kbd "<escape>") '(lambda ()
+                                                      "Call `corfu-quit' and then return to Normal State."
+                                                      (interactive)
+                                                      (call-interactively 'corfu-quit)
+                                                      (evil-normal-state)))

-  ;; Ingresar en normal state con ESC desde insert state o desde Emacs state
-  (evil-define-key 'insert 'global (kbd "<escape>") 'evil-normal-state)
+  ;; (evil-define-key 'normal 'global (kbd "<escape>") 'corfu-quit)
+  ;; Cambiar a mode emacs con escape
  ;; (evil-define-key 'emacs 'global (kbd "<escape>") 'evil-normal-state)
  ;; Cambiar Insert state por emacs state.
-  ;; (defalias 'evil-insert-state 'evil-emacs-state)
+  (defalias 'evil-insert-state 'evil-emacs-state)

  ;; Variales locales (todos los estados o solo los estados de VIM)
  (setq all-states '(normal insert visual replace operator motion emacs))
  (setq vim-states '(normal insert visual replace operator motion))

  ;; Cambiar entre modo emacs y evil (Mi pripio evil toggle)
-  (evil-define-key vim-states 'global (kbd "C-'") 'evil-emacs-state)
-  (evil-define-key 'emacs 'global (kbd "C-'") 'evil-normal-state)
+  ;; (evil-define-key vim-states 'global (kbd "C-'") 'evil-emacs-state)
+  ;; (evil-define-key 'emacs 'global (kbd "C-'") 'evil-normal-state)

  ;; Cambiar C-z a deshacer
  (evil-define-key all-states 'global (kbd "C-z") 'undo)

-  ;; Cambiar C-r a ripgrep y U hasta hacer redo
-  (evil-define-key vim-states 'global (kbd "C-r") 'counsel-rg)
+  ;; Cambiar U para hacer redo
  (evil-define-key 'normal 'global (kbd "U") 'undo-redo)
+  (evil-define-key 'normal 'global (kbd "C-S-z") 'undo-redo)
+  (evil-define-key 'normal 'global (kbd "M-.") 'xref-find-definitions)

  ;; Arreglar yank-pop en normal mode
-  (evil-define-key 'normal 'global (kbd "M-y") 'counsel-yank-pop)
+  (evil-define-key 'normal 'global (kbd "M-y") 'consult-yank-pop)

  ;; Re-bindear keys a como funcionan en emacs.
  (evil-define-key 'normal 'global (kbd "C-p") 'previous-line)
@ -57,7 +66,22 @@
  (evil-define-key 'normal 'global (kbd "C-e") 'move-end-of-line)

  ;; Navegación entre frames
-  (evil-define-key 'motion 'global (kbd "<leader>o") 'other-frame)
+  (evil-define-key 'motion 'global (kbd "<leader>o") 'other-window)
+
+  ;; Habilitar el scrolear con C-v como en emacs en evil
+  (evil-define-key 'motion 'global (kbd "C-v") 'scroll-up-command)
+
+  ;; Añadir nueva linea sin salir del modo normal
+  (evil-define-key 'motion 'global (kbd "<leader><RET>") 'newline)
+
+  ;; Abrir historial del kill-ring/portapapeles
+  (evil-define-key vim-states 'global (kbd "<leader>y") 'consult-yank-pop)
+
+  ;; Expand region desde motion states
+  (evil-define-key 'motion 'global (kbd "<leader>+") 'er/expand-region)
+
+  ;; Indentado en motion modes.
+  (evil-define-key 'motion 'global (kbd "<tab>") 'indent-for-tab-command)

  ;; Atajos con leader key para frames
  (evil-define-key 'motion 'global (kbd "<leader>0") 'delete-window)
@ -71,22 +95,43 @@
  ;; Cambios de modos
  (evil-define-key 'normal 'global (kbd "<leader>mh") 'html-mode)
  (evil-define-key 'normal 'global (kbd "<leader>mj") 'js-mode)
-  (evil-define-key 'normal 'global (kbd "<leader>mp") 'php-mode)
+  (evil-define-key 'normal 'global (kbd "<leader>mp") 'php-ts-mode)
  (evil-define-key 'normal 'global (kbd "<leader>mr") 'rust-mode)
  (evil-define-key 'normal 'global (kbd "<leader>mw") 'web-mode)

  ;; Otros atajos
-  (evil-define-key 'motion 'global (kbd "<leader>b") 'ivy-switch-buffer)          ;; Cambiar de buffer
-  (evil-define-key 'motion 'global (kbd "<leader>p") 'counsel-projectile)         ;; Archivos del proyecto (o abrir proyecto si no hay alguno)
-  (evil-define-key 'motion 'global (kbd "<leader>cp") 'projectile-switch-project) ;; Cambiar proyecto
-  (evil-define-key 'motion 'global (kbd "<leader>ff") 'counsel-find-file)         ;; Abrir archivo
+  (evil-define-key 'motion 'global (kbd "<leader>b") 'switch-to-buffer)             ;; Cambiar de buffer
+  (evil-define-key 'motion 'global (kbd "<leader>p") 'project-find-file)            ;; Archivos del proyecto (o abrir proyecto si no hay alguno)
+  (evil-define-key 'motion 'global (kbd "<leader>cp") 'project-switch-project)     ;; Cambiar proyecto
+  (evil-define-key 'motion 'global (kbd "<leader>f") 'find-file)                   ;; Abrir archivo
+  (evil-define-key 'motion 'global (kbd "<leader>xr") 'consult-recent-file)        ;; Lista de archivos recientes
+  (evil-define-key 'motion 'global (kbd "<leader>rg") 'consult-ripgrep)            ;; Búsqueda rápida con ripgrep
+  (evil-define-key 'motion 'global (kbd "<leader>gi") 'imenu)                      ;; imenu
+  (evil-define-key 'motion 'global (kbd "<leader>gg") 'goto-line)                  ;; Ir a la línea.

-  ;; Iniciar en normal state si es un lenguaje de programación u org-mode
-  ;; (evil-set-initial-state 'prog-mode 'normal)
-  ;; (evil-set-initial-state 'org-mode 'normal)
-  ;; (evil-set-initial-state 'dashboard-mode 'normal)
+  ;; Iniciar en normal state solo en modos específicos
+  (setq evil-default-state 'emacs) ;; Modo por defecto en emacs
+  (evil-set-initial-state 'prog-mode 'normal)
+  (evil-set-initial-state 'org-mode 'normal)
+  (evil-set-initial-state 'text-mode 'normal)
+  (evil-set-initial-state 'csv-mode 'normal)
+  (evil-set-initial-state 'fundamental-mode 'normal)
+  (evil-set-initial-state 'dashboard-mode 'normal)
  (evil-set-initial-state 'dired 'normal)
+  (evil-set-initial-state 'vterm-mode 'emacs)
+  (evil-set-initial-state 'magit-mode 'emacs)
+  (evil-set-initial-state 'git-commit-mode 'emacs)
  )

+;; Funciones y atajos de teclas especiales para evil cuando estamo en org-mode.
+;; Por ejemplo, para que evil-open-below funcione similar a org-return cuando
+;; estamos dentro de una lista.
+(use-package evil-org
+  :after org
+  :hook (org-mode . evil-org-mode))
+
+;; Similar a Vimtutor, pero para evil.
+(use-package evil-tutor)
+
 (provide 'init-evil)
 ;;; init-evil.el ends here
--- a/configs/init-functions.el
+++ b/configs/init-functions.el
@ -15,18 +15,6 @@
  (interactive "nTransparency Value 0 - 100 opaque:")
  (set-frame-parameter nil 'alpha-background value))

-;; Crear captura SVG del frame atual. Fuente: https://www.reddit.com/r/emacs/comments/idz35e/emacs_27_can_take_svg_screenshots_of_itself/
-(defun screenshot-svg ()
-  "Save a screenshot of the current frame as an SVG image.
-Saves to a temp file and puts the filename in the kill ring."
-  (interactive)
-  (let* ((filename (make-temp-file "Emacs" nil ".svg"))
-         (data (x-export-frames nil 'svg)))
-    (with-temp-file filename
-      (insert data))
-    (kill-new filename)
-    (message filename)))
-
 ;; Comentar línea o región
 (defun comment-or-uncomment-region-or-line ()
    "Comments or uncomments the region or the current line."
@ -55,8 +43,133 @@ Saves to a temp file and puts the filename in the kill ring."
    	(insert current-line)
    	(decf n)))))

-;; Borrar espacios, tabs y saltos de línea innecesarios al guardar
-(add-hook 'before-save-hook 'delete-trailing-whitespace)
+;; Obtener el nombre del proyecto desde project.el
+(defun kj/project-name (&optional project)
+  "Return the name for PROJECT.
+If PROJECT is not specified, assume current project root."
+  (when-let* ((root (or project (kj/project-root)))) ;; <-- ¡Aquí está el cambio!
+    (file-name-nondirectory
+     (directory-file-name
+      (file-name-directory root)))))
+
+;; Obtener la raíz del proyecto desde project.el
+(defun kj/project-root ()
+  "Return the current project root."
+  (when-let* ((project (project-current)))
+    (project-root project)))
+
+;; Cambia entre ocultar o no la barra de título cuando está maximizado
+(defun toggle-hide-title-bar()
+  "Toggle hide title bar when the frame is maximed."
+  (interactive)
+  (if (and (boundp 'title-bar-maximixed) title-bar-maximixed)
+      (progn
+        (remove-hook 'window-size-change-functions 'frame-hide-title-bar-when-maximized)
+        (setq title-bar-maximixed nil))
+    (progn
+      (add-hook 'window-size-change-functions 'frame-hide-title-bar-when-maximized)
+      (setq title-bar-maximixed t)))
+  )
+
+;; Creando un hook para luego de que el theme ha cargado
+(defvar after-load-theme-hook nil
+  "Hook run after a color theme is loaded using `load-theme'.")
+(defadvice load-theme (after run-after-load-theme-hook activate)
+  "Run `after-load-theme-hook'."
+  (run-hooks 'after-load-theme-hook))
+
+;; Devuelve si el archivo es muy grande o no\
+(defun too-long-file-p ()
+  "Check whether the file is too long."
+  (or (> (buffer-size) 500000)
+      (and (fboundp 'buffer-line-statistics)
+           (> (car (buffer-line-statistics)) 10000))))
+
+;; Renombrar el archivo actual
+(defun rename-this-file (new-name)
+  "Renames both current buffer and file it's visiting to NEW-NAME."
+  (interactive (list (read-string "New name: "
+                                  (file-name-nondirectory
+                                   (buffer-file-name)))))
+  (let ((name (buffer-name))
+        (filename (buffer-file-name)))
+    (unless filename
+      (error "Buffer '%s' is not visiting a file!" name))
+    (progn
+      (when (file-exists-p filename)
+        (rename-file filename new-name 1))
+      (set-visited-file-name new-name)
+      (rename-buffer new-name))))
+
+;; Copiar el nombre del archivo actual
+(defun copy-filename ()
+  "Copy the current buffer file name to the clipboard."
+  (interactive)
+  (let ((filename (if (equal major-mode 'dired-mode)
+                      default-directory
+                    (buffer-file-name))))
+    (if filename
+        (progn
+          (kill-new filename)
+          (message "Copied '%s'" filename))
+      (warn "Current buffer is not attached to a file!"))))
+
+(defun copy-basename ()
+  "Copy the current buffer basename to the clipboard."
+  (interactive)
+  (let ((filename (if (equal major-mode 'dired-mode)
+                      default-directory
+                    (file-name-nondirectory (buffer-file-name)))))
+    (if filename
+        (progn
+          (kill-new filename)
+          (message "Copied '%s'" filename))
+      (warn "Current buffer is not attached to a file!"))))
+
+;; Verifica si se puede levantar un childframe
+(defun childframe-workable-p ()
+  "Whether childframe is workable."
+  (and (not noninteractive)
+       (not emacs-basic-display)
+       (or (display-graphic-p)
+           (featurep 'tty-child-frames))
+       (eq (frame-parameter (selected-frame) 'minibuffer) 't)))
+
+(defun font-installed-p (font-name)
+  "Check if font with FONT-NAME is available."
+  (find-font (font-spec :name font-name)))
+
+(defun insert-filename ()
+  "Insert the full path file name into the current buffer."
+  (interactive)
+  (insert (buffer-file-name)))
+
+(defun insert-basename ()
+  "Insert the filename (without path) into the current buffer."
+  (interactive)
+  (insert (file-name-nondirectory (buffer-file-name))))
+
+(defun sort-lines-by-length (reverse beg end)
+  "Sort lines by length."
+  (interactive "P\nr")
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end)
+      (goto-char (point-min))
+      (let ;; To make `end-of-line' and etc. to ignore fields.
+          ((inhibit-field-text-motion t))
+        (sort-subr reverse 'forward-line 'end-of-line nil nil
+                   (lambda (l1 l2)
+                     (apply #'< (mapcar (lambda (range) (- (cdr range) (car range)))
+                                        (list l1 l2)))))))))
+
+(defun corfu-auto-toggle()
+  "Toggle corfu autocomplete."
+  (interactive)
+  (global-corfu-mode 0)
+  (setq corfu-auto (not corfu-auto))
+  (global-corfu-mode 1)
+  )

 (provide 'init-functions)
 ;;; init-functions.el ends here.
--- a/configs/init-highlight.el
+++ b/configs/init-highlight.el
@ -0,0 +1,164 @@
+;; init-highlight.el --- Initialize highlighting configurations.	-*- lexical-binding: t -*-
+
+;; Author: kj <webmaster@outcontrol.net>
+;; URL: https://git.kj2.me/kj/confi-emacs-actual
+
+;;; Commentary:
+;;
+;; Highlighting configurations.
+;;
+
+;;; Code:
+
+;; Highlight the current line
+(use-package hl-line
+  :ensure nil
+  :hook (((dashboard-mode eshell-mode shell-mode term-mode vterm-mode) .
+          (lambda () (setq-local global-hl-line-mode nil)))
+         ;; (after-init . global-hl-line-mode)
+  ))
+
+;; Highlight matching parens
+(use-package paren
+  :ensure nil
+  :functions childframe-workable-p
+  :custom-face
+  (show-paren-match ((((class color) (background light))
+                      (:box (:line-width (-1 . -1) :color "gray73")))
+                     (((class color) (background dark))
+                      (:box (:line-width (-1 . -1) :color "gray56")))))
+  :hook (after-init . show-paren-mode)
+  :init (setq show-paren-when-point-inside-paren t
+              show-paren-when-point-in-periphery t)
+  :config
+  (setq blink-matching-paren-highlight-offscreen t
+        show-paren-context-when-offscreen
+        (if (childframe-workable-p) 'child-frame 'overlay))
+  (with-no-warnings
+    ;; Display matching line for off-screen paren.
+    (defun display-line-overlay (pos str &optional face)
+      "Display line at POS as STR with FACE.
+
+FACE defaults to inheriting from default and highlight."
+      (let ((ol (save-excursion
+                  (goto-char pos)
+                  (make-overlay (line-beginning-position)
+                                (line-end-position)))))
+        (overlay-put ol 'display str)
+        (overlay-put ol 'face
+                     (or face '(:inherit highlight)))
+        ol))
+
+    (defvar-local show-paren--off-screen-overlay nil)
+    (defun show-paren-off-screen (&rest _args)
+      "Display matching line for off-screen paren."
+      (when (overlayp show-paren--off-screen-overlay)
+        (delete-overlay show-paren--off-screen-overlay))
+      ;; Check if it's appropriate to show match info,
+      (when (and (overlay-buffer show-paren--overlay)
+                 (not (or cursor-in-echo-area
+                          executing-kbd-macro
+                          noninteractive
+                          (minibufferp)
+                          this-command))
+                 (and (not (bobp))
+                      (memq (char-syntax (char-before)) '(?\) ?\$)))
+                 (= 1 (logand 1 (- (point)
+                                   (save-excursion
+                                     (forward-char -1)
+                                     (skip-syntax-backward "/\\")
+                                     (point))))))
+        ;; Rebind `minibuffer-message' called by `blink-matching-open'
+        ;; to handle the overlay display.
+        (cl-letf (((symbol-function #'minibuffer-message)
+                   (lambda (msg &rest args)
+                     (let ((msg (apply #'format-message msg args)))
+                       (setq show-paren--off-screen-overlay
+                             (display-line-overlay
+                              (window-start) msg ))))))
+          (blink-matching-open))))
+    (advice-add #'show-paren-function :after #'show-paren-off-screen)))
+
+;; Resalta los escapes de secuencia
+(use-package highlight-escape-sequences
+  :hook (prog-mode . hes-mode)
+  :config
+  (setq hes-mode-alist
+        `((c-mode                . ,hes-c/c++/objc-escape-sequence-re)
+          (c++-mode              . ,hes-c/c++/objc-escape-sequence-re)
+          (objc-mode             . ,hes-c/c++/objc-escape-sequence-re)
+          (go-mode               . ,hes-c/c++/objc-escape-sequence-re)
+          (php-mode              . ,hes-c/c++/objc-escape-sequence-re)
+          (php-ts-mode           . ,hes-c/c++/objc-escape-sequence-re)
+          (java-mode             . ,hes-java-escape-sequence-re)
+          (clojure-mode          . ,hes-java-escape-sequence-re)
+          (js-mode               . ,hes-js-escape-sequence-re)
+          (js2-mode              . ,hes-js-escape-sequence-re)
+          (ruby-mode             . ,hes-ruby-escape-sequence-keywords)
+          (lisp-mode             . ,hes-elisp-escape-sequence-re)
+          (lisp-interaction-mode . ,hes-elisp-escape-sequence-re)
+          (emacs-lisp-mode       . ,hes-elisp-escape-sequence-re))
+        )
+  )
+
+;; Resalta todas las ocurrencias del contenido seleccionado
+(use-package region-occurrences-highlighter
+  :diminish
+  :bind (:map region-occurrences-highlighter-nav-mode-map
+              ("M-n" . region-occurrences-highlighter-next)
+              ("M-p" . region-occurrences-highlighter-prev))
+  :hook (elpaca-after-init . global-region-occurrences-highlighter-mode))
+
+;; Highlight indentions
+(use-package indent-bars
+  :custom
+  (indent-bars-color '(highlight :face-bg t :blend 0.225))
+  (indent-bars-highlight-current-depth '(:face default :blend 0.225))
+  (indent-bars-color-by-depth nil)
+  (indent-bars-pattern ".")
+  (indent-bars-treesit-support t)
+  (indent-bars-no-descend-string t)
+  (indent-bars-treesit-ignore-blank-lines-types '("module"))
+  (indent-bars-prefer-character t)
+  (indent-bars-treesit-scope '((python function_definition class_definition for_statement
+				                       if_statement with_statement while_statement)))
+  ;; :hook ((prog-mode yaml-mode) . indent-bars-mode)
+  :config (require 'indent-bars-ts))
+
+;; Colorize color names in buffers
+(use-package colorful-mode
+  :diminish
+  :hook (after-init . global-colorful-mode)
+  :init (setq colorful-use-prefix t)
+  :config (dolist (mode '(html-mode php-mode help-mode helpful-mode))
+            (add-to-list 'global-colorful-modes mode)))
+
+;; Highlight brackets according to their depth
+(use-package rainbow-delimiters)
+
+;; Resaltar palabras clave como TODO, FIXME, etc. en comentarios del código.
+(use-package hl-todo
+  :autoload hl-todo-flymake hl-todo-search-and-highlight
+  :functions rg rg-read-files rg-project
+  :bind (:map hl-todo-mode-map
+              ([C-f3] . hl-todo-occur))
+  :hook (elpaca-after-init . global-hl-todo-mode)
+  :init (setq hl-todo-require-punctuation t
+              hl-todo-highlight-punctuation ":")
+  :config
+  (add-to-list 'hl-todo-keyword-faces '("BUG" . "#d99600"))
+  
+  ;; Integrate into flymake
+  (with-eval-after-load 'flymake
+    (add-hook 'flymake-diagnostic-functions #'hl-todo-flymake))
+
+   ;; Integrate into magit
+  (with-eval-after-load 'magit
+    (add-hook 'magit-log-wash-summary-hook
+              #'hl-todo-search-and-highlight t)
+    (add-hook 'magit-revision-wash-message-hook
+              #'hl-todo-search-and-highlight t))
+  )
+
+(provide 'init-highlight)
+;;; init-highlight.el ends here
--- a/configs/init-keys.el
+++ b/configs/init-keys.el
@ -17,27 +17,28 @@
 (global-set-key (kbd "C-x C-z") nil)                      ; Unbind C-x C-z (don't minimize)
 (global-set-key (kbd "C-z") 'undo)                        ; Unbind C-z y hacerlo funcionar para deshacer cambios
 (global-set-key (kbd "C-S-z") 'undo-redo)                 ; Rehacer cambios con C-S-z
-(global-set-key (kbd "C-S-a") 'mark-whole-buffer)         ; Seleccionar todo con CTRL+SHIFT+a.
 (global-set-key (kbd "C-S-c")
                'comment-or-uncomment-region-or-line)     ; Comentar/descomentar línea o selección
 (global-set-key (kbd "C-<f11>") 'toggle-frame-maximized)  ; Maximizar / restaurar
 (global-set-key (kbd "C-S-d") 'duplicate-current-line)    ; Duplicar línea
-(global-set-key (kbd "C-S-l") 'sort-lines)                ; Ordenar líneas alfabéticamente
-(global-set-key (kbd "<mouse-3>") 'context-menu-open)     ; Ordenar líneas alfabéticamente
+(global-set-key (kbd "<mouse-3>") 'context-menu-open)     ; Abrir menú contextal al hacer clic derecho

 ;; Cambios rápidos de major modes
 (global-set-key (kbd "C-x m") nil)                        ; Unbind mail on C-x m
-(global-set-key (kbd "C-x mh") 'html-mode)
+(global-set-key (kbd "C-x mh") 'mhtml-mode)
 (global-set-key (kbd "C-x mj") 'js-mode)
-(global-set-key (kbd "C-x mp") 'php-mode)
-(global-set-key (kbd "C-x mr") 'rust-mode)
+(global-set-key (kbd "C-x mp") 'php-ts-mode)
 (global-set-key (kbd "C-x mw") 'web-mode)

-;; Cambiar de ventana
-(global-set-key (kbd "C-S-o") 'other-window)
+;; Saltar entre párrafos
+(define-key global-map "\M-[" 'backward-paragraph)
+(define-key global-map "\M-]" 'forward-paragraph)

-;; Meta atajos (atajos de atajos)
-;;(global-set-key (kbd "C-c l d") "\C-a\C- \C-n\M-w\C-y") ; Duplicar línea
+;; Insertar nombre del archivo
+(global-set-key (kbd "C-c ff") 'insert-filename)
+(global-set-key (kbd "C-c fb") 'insert-basename)
+(global-set-key (kbd "C-c fcf") 'copy-filename)
+(global-set-key (kbd "C-c fcb") 'copy-basename)

 ;; Deactivar el abrir *messages* al cliquear en el minibuffer
 (define-key minibuffer-inactive-mode-map [mouse-1] #'ignore)
--- a/configs/init-lsp.el
+++ b/configs/init-lsp.el
@ -0,0 +1,109 @@
+;;; init-lsp.el --- Configuración de eglot (LSP)   -*- lexical-binding: t -*-
+
+;; Author: kj <webmaster@outcontrol.net>
+;; URL: https://git.kj2.me/kj/confi-emacs-actual
+
+;;; Commentary:
+
+;; Este archivo tiene todo lo relacionado con eglot.
+;; Eglot es un cliente LSP para Emacs que desde la
+;; versión 29 viene integrado dentro del mismo.
+;;
+;; El nombre Eglot es un apócope de "Emacs polyglot"
+;; ya que con este cliente podemos añadir soporte para
+;; muchísimos lenguajes, puesto que actualente el que
+;; un lenguaje tenga su propio LSP es muy normal.
+;;
+;; Como añadido:
+;;
+;; Un Languaje Server Provider (LSP), es un protocolo
+;; mediante el cual existen servidores para lenguajes
+;; en específico, los cuales proveen cosas como el
+;; autocompletado, linting, documentación, ir a la
+;; definición, etc.
+;;
+;; Este protocolo viene a solucionar el problema de
+;; que cada herramienta de programación tenga que
+;; volver a crear su propio soporte para cada uno
+;; de los lenguajes (DRY).
+
+;;; Code:
+
+(use-package eglot
+  :ensure nil
+  :hook ((prog-mode . (lambda ()
+                        (unless (derived-mode-p
+                                 'emacs-lisp-mode 'lisp-mode
+                                 'makefile-mode 'snippet-mode
+                                 'ron-mode)
+                          (eglot-ensure))))
+         ((markdown-mode yaml-mode yaml-ts-mode) . eglot-ensure))
+  :init
+  (setq read-process-output-max (* 4 1024 1024)) ; 4MB
+  (setq eglot-autoshutdown t
+        eglot-send-changes-idle-time 0.5)
+  :config
+  (setq eglot-sync-connect 0)
+  (add-to-list 'eglot-server-programs '(php-mode . ("intelephense" "--stdio")))
+
+  (add-to-list 'eglot-server-programs
+               '((tsx-ts-mode
+                  ;; js-ts-mode
+                  ;; js-mode
+                  typescript-ts-mode
+                  typescript-mode)
+                 .
+                 (eglot-deno "deno" "lsp")))
+
+  (defclass eglot-deno (eglot-lsp-server) ()
+    :documentation "A custom class for deno lsp.")
+
+  (cl-defmethod eglot-initialization-options ((server eglot-deno))
+    "Passes through required deno initialization options"
+    (list :enable t
+          :lint t))
+  )
+
+;; Mejorar la velocidad de eglot (un binario en rust )
+(use-package eglot-booster
+  :ensure (:host github :repo "jdtsmith/eglot-booster")
+  :after eglot
+  :config
+  ;;
+  (if (executable-find "emacs-lsp-booster")
+      (eglot-booster-mode)
+    (message "No está instalado emacs-lsp-booster. Eglot se usará de modo normal."))
+  )
+
+;; Emmet (mientras veo como hacer funcionar emmet-ls)
+(use-package emmet-mode
+  :hook
+  ((html-mode . emmet-mode)
+   (web-mode . emmet-mode))
+  )
+
+;; Revisar por errores en el código
+(use-package flymake
+  :ensure nil
+  ;; :hook (prog-mode . (lambda ()
+  ;;                      (unless (derived-mode-p 'makefile-mode)
+  ;;                        (flymake-mode))))
+  :init
+  (remove-hook 'flymake-diagnostic-functions 'flymake-proc-legacy-flymake)
+  )
+
+(use-package flycheck
+  :init (global-flycheck-mode)
+  :config
+  (setq flycheck-indication-mode nil
+        flycheck-phpcs-standard "PSR12"))
+
+(use-package flycheck-eglot
+  :after flycheck
+  :custom
+  (flycheck-eglot-exclusive nil)
+  :init
+  (global-flycheck-eglot-mode 1))
+
+(provide 'init-lsp)
+;;; init-lsp.el ends here
--- a/configs/init-minibuffer.el
+++ b/configs/init-minibuffer.el
@ -10,25 +10,13 @@

 ;;; Code:

-;; UI para completado
-(use-package vertico
-  :defer t
-  :bind (:map vertico-map
-         ("RET" . vertico-directory-enter)
-         ("DEL" . vertico-directory-delete-char)
-         ("M-DEL" . vertico-directory-delete-word))
-  :hook ((elpaca-after-init . vertico-mode)
-         (elpaca-after-init . savehist-mode) ;; savehist sirve para recordar el último comando de M-x
-         (rfn-eshadow-update-overlay . vertico-directory-tidy)))
-
 ;; Reemplazo para counsel
 (use-package consult
-  :defer t
-  :bind (;; C-c bindings in `mode-specific-map'
-         ("C-s"     . consult-line)
-         ("C-r"     . consult-ripgrep)
-         ("C-S-s"   . isearch-forward)
-         ("C-S-r"   . isearch-backward)
+  :bind (("C-x p"   . project-find-file)
+         ("C-S-s"   . consult-line)
+         ("C-c r g" . consult-ripgrep)
+         ("C-S-r"   . consult-ripgrep)
+         ;; ("C-S-s"   . isearch-forward)
         ("M-m"     . consult-mode-command)
         ("C-c h"   . consult-history)
         ("C-c k"   . consult-kmacro)
@ -38,49 +26,35 @@
         ([remap recentf-open-files] . consult-recent-file)


-         ;; C-x bindings in `ctl-x-map'
         ("C-x M-." . consult-complex-command)     ;; orig. repeat-complex-command
-         ("C-x b"   . consult-buffer)              ;; orig. switch-to-buffer
-         ("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
-         ("C-x 5 b" . consult-buffer-other-frame)  ;; orig. switch-to-buffer-other-frame
-         ("C-x r b" . consult-bookmark)            ;; orig. bookmark-jump
-         ("C-x p b" . consult-project-buffer)      ;; orig. project-switch-to-buffer
+         ("C-c p b" . consult-project-buffer)      ;; orig. project-switch-to-buffer
+         ("C-c p p" . project-switch-project)
+         ;; Consult search
+         ("C-c p f" . consult-find)                  ;; Búsqueda de archivos en todo el projecto incluso en carpetas
+         ("C-c p l" . consult-line-multi)            ;; Búsqueda en todos los buffers del projecto abiertos
         ;; Custom M-# bindings for fast register access
-         ("M-#"   . consult-register-load)
+         ("C-'"   . consult-register-load)
         ("M-'"   . consult-register-store)        ;; orig. abbrev-prefix-mark (unrelated)
-         ("M-¡"   . consult-register)
         ;; Other custom bindings
-         ("M-y" . consult-yank-pop)                ;; orig. yank-pop
+         ("M-y"   . consult-yank-pop)                ;; orig. yank-pop
         ;; M-g bindings in `goto-map'
         ("M-g f" . consult-flymake)               ;; Alternative: consult-flycheck
         ("M-g g" . consult-goto-line)             ;; orig. goto-line
         ("M-g M-g" . consult-goto-line)           ;; orig. goto-line
-         ("M-g o" . consult-outline)               ;; Alternative: consult-org-heading
-         ("M-g m" . consult-mark)
-         ("M-g k" . consult-global-mark)
         ("M-g i" . consult-imenu)
         ("M-g I" . consult-imenu-multi)
-         ;; M-s bindings in `search-map'
-         ("M-s d" . consult-find)
-         ("M-s D" . consult-locate)
-         ("M-s L" . consult-line-multi)
-         ("M-s k" . consult-keep-lines)
-         ("M-s u" . consult-focus-lines)
-         ;; Isearch integration
-         :map isearch-mode-map
-         ("M-e"   . consult-isearch-history)       ;; orig. isearch-edit-string

         ;; Minibuffer history
         :map minibuffer-local-map
-         ("<escape>" . minibuffer-keyboard-quit)
-         ("C-s" . (lambda ()
-                    "Insert the currunt symbol."
-                    (interactive)
-                    (insert (save-excursion
-		                      (set-buffer (window-buffer (minibuffer-selected-window)))
-		                      (or (thing-at-point 'symbol t) "")))))
-         ("M-s" . consult-history)                 ;; orig. next-matching-history-element
-         ("M-r" . consult-history))                ;; orig. previous-matching-history-element
+         ("<escape>" . minibuffer-keyboard-quit) ;; Cacelar minibuffer con escape (más rápido que C-g)
+         ("C-<return>" . newline) ;; Insertar nueva línea estando en el minibufer (Mas rápido que C-q C-j)
+         ("C-S-s" . (lambda ()
+                      "Insert the current symbol."
+                      (interactive)
+                      (insert (save-excursion
+		                        (set-buffer (window-buffer (minibuffer-selected-window)))
+		                        (or (thing-at-point 'symbol t) ""))))) ;; Al presionar por segunda ves C-s busca el símbolo actual.
+         )

  ;; Enable automatic preview at point in the *Completions* buffer. This is
  ;; relevant when you use the default completion UI.
@ -123,25 +97,29 @@
  ;; You may want to use `embark-prefix-help-command' or which-key instead.
  (define-key consult-narrow-map (vconcat consult-narrow-key "?") #'consult-narrow-help))

-;; nerd-icons en ibuffer
-(use-package nerd-icons-ibuffer
-  :defer t
-  :hook (ibuffer-mode . nerd-icons-ibuffer-mode))
-
-;; Integración entre consult y projectile
-(use-package consult-projectile
-  :defer t
-  :bind ("C-x p" . consult-projectile))
-
 ;; Descripciones en el minibufer
 (use-package marginalia
-  :defer t
-  :hook (elpaca-after-init . marginalia-mode))
+  :hook (vertico-mode . marginalia-mode))

-;; Nerd icons para vertico
-(use-package nerd-icons-completion
-  :after nerd-icons
-  :config (nerd-icons-completion-mode))
+;; Todolist de todo el projecto desde consult.
+(use-package consult-todo
+  :demand t
+  :bind ("C-c t" . consult-todo))
+
+;; UI para completado del minibuffer
+(use-package vertico
+  :bind (:map vertico-map
+              ("RET" . vertico-directory-enter)
+              ("DEL" . vertico-directory-delete-char)
+              ("TAB" . minibuffer-complete)
+              ("M-DEL" . vertico-directory-delete-word))
+  :hook ((elpaca-after-init . vertico-mode)
+         (rfn-eshadow-update-overlay . vertico-directory-tidy))
+  :config
+  (setq read-file-name-completion-ignore-case t
+        read-buffer-completion-ignore-case t
+        completion-ignore-case t)
+  )

 (provide 'init-minibuffer)
 ;;; init-minibuffer.el ends here
--- a/configs/init-org.el
+++ b/configs/init-org.el
@ -21,18 +21,13 @@
  "Configuración para el hook de 'org-mode'."

  (display-line-numbers-mode 0)
-  (variable-pitch-mode 1)
  (visual-line-mode 1)
  (visual-fill-column-mode 1)

-  ;; Configuración de fonts
-  ;; (set-face-attribute (car face) nil :font "Cantarell" :weight 'regular :height (cdr face))
+  ;; Configuracin para Systanx Highlight en porg-blocks
+  (add-to-list 'org-src-lang-modes (cons "html" 'mhtml))

-  ;; Ensure that anything that should be fixed-pitch in Org files appears that way
-  ;; (set-face-attribute 'org-hide nil :inherit 'fixed-pitch)
-  ;; (set-face-attribute 'org-block nil :foreground 'unspecified :inherit 'fixed-pitch)
-  ;; (set-face-attribute 'org-code nil   :inherit '(shadow fixed-pitch))
-  (set-face-attribute 'org-block nil :underline nil :foreground nil :background "#1e1f28")
+  (setq org-fontify-quote-and-verse-blocks t) ;; Permitir configuración de bloques quote y verse.
  (set-face-attribute 'org-table nil   :inherit '(shadow fixed-pitch))
  (set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch))
  (set-face-attribute 'org-special-keyword nil :inherit '(font-lock-comment-face fixed-pitch))
@ -45,14 +40,53 @@
                      :strike-through t
                      :foreground "light gray")

+  ;; Embellecer las prioridades
+  (setq org-highest-priority ?A
+        org-default-priority ?B
+        org-lowest-priority  ?D) ;; Cambiar prioridades de A,B,C a A,B,C,D
+  (push '("[#A]" . "⚡" ) prettify-symbols-alist)
+  (push '("[#B]" . "🔥" ) prettify-symbols-alist)
+  (push '("[#C]" . "🐢" ) prettify-symbols-alist)
+  (push '("[#D]" . "☕" ) prettify-symbols-alist)
+  ;; (push '("#+begin_quote" . "❝" ) prettify-symbols-alist)
+  ;; (push '("#+end_quote" . "❞" ) prettify-symbols-alist)
+  ;; (push '("#+begin_export" . "📤" ) prettify-symbols-alist)
+  ;; (push '("#+end_export" . "⎯" ) prettify-symbols-alist)
+  ;; (push '("#+begin_comment" . "📝" ) prettify-symbols-alist)
+  ;; (push '("#+end_comment" . "⎯" ) prettify-symbols-alist)
+  ;; (push '("#+begin_src" . "❯" ) prettify-symbols-alist)
+  ;; (push '("#+end_src" . "⎯" ) prettify-symbols-alist)
+  ;; (push '("#+begin_example" . "🦉" ) prettify-symbols-alist)
+  ;; (push '("#+end_example" . "⎯" ) prettify-symbols-alist)
+  (prettify-symbols-mode)
+
+  ;; Habilitar evaluación de lenguajes en org-mode (babel)
+  (org-babel-do-load-languages 'org-babel-load-languages
+                               (append org-babel-load-languages
+                                       '(
+                                         (C . t)
+                                         (R . t)
+                                         (awk . t)
+                                         (calc . t)
+                                         (clojure . t)
+                                         (go . t)
+                                         (haskell . t)
+                                         (java . t)
+                                         (js . t)
+                                         (php . t)
+                                         (python . t)
+                                         (rust . t)
+                                         (translate . t)
+                                         (shell . t)
+                                         (sql . t)
+                                         )))
+  ;; No solicitar confirmación para evaluar
+  (setq org-confirm-babel-evaluate nil)
  )

 ;; org-mode
 (use-package org
-  :defer t
-  :elpaca nil
-  :bind (("C-c a" . org-agenda)
-         ("C-c c" . org-capture))
+  :ensure nil
  :hook
  (org-mode . kj/org-hook)
  :config
@ -65,7 +99,7 @@
  (setq org-log-into-drawer t)
  (setq org-cycle-separator-lines -1)

-  ;; Identación
+  ;; Indentación
  (setq org-startup-indented t)
  (setq org-src-preserve-indentation nil)
  (setq org-edit-src-content-indentation 0)
@ -79,19 +113,10 @@
        '(("TODO" . "#ff6464")
          ("DOING" . "yellow")
          ("DONE" . "green")
-          ("WAITING" . "orange")
+          ("HOLD" . "orange")
          ("CANCELED" . "#aaa"))
        )

-
-  ;; Embellecer los checkbox
-  ;; (add-hook 'org-mode-hook (lambda ()
-  ;; "Beautify Org Checkbox Symbol"
-  ;; (push '("[ ]" . "☐") prettify-symbols-alist)
-  ;; (push '("[X]" . "☑" ) prettify-symbols-alist)
-  ;; (push '("[-]" . "❍" ) prettify-symbols-alist)
-  ;; (prettify-symbols-mode)))
-
  ;; Tachar los checkbox marcados como terminados
  (defface org-checkbox-done-text
  '((t (:foreground "#71696A" :strike-through t)))
@ -116,18 +141,17 @@
  ;; Guardar los archivos cuando se muevan tareas entre ellos
  (advice-add 'org-refile :after 'org-save-all-org-buffers)

-  (setq org-capture-templates
-        `(("t" "Tareas")
-          ("tt" "Tareas" entry (file+olp "~/Documentos/ORG/Agenda/Tareas.org")
-           "* TODO %? \n %a\n %i" :empty-lines 1)
-          )
-        )
-
  ;; Configuración de imágenes
  (setq org-startup-with-inline-images t) ;; Mostrar por defecto las imágenes
  (setq org-display-remote-inline-images 'cache) ;; Mostrar imágenes remotas
  (setq org-image-actual-width 512)
+  )

+;; Org-yt para soportar embebidos.
+(use-package org-yt
+  :after org
+  :ensure (:host github :repo "TobiasZawada/org-yt")
+  :config
  (defun org-http-image-data-fn (protocol link _description)
    "Interpret LINK as an URL to an image file."
    (when (and (image-type-from-file-name link)
@ -139,24 +163,45 @@
            (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)
  )

 ;; Los head "*" se ven como puntos
 (use-package org-bullets
-  :defer t
  :hook
-  (org-mode . org-bullets-mode))
+  (org-mode . org-bullets-mode)
+  :config
+  (setq org-bullets-bullet-list '("◉"
+                                  "○"
+                                  "●"
+                                  "◈"
+                                  "◇"
+                                  "◆"
+                                  "✸"
+                                  "✳"))
+  )
+
+;; Mejora visualmente varias cosas de org
+(use-package org-modern
+  :hook ((org-mode . org-modern-mode)
+         (org-agenda . org-modern-mode))
+  :config
+  ;; Me gustan varias cosas por defecto, así que desactivo aquí varias de las "mejoras"
+  (setq org-modern-table nil                ;; Mejora visual de las tablas
+        org-modern-table-vertical 1         ;; Grosor de las líneas verticales de las tablas
+        org-modern-table-horizontal 0.2     ;; Grosor de las líneas horizontales de las tablas
+        org-modern-priority nil             ;; Mejora de las prioridades (Arriba ya las puse bonitas con prettyfy-symbols, así que mejor está desactivado)
+        org-modern-todo nil                 ;; Mejora visual a las lista de tareas
+        org-modern-progress nil             ;; Mejora visual a las estadísticas de completado de uan tarea (ej: [50%] o [5/9])
+        org-modern-checkbox nil             ;; Mejora de los checkboxes (a mi parecer se ven más feos, los por defecto ya están bonitos).
+        org-modern-keyword nil              ;; Oculta el "#+" en los keywords de org
+        org-modern-block-name nil           ;; Mejora visual para los org blocks (bloques de código, ejemplo, citas, etc.)
+        org-modern-star nil                 ;; Lista de bullets a usar en los headers (falla si se activa junto a org-bullets).
+        org-modern-list nil)
+  )

 (use-package visual-fill-column
-  :defer t
  :after (org)
  :config
  ;; Tamaño de la columna
@ -169,10 +214,7 @@

 ;; Segundo cerebro: Base de conocimientos en formato Zettelkasten
 (use-package org-roam
-  :defer t
-  :ensure t
-  :bind (("<f4>" . org-roam-node-insert)
-         ("<f3>" . org-roam-node-find))
+  :bind ("<f3>" . org-roam-node-find)
  :init
  (setq org-roam-v2-ack t)
  (setq org-roam-completion-system 'ivy)
@ -184,8 +226,6 @@

 ;; Interface web para navegar en mi base de conocimientos.
 (use-package org-roam-ui
-  :defer t
-  :ensure t
  :config
  (setq org-roam-ui-sync-theme t
        org-roam-ui-follow t
@ -194,24 +234,26 @@

 ;; Continúa el formato de la lista cuando presionas enter.
 (use-package org-autolist
-  :ensure t
  :hook (org-mode . org-autolist-mode))

-;; Emojis en lugar de letras para las prioridades en org-mode.
-(use-package org-fancy-priorities
-  :defer t
-  :ensure t
-  :hook (org-mode . org-fancy-priorities-mode)
-  :config
-  (setq org-highest-priority ?A
-        org-default-priority ?B
-        org-lowest-priority  ?D
-        org-fancy-priorities-list '("⚡" "🔥" "🐢" "☕"))
-  )
+;; Org babel para PHP
+(use-package ob-php)
+
+;; Org babel para GO
+(use-package ob-go)
+
+;; Org babel para Rust
+(use-package ob-rust)
+
+;; Org babel para traducciones (mediante google translate)
+(use-package ob-translate)
+
+;; Autocompletado para los headers de los bloques
+(use-package corg
+  :ensure (:host github :repo "isamert/corg.el"))

 ;; Org mode en modo presentación
 (use-package org-present
-  :defer t
  :after (org)
  :config
  (add-hook 'org-present-mode-hook
@ -237,5 +279,10 @@
              ))
  )

+;; Mostrar los caracteres ocultos de org mode al pasar con el cursor.
+(use-package org-appear
+  ;; :hook (org-mode . org-appear-mode)
+  )
+
 (provide 'init-org)
 ;;; init-org.el ends here
--- a/configs/init-package.el
+++ b/configs/init-package.el
@ -0,0 +1,78 @@
+;;; init-package.el --- Initialize package configurations.	-*- lexical-binding: t -*-
+
+;;; Commentary:
+;;
+;; Emacs Package management configurations.
+;;
+
+;;; Code:
+
+;; Configuración de repositorios de paquetes
+
+(defvar elpaca-installer-version 0.11)
+(defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
+(defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
+(defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
+(defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
+                              :ref nil :depth 1 :inherit ignore
+                              :files (:defaults "elpaca-test.el" (:exclude "extensions"))
+                              :build (:not elpaca--activate-package)))
+(let* ((repo  (expand-file-name "elpaca/" elpaca-repos-directory))
+       (build (expand-file-name "elpaca/" elpaca-builds-directory))
+       (order (cdr elpaca-order))
+       (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 (apply #'call-process `("git" nil ,buffer t "clone"
+                                                  ,@(when-let* ((depth (plist-get order :depth)))
+                                                      (list (format "--depth=%d" depth) "--no-single-branch"))
+                                                  ,(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)
+    (let ((load-source-file-function nil)) (load "./elpaca-autoloads"))))
+(add-hook 'after-init-hook #'elpaca-process-queues)
+(elpaca `(,@elpaca-order))
+
+;; Install use-package support
+(elpaca elpaca-use-package
+  ;; Enable use-package :ensure support for Elpaca.
+  (elpaca-use-package-mode))
+
+;; Should set before loading `use-package'
+(setq use-package-always-ensure t
+      use-package-always-defer t
+      use-package-expand-minimally t
+      use-package-enable-imenu-support t)
+
+;; Required by `use-package'
+(use-package diminish :ensure t)
+
+;; Update GPG keyring for GNU ELPA
+(use-package gnu-elpa-keyring-update)
+
+;; Update packages
+(unless (fboundp 'package-upgrade-all)
+  (use-package auto-package-update
+    :init
+    (setq auto-package-update-delete-old-versions t
+          auto-package-update-hide-results t)
+    (defalias 'package-upgrade-all #'auto-package-update-now)))
+
+
+(provide 'init-package)
+;;; init-package.el ends here
--- a/configs/init-packages.el
+++ b/configs/init-packages.el
@ -1,372 +0,0 @@
-;;; init-packages.el --- Extensiones/paquetes instalados y su configuración 	-*- lexical-binding: t -*-
-
-;; Author: kj <webmaster@outcontrol.net>
-;; URL: https://git.kj2.me/kj/confi-emacs-actual
-
-;;; Commentary:
-
-;; Aquí se encuentran los paquetes de uso general.
-;;
-;; Aquellos de uso más específico, por ejemplo, los que
-;; pertenecen a un lenguaje de programación en específico
-;; estarán en el respectivo archivo de configuración
-;; para dicho uso específico.
-
-;;; Code:
-
-;; Intercamiar buffers de lugar
-(use-package buffer-move
-  :defer t
-  :bind (("M-S-<up>" . buf-move-up)
-         ("M-S-<down>" . buf-move-down)
-         ("M-S-<left>" . buf-move-left)
-         ("M-S-<right>" . buf-move-right))
-  )
-
-;; Mostrar la ayuda de eldoc/documentación en un childframe
-(use-package eldoc-box
-  :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
-  :defer t
-  :bind ("C-+" . er/expand-region))
-
-;; Major mode para archivos CSV
-(use-package csv-mode
-  :defer t
-  :hook ((csv-mode . csv-align-mode)
-         (csv-mode . csv-header-line))
-  )
-
-;; Un bonito y sencillo panel de inicio
-(use-package dashboard
-  :defer t
-  :init
-  (dashboard-setup-startup-hook)
-  :config
-  (setq dashboard-set-file-icons t
-        dashboard-set-heading-icons t
-        dashboard-set-file-icons t
-        dashboard-week-agenda nil
-        dashboard-agenda-time-string-format "%Y-%m-%d %H:%M")
-  (setq dashboard-startup-banner
-        (expand-file-name "duck.svg" user-emacs-directory))
-  (setq dashboard-items '(
-                          (agenda . 10)
-                          ;;(recents . 10)
-                          ))
-  )
-
-;; Sidebar a la derecha con los archivos
-(use-package dired-sidebar
-  :defer t
-  :hook (dired-mode . hl-line-mode)
-  :ensure t
-  :bind ([f9] . dired-sidebar-toggle-sidebar)
-  :commands (dired-sidebar-toggle-sidebar)
-  :config
-  (setq dired-sidebar-theme 'nerd
-        ;; dired-sidebar-should-follow-file t
-        ;; dired-sidebar-follow-file-idle-delay 0.5
-        ))
-
-;; Mover líneas o regiones
-(use-package drag-stuff
-  :defer t
-  :hook
-  (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
-  :ensure t
-  :hook (elpaca-after-init . doom-modeline-mode)
-  :config
-  (setq doom-modeline-project-detection 'auto
-        doom-modeline-buffer-file-name-style 'relative-from-project
-        doom-modeline-major-mode-color-icon t
-        doom-modeline-buffer-modification-icon t
-        doom-modeline-indent-info nil
-        doom-modeline-persp-name t))
-
-;; Emparejamiento automático de comillas, paréntesis, corchetes y llaves
-(use-package electric-pair
-  :defer t
-  :elpaca nil
-  :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
-  :hook
-  (elpaca-after-init . global-git-gutter-mode))
-
-;; Resalta los escapes de secuencia
-(use-package highlight-escape-sequences
-  :defer t
-  :hook (prog-mode . hes-mode)
-  :config
-  (setq hes-mode-alist
-        `((c-mode                . ,hes-c/c++/objc-escape-sequence-re)
-          (c++-mode              . ,hes-c/c++/objc-escape-sequence-re)
-          (objc-mode             . ,hes-c/c++/objc-escape-sequence-re)
-          (go-mode               . ,hes-c/c++/objc-escape-sequence-re)
-          (php-mode              . ,hes-c/c++/objc-escape-sequence-re)
-          (java-mode             . ,hes-java-escape-sequence-re)
-          (clojure-mode          . ,hes-java-escape-sequence-re)
-          (js-mode               . ,hes-js-escape-sequence-re)
-          (js2-mode              . ,hes-js-escape-sequence-re)
-          (ruby-mode             . ,hes-ruby-escape-sequence-keywords)
-          (lisp-mode             . ,hes-elisp-escape-sequence-re)
-          (lisp-interaction-mode . ,hes-elisp-escape-sequence-re)
-          (emacs-lisp-mode       . ,hes-elisp-escape-sequence-re))
-        )
-  )
-
-;; Mostrar lo que se está presionando en pantalla
-(use-package keypression
-  :defer t
-  :config
-  (setq keypression-use-child-frame t
-      keypression-fade-out-delay 1.0
-      keypression-frame-justify 'keypression-left-justified
-      keypression-cast-command-name t
-      keypression-cast-command-name-format "%s  %s"
-      keypression-combine-same-keystrokes t
-      keypression-x-offset 50
-      keypression-y-offset 100
-      keypression-font-face-attribute '(:width normal :height 180 :weight bold))
-  )
-
-;; Generador automatizado de archivos de licencia
-(use-package license-templates
-  :defer t)
-
-;; Magia para git
-(use-package magit
-  :defer t)
-
-;; Modo markdown
-(use-package markdown-mode
-  :defer t)
-
-;; Multiple vterm
-(use-package multi-vterm
-  :defer t
-  :bind* (("<f5>" . multi-vterm-dedicated-toggle)
-          ("C-x tt" . multi-vterm-dedicated-toggle)
-          ("C-x tf" . multi-vterm)
-          ("C-x tp" . multi-vterm-project)
-          ;;("<tab>" . vterm-send-tab)
-          )
-  :ensure t)
-
-;; Iconos bonitos para varias cosas
-(use-package nerd-icons
-  :defer t)
-
-;; Usar nerd-icons en dired
-(use-package nerd-icons-dired
-  :defer t
-  :hook (dired-mode . nerd-icons-dired-mode))
-
-;; Mecanografía
-(use-package speed-type
-  :defer t
-  :diminish
-  :config
-  (setq speed-type-gb-book-list '(66867 66866 66591 57303)
-        speed-type-min-chars 500
-        speed-type-max-chars 600))
-
-;; Des-minifica / ordena el código
-(use-package prettier
-  :defer t)
-
-;; Paquete para manejo de proyectos
-(use-package projectile
-  :defer t
-  :bind ("C-c p" . projectile-command-map)
-  :hook (elpaca-after-init . projectile-mode)
-  :init
-  (setq projectile-mode-line-prefix ""
-        projectile-sort-order 'recentf
-        projectile-use-git-grep t)
-  :config
-  ;; Rutas de archivos temporales.
-  (setq projectile-cache-file (expand-file-name "projectile.cache" temp-dir))
-  (setq projectile-known-projects-file (expand-file-name
-                                        "projectile-bookmarks.eld" temp-dir))
-
-  ;; Cambiar el título de la ventana de emacs
-  (setq frame-title-format
-        '(
-          (:eval
-           (let ((project-name (projectile-project-name)))
-             (unless (string= "-" project-name)
-               (format "[%s] " project-name))))
-          "%b"
-          " - Emacs")
-        )
-
-
-  (defun projectile-desktop-save-hook ()
-    "Nombres de los archivos de desktop-save según el nombre del proyecto."
-    (setq desktop-hash
-          (secure-hash 'md5 (concat (projectile-project-root))))
-
-    (setq
-     desktop-base-file-name (concat ".emacs-" desktop-hash ".desktop")
-     desktop-base-lock-name (concat ".emacs-" desktop-hash ".desktop" ".lock"))
-    )
-
-  (add-hook 'projectile-after-switch-project-hook #'projectile-desktop-save-hook)
-  )
-
-;; Recentf - Guarda registro de los archivos abiertos recientemente
-(use-package recentf
-  :defer t
-  :elpaca nil
-  :bind ("C-x C-r" . recentf-open-files)
-  :config
-  (setq recentf-save-file
-        (recentf-expand-file-name (concat temp-dir "/recentf")))
-  (recentf-mode 1))
-
-;; Busqueda rápida con ripgrep
-(use-package rg
-  :defer t
-  :defines projectile-command-map
-  :hook (elpaca-after-init . rg-enable-default-bindings)
-  :bind (:map rg-global-map
-         ("c" . rg-dwim-current-dir)
-         ("f" . rg-dwim-current-file)
-         ("m" . rg-menu))
-  :init (setq rg-group-result t
-              rg-show-columns t)
-  :config
-  (cl-pushnew '("tmpl" . "*.tmpl") rg-custom-type-aliases)
-
-  (with-eval-after-load 'projectile
-    (bind-key "s R" #'rg-project projectile-command-map)))
-
-;; Guardar la posición del cursor en un archivo para volver allí cuando se lo vuelva a abrir.
-(use-package saveplace
-  :elpaca nil
-  :hook (elpaca-after-init . save-place-mode)
-  :config
-  (setq save-place-file (locate-user-emacs-file (concat temp-dir "/places"))))
-
-;; Paquete para crear imágens (solo lo uso para sacar capturas SVG de emacs)
-(use-package silicon
-  :ensure t
-  :defer t
-  :elpaca (:host github :repo "iensu/silicon-el"))
-
-;; Mejorando el scroll
-(use-package smooth-scrolling
-  :defer t
-  :hook (elpaca-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
-  (setq mouse-wheel-progressive-speed nil)     ; Deshabilita la velocidad progresiva del scroll (mientras más scroll haces, mas rápido va)
-  )
-
-;; Ayuda a manipular los archivos con líneas demasiado largas
-(use-package so-long
-  :defer t
-  :elpaca nil
-  :bind (:map so-long-mode-map
-              ("C-s"    . isearch-forward)
-              ("C-r"    . isearch-backward))
-  :config
-  (setq so-long-variable-overrides
-        '((bidi-inhibit-bpa . t)
-          (bidi-paragraph-direction . left-to-right)
-          (buffer-read-only . nil)
-          (global-hl-line-mode . nil)
-          (line-move-visual . t)
-          (show-paren-mode . nil)
-          (truncate-lines . nil)
-          (which-func-mode . nil)))
-  )
-
-;; Tree-sitter :)
-(use-package treesit
-  :defer t
-  :elpaca nil
-  :commands (treesit-install-language-grammar nf/treesit-install-all-languages)
-  :config
-  (setq treesit-language-source-alist
-        '((bash       . ("https://github.com/tree-sitter/tree-sitter-bash"))
-          (c          . ("https://github.com/tree-sitter/tree-sitter-c"))
-          (cpp        . ("https://github.com/tree-sitter/tree-sitter-cpp"))
-          (css        . ("https://github.com/tree-sitter/tree-sitter-css"))
-          (go         . ("https://github.com/tree-sitter/tree-sitter-go"))
-          (haskell    . ("https://github.com/tree-sitter/tree-sitter-haskell"))
-          (html       . ("https://github.com/tree-sitter/tree-sitter-html"))
-          (java       . ("https://github.com/tree-sitter/tree-sitter-java"))
-          (javascript . ("https://github.com/tree-sitter/tree-sitter-javascript"))
-          (json       . ("https://github.com/tree-sitter/tree-sitter-json"))
-          (julia      . ("https://github.com/tree-sitter/tree-sitter-julia"))
-          (lua        . ("https://github.com/Azganoth/tree-sitter-lua"))
-          (make       . ("https://github.com/alemuller/tree-sitter-make"))
-          (python     . ("https://github.com/tree-sitter/tree-sitter-python"))
-          (php        . ("https://github.com/tree-sitter/tree-sitter-php"))
-          (ruby       . ("https://github.com/tree-sitter/tree-sitter-ruby"))
-          (rust       . ("https://github.com/tree-sitter/tree-sitter-rust"))
-          (sql        . ("https://github.com/m-novikov/tree-sitter-sql"))
-          (toml       . ("https://github.com/tree-sitter/tree-sitter-toml"))
-          (zig        . ("https://github.com/GrayJack/tree-sitter-zig"))))
-  (defun nf/treesit-install-all-languages ()
-    "Install all languages specified by `treesit-language-source-alist'."
-    (interactive)
-    (let ((languages (mapcar 'car treesit-language-source-alist)))
-      (dolist (lang languages)
-	(treesit-install-language-grammar lang)
-	(message "`%s' parser was installed." lang)
-	(sit-for 0.75)))))
-
-;; Cuando presionas enter en un bloque de comentario sigue el estilo del bloque.
-(use-package 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
-  :defer t
-  :bind (("C-c v" . vc-msg-show)
-         ("C-c C-v" . vc-msg-show))
-  )
-
-;; Terminal
-(use-package vterm
-  :ensure t
-  :defer t)
-
-;; Cuando iniicias un atajo de teclas te muestra las posibilidades
-(use-package which-key
-  :defer t
-  :hook (elpaca-after-init . which-key-mode))
-
-;; Restaurar el estado de los frames
-(use-package winner
-  :elpaca nil
-  :defer t
-  :hook (elpaca-after-init . winner-mode))
-
-;; Emacs Start Up Profiler
-(use-package esup
-  :defer t)
-
-(provide 'init-packages)
-;;; init-packages.el ends here
--- a/configs/init-prog.el
+++ b/configs/init-prog.el
@ -0,0 +1,190 @@
+;; init-prog.el --- Initialize programming configurations.	-*- lexical-binding: t -*-
+
+;; Author: kj <webmaster@outcontrol.net>
+;; URL: https://git.kj2.me/kj/confi-emacs-actual
+
+;;; Commentary:
+;;
+;; General programming configurations.
+;;
+
+;;; Code:
+
+;; Mostrar la ayuda de eldoc/documentación en un childframe
+(use-package eldoc-box
+  :defer t
+  :bind ("<f1>" . eldoc-box-help-at-point))
+
+;; Cambiar fácilmente entre naming conventions (camel, pascal, kebab, snake, etc.)
+(use-package string-inflection)
+
+;; Code folding indicators using Tree-sitter
+(use-package treesit-fold-indicators
+  :ensure treesit-fold
+  :hook (after-init . global-treesit-fold-indicators-mode)
+  :init (setq treesit-fold-indicators-priority -1))
+
+;; Cross-referencing commands
+(use-package xref
+  :autoload xref-show-definitions-completing-read
+  :bind (("M-g ." . xref-find-definitions)
+         ("M-g ," . xref-go-back))
+  :init
+  ;; Use faster search tool
+  (when (executable-find "rg")
+    (setq xref-search-program 'ripgrep))
+
+  ;; Select from xref candidates in minibuffer
+  (setq xref-show-definitions-function #'xref-show-definitions-completing-read
+        xref-show-xrefs-function #'xref-show-definitions-completing-read))
+
+;; Code styles
+;; (use-package editorconfig
+;;   :diminish
+;;   :hook (elpaca-after-init . editorconfig-mode))
+
+;; Correr el código desde el buffer de emacs
+(use-package quickrun
+  :bind (("C-<f5>" . quickrun)
+         ("C-S-<f5>"  . quickrun-region)))
+
+;; Busqueda rápida con ripgrep
+(use-package rg
+  :bind (:map rg-global-map
+         ("c" . rg-dwim-current-dir)
+         ("f" . rg-dwim-current-file)
+         ("m" . rg-menu))
+  :config
+  (setq rg-group-result t
+        rg-show-columns t)
+  (cl-pushnew '("tmpl" . "*.tmpl") rg-custom-type-aliases))
+
+;; Tree-sitter :)
+(use-package treesit
+  :ensure nil
+  :commands (treesit-install-language-grammar nf/treesit-install-all-languages)
+  :config
+  (setq treesit-language-source-alist
+        '((bash       . ("https://github.com/tree-sitter/tree-sitter-bash"))
+          (c          . ("https://github.com/tree-sitter/tree-sitter-c"))
+          (cpp        . ("https://github.com/tree-sitter/tree-sitter-cpp"))
+          (css        . ("https://github.com/tree-sitter/tree-sitter-css"))
+          (go         . ("https://github.com/tree-sitter/tree-sitter-go"))
+          (haskell    . ("https://github.com/tree-sitter/tree-sitter-haskell"))
+          (html       . ("https://github.com/tree-sitter/tree-sitter-html"))
+          (java       . ("https://github.com/tree-sitter/tree-sitter-java"))
+          (javascript . ("https://github.com/tree-sitter/tree-sitter-javascript"))
+          (jsdoc      . ("https://github.com/tree-sitter/tree-sitter-jsdoc"))
+          (json       . ("https://github.com/tree-sitter/tree-sitter-json"))
+          (julia      . ("https://github.com/tree-sitter/tree-sitter-julia"))
+          (lua        . ("https://github.com/Azganoth/tree-sitter-lua"))
+          (make       . ("https://github.com/alemuller/tree-sitter-make"))
+          (python     . ("https://github.com/tree-sitter/tree-sitter-python"))
+          (php        . ("https://github.com/tree-sitter/tree-sitter-php" "master" "php/src"))
+          (phpdoc     . ("https://github.com/claytonrcarter/tree-sitter-phpdoc"))
+          (ruby       . ("https://github.com/tree-sitter/tree-sitter-ruby"))
+          (rust       . ("https://github.com/tree-sitter/tree-sitter-rust"))
+          (sql        . ("https://github.com/m-novikov/tree-sitter-sql"))
+          (toml       . ("https://github.com/tree-sitter/tree-sitter-toml"))
+          (tsx        . ("https://github.com/tree-sitter/tree-sitter-typescript" "master" "tsx/src"))
+          (typescript . ("https://github.com/tree-sitter/tree-sitter-typescript" "master" "typescript/src"))
+          (zig        . ("https://github.com/GrayJack/tree-sitter-zig"))))
+  (defun nf/treesit-install-all-languages ()
+    "Install all languages specified by `treesit-language-source-alist'."
+    (interactive)
+    (let ((languages (mapcar 'car treesit-language-source-alist)))
+      (dolist (lang languages)
+	    (treesit-install-language-grammar lang)
+	    (message "`%s' parser was installed." lang)
+	    (sit-for 0.75)))))
+
+;; Browse devdocs.io documents using EWW
+(use-package devdocs
+  :autoload (devdocs--installed-docs devdocs--available-docs)
+  :commands (devdocs-install devdocs-lookup)
+  :bind (:map prog-mode-map
+              ("M-<f1>" . devdocs-dwim))
+  :init
+  (setq devdocs-data-dir (expand-file-name "devdocs" user-emacs-directory))
+  (defun devdocs-dwim()
+    "Look up a DevDocs documentation entry.
+Install the doc if it's not installed."
+    (interactive)
+    ;; Install the doc if it's not installed
+    (lambda (slug)
+      (unless (member slug (let ((default-directory devdocs-data-dir))
+                             (seq-filter #'file-directory-p
+                                         (when (file-directory-p devdocs-data-dir)
+                                           (directory-files "." nil "^[^.]")))))
+        (mapc
+         (lambda (doc)
+           (when (string= (alist-get 'slug doc) slug)
+             (devdocs-install doc)))
+         (devdocs--available-docs))))
+
+    ;; Lookup the symbol at point
+    (devdocs-lookup nil (thing-at-point 'symbol t))))
+
+;; ---------------------------------------------------------------------------
+;; Miscellaneous Programming Modes
+;; ---------------------------------------------------------------------------
+(use-package cmake-mode)
+(use-package nginx-mode) ; Modo para leer archivos de configuración de nginx
+
+(use-package sql
+  :ensure nil
+  :hook (sql-interactive-mode . toggle-truncate-lines)
+  :config
+  (setq sql-mysql-login-params (append sql-mysql-login-params '(port))) ;; request port also
+  (setq sql-user "root")        ;; user por defecto
+  (setq sql-server "127.0.0.1") ;; host por defecto
+  (setq sql-port 3306)          ;; puerto por defecto para mysql
+  )
+
+;; Major mode para archivos CSV
+(use-package csv-mode
+  ;; :hook ((csv-mode . csv-align-mode)
+  ;;        (csv-mode . csv-header-line))
+  )
+
+;; Modo markdown
+(use-package markdown-mode)
+
+;; Modo para edición de arc docker compose
+(use-package docker-compose-mode)
+
+;; Modo para la edición de archivos Dockerfile (y building desde emacs)
+(use-package dockerfile-mode
+  :config
+  ;; Suelo tener podman siempre en lugar de docker, así que lo definimos como el comando a usar
+  (setq dockerfile-mode-command "podman"))
+
+;; Configuración para project.el
+(use-package project
+  :ensure nil
+  :config
+  ;; Colocamos un título del frame más bonito y útil que el por defecto
+  (setq frame-title-format
+        '(
+          (:eval
+           (let ((project-name (kj/project-name)))
+             (unless (null project-name)
+               (format "[%s] " project-name))))
+          "%b"
+          " - Emacs")
+        )
+  )
+
+(use-package prettier
+  :diminish
+  :defines prettier-pre-warm
+  :hook ((js-base-mode css-mode sgml-mode web-mode) . prettier-mode)
+  :init (setq prettier-pre-warm 'none))
+
+(use-package subword
+  :ensure nil
+  :init
+  (global-subword-mode 1))
+
+(provide 'init-prog)
+;;; init-prog.el ends here
--- a/configs/init-theme.el
+++ b/configs/init-theme.el
@ -0,0 +1,33 @@
+;;; init-theme.el --- Carga del theme -*- lexical-binding: t -*-
+
+;; Author: kj <webmaster@outcontrol.net>
+;; URL: https://git.kj2.me/kj/confi-emacs-actual
+
+;;; Commentary:
+
+;; Desde aquí se puede cambiar la configuración de themes es posible
+;; activar o desactivar los themes comentando o descomentando las
+;; líneas que lo configuran.
+
+;;; Code:
+
+;; Theme dracula (https://draculatheme.com/) // aún lo tengo en l config porque a Ney le gusta
+(use-package dracula-theme)
+
+;; El theme más cercano a adwaita dark que he encontrado
+(use-package adwaita-dark-theme)
+
+;; Themes modus, vienen integrado en emacs en master (~v30)
+(use-package modus-themes)
+
+;; Themes ef
+(use-package ef-themes
+  :init
+  (load-theme 'ef-dream t))
+
+;; Los themes que recomiendo:
+;; Oscuros: adwaita-dark y ef-dream
+;; Claros: modus-operandi-tinted y ef-day
+
+(provide 'init-theme)
+;;; init-theme.el ends here
--- a/configs/init-treemacs.el
+++ b/configs/init-treemacs.el
@ -1,63 +0,0 @@
-;;; init-treemacs.el --- Extensiones/paquetes instalados y su configuración 	-*- lexical-binding: t -*-
-
-;; Author: kj <webmaster@outcontrol.net>
-;; URL: https://git.kj2.me/kj/confi-emacs-actual
-
-;;; Commentary:
-
-;; Aquí se encuentran las configuraciones y paquetes relacionados
-;; con treemacs.
-;;
-;; treemacs es esa barra lateral con los archivos en modo árbol.
-
-;;; Code:
-
-(use-package treemacs
-  :defer t
-  :straight t
-  :commands (treemacs-follow-mode
-             treemacs-filewatch-mode
-             treemacs-fringe-indicator-mode
-             treemacs-git-mode)
-  :custom-face
-  (cfrs-border-color ((t (:background ,(face-foreground 'font-lock-comment-face nil t)))))
-  :bind (([f9]        . treemacs)
-         ([f8]        . treemacs-display-current-project-exclusively)
-         :map treemacs-mode-map
-         ([mouse-1]   . treemacs-single-click-expand-action))
-  :config
-  (setq treemacs-collapse-dirs           (if treemacs-python-executable 3 0)
-        treemacs-missing-project-action  'remove
-        treemacs-sorting                 'alphabetic-asc
-        treemacs-follow-after-init       t
-        treemacs-width                   30)
-  :config
-  (treemacs-follow-mode t)
-  (treemacs-filewatch-mode t)
-  (pcase (cons (not (null (executable-find "git")))
-               (not (null (executable-find "python3"))))
-    (`(t . t)
-     (treemacs-git-mode 'deferred))
-    (`(t . _)
-     (treemacs-git-mode 'simple))))
-
-(use-package treemacs-projectile
-  :defer t
-  :straight t
-  :after (treemacs projectile)
-  :bind (:map projectile-command-map
-              ("h" . treemacs-projectile)))
-
-(use-package treemacs-magit
-  :defer t
-  :straight t
-  :after magit
-  :commands treemacs-magit--schedule-update
-  :hook ((magit-post-commit
-          git-commit-post-finish
-          magit-post-stage
-          magit-post-unstage)
-         . treemacs-magit--schedule-update))
-
-(provide 'init-treemacs)
-;;; init-treemacs.el ends here
--- a/configs/init-ui.el
+++ b/configs/init-ui.el
@ -0,0 +1,128 @@
+;; init-ui.el --- Better lookings and appearances.	-*- lexical-binding: t -*-
+
+;; Author: kj <webmaster@outcontrol.net>
+;; URL: https://git.kj2.me/kj/confi-emacs-actual
+
+;;; Commentary:
+;;
+;; Visual (UI) configurations for better lookings and appearances.
+;;
+
+;;; Code:
+
+;; Optimization
+(setq idle-update-delay 1.0)
+
+(setq-default cursor-in-non-selected-windows nil)
+(setq highlight-nonselected-windows nil)
+
+(setq fast-but-imprecise-scrolling t)
+(setq redisplay-skip-fontification-on-input t)
+
+;; Sidebar a la derecha con los archivos
+(use-package dired-sidebar
+  :hook (dired-mode . hl-line-mode)
+  :bind ([f9] . dired-sidebar-toggle-sidebar)
+  :commands (dired-sidebar-toggle-sidebar)
+  :config
+  (setq dired-sidebar-theme 'nerd
+        dired-sidebar-window-fixed nil
+        ;; dired-sidebar-should-follow-file t
+        ;; dired-sidebar-follow-file-idle-delay 0.5
+        ))
+
+
+;; Show line numbers
+(use-package display-line-numbers
+  :ensure nil
+  :hook ((prog-mode
+          conf-mode toml-ts-mode
+          yaml-mode yaml-ts-mode)
+         . display-line-numbers-mode)
+  :init (setq display-line-numbers-width-start t))
+
+;; Suppress GUI features
+(setq use-file-dialog nil
+      use-dialog-box nil
+      inhibit-startup-screen t
+      inhibit-startup-echo-area-message user-login-name
+      inhibit-default-init t
+      initial-scratch-message nil)
+(unless (daemonp)
+  (advice-add #'display-startup-echo-area-message :override #'ignore))
+
+;; Display dividers between windows
+(setq window-divider-default-places t
+      window-divider-default-bottom-width 1
+      window-divider-default-right-width 1)
+(add-hook 'window-setup-hook #'window-divider-mode)
+
+
+;; Mouse & Smooth Scroll
+;; Scroll one line at a time (less "jumpy" than defaults)
+(when (display-graphic-p)
+  (setq mouse-wheel-scroll-amount '(1 ((shift) . hscroll))
+        mouse-wheel-scroll-amount-horizontal 1
+        mouse-wheel-progressive-speed nil))
+(setq scroll-step 1
+      scroll-margin 0
+      scroll-conservatively 100000
+      auto-window-vscroll nil
+      scroll-preserve-screen-position t)
+
+;; Smooth scrolling
+(use-package ultra-scroll
+  :hook (elpaca-after-init . ultra-scroll-mode))
+
+;; Use fixed pitch where it's sensible
+(use-package mixed-pitch
+  :diminish)
+
+;; Display ugly ^L page breaks as tidy horizontal lines
+(use-package page-break-lines
+  :diminish
+  :hook (elpaca-after-init . global-page-break-lines-mode)
+  :config (dolist (mode '(dashboard-mode emacs-news-mode))
+            (add-to-list 'page-break-lines-modes mode)))
+
+;; La línea bonita esa de abajo
+(use-package doom-modeline
+  :init
+  (doom-modeline-mode)
+  (setq doom-modeline-project-detection 'auto
+        doom-modeline-buffer-file-name-style 'relative-from-project
+        doom-modeline-major-mode-color-icon t
+        doom-modeline-buffer-modification-icon t
+        doom-modeline-indent-info nil
+        doom-modeline-persp-name t))
+
+(use-package hide-mode-line
+  :autoload turn-off-hide-mode-line-mode
+  :hook (((eat-mode
+           eshell-mode shell-mode
+           term-mode vterm-mode
+           embark-collect-mode lsp-ui-imenu-mode
+           pdf-annot-list-mode) . turn-on-hide-mode-line-mode)))
+
+;; A minor-mode menu for mode-line
+(use-package minions
+  :hook (elpaca-after-init . minions-mode))
+
+;; Iconos bonitos para varias cosas
+(use-package nerd-icons)
+
+;; nerd-icons en ibuffer
+(use-package nerd-icons-ibuffer
+  :hook (ibuffer-mode . nerd-icons-ibuffer-mode))
+
+;; Nerd icons para vertico
+(use-package nerd-icons-completion
+  :hook (vertico-mode . nerd-icons-completion-mode))
+
+;; Usar nerd-icons en dired
+(use-package nerd-icons-dired
+  :after nerd-icons
+  :hook (dired-mode . nerd-icons-dired-mode))
+
+(provide 'init-ui)
+;;; init-ui.el ends here
--- a/configs/init-utils.el
+++ b/configs/init-utils.el
@ -0,0 +1,209 @@
+;; init-utils.el --- Initialize ultilities.	-*- lexical-binding: t -*-
+
+;; Author: kj <webmaster@outcontrol.net>
+;; URL: https://git.kj2.me/kj/confi-emacs-actual
+
+;;; Commentary:
+;;
+;; Some usefule Utilities.
+;;
+
+;;; Code:
+
+;; Mejora del reemplazo
+(use-package anzu
+  :bind (([remap query-replace] . anzu-query-replace)
+         ([remap query-replace-regexp] . anzu-query-replace-regexp)))
+
+;; Intercamiar buffers de lugar
+(use-package buffer-move
+  :bind (("M-S-<up>" . buf-move-up)
+         ("M-S-<down>" . buf-move-down)
+         ("M-S-<left>" . buf-move-left)
+         ("M-S-<right>" . buf-move-right))
+  )
+
+;; Cuando inicias un atajo de teclas te muestra las posibilidades
+(use-package which-key
+  :diminish
+  :init (setq which-key-max-description-length 30
+              which-key-lighter nil
+              which-key-show-remaining-keys t)
+  :hook ( elpaca-after-init . which-key-mode))
+
+;; Process
+(use-package proced
+  :ensure nil
+  :init
+  (setq-default proced-format 'verbose)
+  (setq proced-auto-update-flag t
+        proced-auto-update-interval 3
+        proced-enable-color-flag t))
+
+;; Paquete para exportar buffers de emacs a HTML
+(use-package htmlize)
+
+;; eww
+(use-package eww
+  :ensure nil
+  :init
+  ;; Install: npm install -g readability-cli
+  (when (executable-find "readable")
+    (setq eww-retrieve-command '("readable"))))
+
+;; Restaurar el estado de los frames
+(use-package winner
+  :ensure nil
+  :bind (("s-u" . winner-undo)
+         ("s-U" . winner-redo))
+  :config
+  (winner-mode))
+
+;; Moverme entre frames
+(use-package windmove
+  :ensure nil
+  :bind (("s-K" . windmove-up)
+         ("s-J" . windmove-down)
+         ("s-H" . windmove-left)
+         ("s-L" . windmove-right)
+         ("s-O" . other-window)))
+
+;; Terminal
+(use-package vterm
+  :config
+  (setq tramp-histfile-override nil)                  ;; Dejamos que se use el history por defecto del servidor remoto
+  (setq vterm-tramp-shells '(("ssh" "/bin/bash")
+                             ("sshx" "/bin/bash")
+                             ("docker" "/bin/bash")
+                             ("podman" "/bin/bash"))) ;; Tanto docker como podman usarán bash cuado se contecte mediante tramp
+  )
+
+;; Multiple vterm
+(use-package multi-vterm
+  :bind (("<f5>" . multi-vterm-dedicated-toggle)
+         ("C-x tt" . multi-vterm-dedicated-toggle)
+         ("C-x tf" . multi-vterm)
+         ("C-x tp" . multi-vterm-project)
+         ;;("<tab>" . vterm-send-tab)
+         ))
+
+;; Mecanografía
+(use-package speed-type
+  :hook
+  (speed-type-mode . (lambda ()
+                       (corfu-mode 0)
+                       (display-line-numbers-mode 0)
+                       (visual-line-mode 1)
+                       (visual-fill-column-mode 1)))
+  :diminish
+  :config
+  (setq speed-type-gb-book-list '(66867 66866 66591 57303 15725 24536)
+        speed-type-min-chars 300
+        speed-type-max-chars 600))
+
+;; Mostrar lo que se está presionando en pantalla
+(use-package keypression
+  :config
+  (setq keypression-use-child-frame t
+        keypression-fade-out-delay 1.0
+        keypression-frame-justify 'keypression-left-justified
+        keypression-cast-command-name t
+        keypression-cast-command-name-format "%s  %s"
+        keypression-combine-same-keystrokes t
+        keypression-x-offset 50
+        keypression-y-offset 100
+        keypression-font-face-attribute '(:width normal :height 180 :weight bold))
+  )
+
+;; Un bonito y sencillo panel de inicio
+(use-package dashboard
+  ;; :init
+  ;; (dashboard-setup-startup-hook)
+  :diminish dashboard-mode
+  :custom-face
+  (dashboard-heading ((t (:inherit (font-lock-string-face bold)))))
+  (dashboard-items-face ((t (:weight normal))))
+  (dashboard-no-items-face ((t (:weight normal))))
+  :config
+  (setq dashboard-set-file-icons t
+        dashboard-set-heading-icons t
+        dashboard-set-file-icons t
+        dashboard-week-agenda nil
+        dashboard-agenda-time-string-format "%Y-%m-%d %H:%M")
+  (setq dashboard-startup-banner
+        (expand-file-name "duck.svg" user-emacs-directory))
+  (setq dashboard-items '(
+                          ;; (recents . 10)
+                          (agenda . 10)
+                          ))
+  )
+
+;; Hydra - Permite crear conjuntos de atajos.
+(use-package hydra
+  :defines posframe-border-width
+  :functions childframe-workable-p
+  :hook (emacs-lisp-mode . hydra-add-imenu)
+  )
+
+;; Pretty-Hydra - Su nombre ya indica lo que hace
+(use-package pretty-hydra
+  :bind ("<f6>" . toggles-hydra/body)
+  :hook (emacs-lisp-mode . (lambda ()
+                             (add-to-list
+                              'imenu-generic-expression
+                              '("Hydras"
+                                "^.*(\\(pretty-hydra-define\\) \\([a-zA-Z-]+\\)"
+                                2))))
+  :init
+  (cl-defun pretty-hydra-title (title &optional icon-type icon-name
+                                      &key face height v-adjust)
+    "Add an icon in the hydra title."
+    (let ((face (or face 'mode-line-emphasis))
+          (height (or height 1.2))
+          (v-adjust (or v-adjust 0.0)))
+      (concat
+       (when (and icon-type icon-name)
+         (let ((f (intern (format "nerd-icons-%s" icon-type))))
+           (when (fboundp f)
+             (concat
+              (apply f (list icon-name :face face :height height :v-adjust v-adjust))
+              " "))))
+       (propertize title 'face face))))
+
+  ;; Global toggles
+  (with-no-warnings
+    (pretty-hydra-define toggles-hydra (:title (pretty-hydra-title "Toggles" 'faicon "nf-fa-toggle_on")
+                                               :color pink :quit-key ("q" "C-g"))
+      ("Basic"
+       (("n" (cond ((fboundp 'display-line-numbers-mode)
+                    (display-line-numbers-mode (if display-line-numbers-mode -1 1)))
+                   ((fboundp 'gblobal-linum-mode)
+                    (global-linum-mode (if global-linum-mode -1 1))))
+         "line number"
+         :toggle (or (bound-and-true-p display-line-numbers-mode)
+                     (bound-and-true-p global-linum-mode)))
+        ("a" global-aggressive-indent-mode "aggressive indent" :toggle t)
+        ("d" global-hungry-delete-mode "hungry delete" :toggle t)
+        ("e" electric-pair-mode "electric pair" :toggle t)
+        ("s" prettify-symbols-mode "pretty symbol" :toggle t)
+        ("h" display-time-mode "time" :toggle t)
+        ("i" indent-bars-mode "indent bars" :toggle t))
+       "Highlight"
+       (("l" global-hl-line-mode "line" :toggle t)
+        ("p" show-paren-mode "brackets pairs" :toggle t)
+        ("b" global-blamer-mode "Git blamer" :toggle t)
+        ("r" rainbow-delimiters-mode "rainbow brackets" :toggle t)
+        ("w" global-display-fill-column-indicator-mode "fill column indicator" :toggle t)
+        ("t" global-hl-todo-mode "todo" :toggle t))
+       "Program"
+       (("F" flymake-mode "flymake" :toggle t)
+        ("f" flyspell-mode "spell check" :toggle t)
+        ("u" subword-mode "subword" :toggle t)
+        ("v" global-diff-hl-mode "gutter" :toggle t)
+        ("V" diff-hl-flydiff-mode "live gutter" :toggle t)
+        ("M" diff-hl-margin-mode "margin gutter" :toggle t)
+        ("D" diff-hl-dired-mode "dired gutter" :toggle t))
+       ))))
+
+(provide 'init-utils)
+;;; init-utils.el ends here
--- a/configs/init-vc.el
+++ b/configs/init-vc.el
@ -0,0 +1,150 @@
+;;; init-vc.el --- Configuración del control de versiones  -*- lexical-binding: t -*-
+
+;; Author: kj <webmaster@outcontrol.net>
+;; URL: https://git.kj2.me/kj/confi-emacs-actual
+
+;;; Commentary:
+
+;; Archivo de configuración específico para el control de versiones.
+;;
+;; Puedes que hoy en día la norma es usar git para este trabajo,
+;; la gran mayoría de configuraciones son justamente para el mismo.
+
+
+;;; Code:
+
+;; Mostrar el commit de la línea actual
+(use-package blamer
+  :ensure t
+  :bind ("C-c i" . blamer-show-posframe-commit-info))
+
+;; Resolver diferencias entre 2 archivos o versiones del mismo.
+(use-package ediff
+  :ensure nil
+  :config
+  (setq ediff-diff-options "")
+  (setq ediff-custom-diff-options "-u")
+  (setq ediff-window-setup-function 'ediff-setup-windows-plain)
+  (setq ediff-split-window-function 'split-window-vertically))
+
+;; Marca a la izq. si una linea ha sido agregada, editada o eliminada desde el último commit.
+(use-package diff-hl
+  :custom (diff-hl-draw-borders nil)
+  :autoload diff-hl-flydiff-mode
+  :custom-face
+  (diff-hl-change ((t (:inherit custom-changed :foreground unspecified :background unspecified))))
+  (diff-hl-insert ((t (:inherit diff-added :background unspecified))))
+  (diff-hl-delete ((t (:inherit diff-removed :background unspecified))))
+  :bind (:map diff-hl-command-map
+              ("SPC" . diff-hl-mark-hunk))
+  :hook ((elpaca-after-init . global-diff-hl-mode)
+         (elpaca-after-init . global-diff-hl-show-hunk-mouse-mode)
+         (dired-mode . diff-hl-dired-mode))
+  :config
+  ;; Highlight on-the-fly
+  (diff-hl-flydiff-mode 1)
+
+  ;; Set fringe style
+  (setq-default fringes-outside-margins t)
+
+  (with-no-warnings
+    (unless (display-graphic-p)
+      ;; Fall back to the display margin since the fringe is unavailable in tty
+      (diff-hl-margin-mode 1)
+      ;; Avoid restoring `diff-hl-margin-mode'
+      (with-eval-after-load 'desktop
+        (add-to-list 'desktop-minor-mode-table
+                     '(diff-hl-margin-mode nil))))
+
+    ;; Integration with magit
+    (with-eval-after-load 'magit
+      (add-hook 'magit-pre-refresh-hook #'diff-hl-magit-pre-refresh)
+      (add-hook 'magit-post-refresh-hook #'diff-hl-magit-post-refresh))))
+
+;; Visitar rápidamente viejas versiones de un archivo rápidamente
+(use-package git-timemachine
+  :custom-face
+  (git-timemachine-minibuffer-author-face ((t (:inherit success :foreground unspecified))))
+  (git-timemachine-minibuffer-detail-face ((t (:inherit warning :foreground unspecified))))
+  :bind (:map vc-prefix-map
+         ("t" . git-timemachine))
+  :hook ((git-timemachine-mode . (lambda ()
+                                   "Improve `git-timemachine' buffers."
+                                   ;; Display different colors in mode-line
+                                   (if (facep 'mode-line-active)
+                                       (face-remap-add-relative 'mode-line-active 'custom-state)
+                                     (face-remap-add-relative 'mode-line 'custom-state))
+
+                                   ;; Highlight symbols in elisp
+                                   (and (derived-mode-p 'emacs-lisp-mode)
+                                        (fboundp 'highlight-defined-mode)
+                                        (highlight-defined-mode t))
+
+                                   ;; Display line numbers
+                                   (and (derived-mode-p 'prog-mode 'yaml-mode)
+                                        (fboundp 'display-line-numbers-mode)
+                                        (display-line-numbers-mode t))))
+         (before-revert . (lambda ()
+                            (when (bound-and-true-p git-timemachine-mode)
+                              (user-error "Cannot revert the timemachine buffer"))))))
+
+;; Generador automatizado de archivos de licencia
+(use-package license-templates)
+
+;; Magia para git
+(use-package magit
+  :config
+  (setq magit-diff-refine-hunk 'all))
+
+;; Todolist en magit de todos los archivos del projecto.
+(use-package magit-todos
+  :after magit-status
+  :commands magit-todos-mode
+  :init
+  (setq magit-todos-nice (if (executable-find "nice") t nil))
+  (magit-todos-mode 1))
+
+;; Modo para resolución de confictos
+(use-package smerge-mode
+  :ensure nil
+  :config
+  (defhydra hydra-smerge (:color pink
+                                 :hint nil)
+    "
+^Move^       ^Keep^               ^Diff^                 ^Other^
+^^-----------^^-------------------^^---------------------^^-------
+_n_ext       _b_ase               _<_: upper/base        _C_ombine
+_p_rev       _u_pper              _=_: upper/lower       _r_esolve
+^^           _l_ower              _>_: base/lower        _k_ill current
+^^           _a_ll                _R_efine
+^^           _RET_: current       _E_diff
+"
+    ("n" smerge-next)
+    ("p" smerge-prev)
+    ("b" smerge-keep-base)
+    ("u" smerge-keep-upper)
+    ("l" smerge-keep-lower)
+    ("a" smerge-keep-all)
+    ("RET" smerge-keep-current)
+    ("\C-m" smerge-keep-current)
+    ("<" smerge-diff-base-upper)
+    ("=" smerge-diff-upper-lower)
+    (">" smerge-diff-base-lower)
+    ("R" smerge-refine)
+    ("E" smerge-ediff)
+    ("C" smerge-combine-with-next)
+    ("r" smerge-resolve)
+    ("k" smerge-kill-current)
+    ("q" nil "cancel" :color blue))
+  )
+
+(use-package transient)
+
+;; Mostrar el último commit que modificó la linea actual
+(use-package vc-msg
+  :bind (("C-c C-v" . vc-msg-show))
+  )
+
+
+(provide 'init-vc)
+;;; init-vc.el ends here
--- a/configs/lang-go.el
+++ b/configs/lang-go.el
@ -9,8 +9,7 @@

 ;;; Code:

-(use-package go-mode
-  :defer t)
+(use-package go-mode)

 (provide 'lang-go)
 ;;; lang-go.el ends here
--- a/configs/lang-html.el
+++ b/configs/lang-html.el
@ -10,7 +10,6 @@
 ;;; Code:

 (use-package web-mode
-  :defer t
  :config
  (setq web-mode-markup-indent-offset 2
        web-mode-css-indent-offset 2
@ -20,13 +19,13 @@

  )

+(use-package css-mode
+  :ensure nil
+  :config
+  (setq css-indent-offset 2))

 (use-package 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))
-  )
+  :ensure (:host github :repo "jcs-elpa/auto-rename-tag"))

 (provide 'lang-html)
 ;;; lang-html.el ends here
--- a/configs/lang-js.el
+++ b/configs/lang-js.el
@ -10,19 +10,17 @@
 ;;; Code:

 (use-package js
-  :defer t
-  :elpaca nil
+  :ensure nil
  :mode
  ("\\.js$" . js-mode)
-  :hook
-  (js-mode . eglot-ensure)
+  :init
+  (add-to-list 'auto-mode-alist '("\\.tsx\\'" . tsx-ts-mode))
+  (add-to-list 'auto-mode-alist '("\\.ts\\'"  . typescript-ts-mode))
  :config
  (setq js-indent-level 2))

 ;; json-mode
 (use-package json-mode
-  :defer t
-  :ensure t
  :mode
  ("\\.json$" . json-mode)
  :config
--- a/configs/lang-php.el
+++ b/configs/lang-php.el
@ -9,25 +9,42 @@

 ;;; Code:

-(use-package php-mode
-  :defer t
-  :bind ("C-c d b" . kj/php-doc-block)
-  :config
-  (defun kj/php-doc-block ()
-    "Llama a \"php-dock-block\", sin conflicto con \"vs-comment-return-mode\"."
-    (interactive)
-    (if (bound-and-true-p vs-comment-return-mode)
-        (funcall (lambda()
-                   (vs-comment-return-mode -1)
-                   (php-doc-block)
-                   (vs-comment-return-mode 1)))
-      (php-doc-block)
-      )
-    )
-  )
+(use-package php-ts-mode
+  :mode "\\.php\\'"
+  :ensure nil)
+
+(use-package php-mode)

 (use-package php-doc-block
-  :elpaca (:host github :repo "moskalyovd/emacs-php-doc-block")
+  :after php-ts-mode
+  :bind ("C-c d b" . php-doc-block)
+  :ensure (:host github :repo "moskalyovd/emacs-php-doc-block")
+  )
+
+;; Consola REPL para php. Similar a "php -a" pero con extras
+(use-package psysh)
+
+;; Composer
+(use-package composer)
+
+;; PHPUnit
+(use-package phpunit)
+
+(use-package php-cs-fixer
+  :custom
+  (php-cs-fixer-rules-level-part-options (list (json-encode '(("@PSR12" . t)
+                                                              ("ordered_imports" . (("sort_algorithm" . "alpha")))
+                                                              ("concat_space" . (("spacing" . "one")))
+                                                              ("whitespace_after_comma_in_array" . t)
+                                                              ("align_multiline_comment" . t)
+                                                              ("no_unused_imports" . t)
+                                                              ("phpdoc_align" . t)
+                                                              ("phpdoc_indent" . t)
+                                                              ("no_useless_return" . t)
+                                                              ("return_assignment" . t)
+                                                              ("trailing_comma_in_multiline" . t)))))
+  (php-cs-fixer-rules-fixer-part-options '())
+  ;; :hook (before-save . php-cs-fixer-before-save)
  )

 (provide 'lang-php)
--- a/configs/lang-rust.el
+++ b/configs/lang-rust.el
@ -10,8 +10,8 @@
 ;;; Code:

 (use-package rust-mode
-  :defer t
-  :ensure t
+  :init
+  (setq rust-mode-treesitter-derive t)
  :config
  (setq rust-format-on-save t))

--- a/early-init.el
+++ b/early-init.el
@ -20,33 +20,47 @@
 ;;
 ;;; Code:

-;; Disable GC during init
-(put 'gc-cons-percentage 'original-value-before-init gc-cons-percentage)
-(put 'gc-cons-percentage 'value-during-init 0.6)
-(defun restore-gc-cons-percentage-after-init ()
-  (let ((expected-value (get 'gc-cons-percentage 'value-during-init))
-        (value-to-restore (get 'gc-cons-percentage 'original-value-before-init)))
-    (when (and value-to-restore (equal gc-cons-percentage expected-value))
-      (message "Setting `gc-cons-percentage' back to starting value %s" value-to-restore)
-      (setq gc-cons-percentage value-to-restore))))
-(add-hook 'after-init-hook #'restore-gc-cons-percentage-after-init)
-(setq gc-cons-percentage (get 'gc-cons-percentage 'value-during-init))
+;; Defer garbage collection further back in the startup process
+(setq gc-cons-threshold most-positive-fixnum)

-;; Color de fondo similar al theme para evitar que se vea blanco al iniciar
-;; (add-to-list 'default-frame-alist '(background-color . "#282a36"))
+;; Prevent unwanted runtime compilation for gccemacs (native-comp) users;
+;; packages are compiled ahead-of-time when they are installed and site files
+;; are compiled when gccemacs is installed.
+(setq native-comp-deferred-compilation nil ;; obsolete since 29.1
+      native-comp-jit-compilation nil)

-;; Permitir solo la búsqueda de archivos a cargar en la config en case sensitive.
+;; 'use-package' is builtin since 29.
+;; It must be set before loading 'use-package'.
+(setq use-package-enable-imenu-support t)
+
+;; In noninteractive sessions, prioritize non-byte-compiled source files to
+;; prevent the use of stale byte-code. Otherwise, it saves us a little IO time
+;; to skip the mtime checks on every *.elc file.
+(setq load-prefer-newer noninteractive)
+
+;; Explicitly set the prefered coding systems to avoid annoying prompt
+;; from emacs (especially on Microsoft Windows)
+(prefer-coding-system 'utf-8)
+
+;; Permitir solo la búsqueda de archivos a cargar en la carpeta config case sensitive.
 (setq auto-mode-case-fold nil)

+;; Definimos que la shell por defecto será bash
+(setq shell-file-name "/bin/bash")
+
 ;; 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.
+(push '(vertical-scroll-bars) default-frame-alist)
+(when (featurep 'ns)
+  (push '(ns-transparent-titlebar . t) default-frame-alist))
+
+;; Prevent flash of unstyled mode line
+(setq mode-line-format nil)

 ;; Iniciar emacs maximizado
-;; (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)
+;; (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
@ -54,10 +68,9 @@
 (setq frame-inhibit-implied-resize t
      frame-resize-pixelwise t)

-
 ;; Recommended by
 ;; https://github.com/raxod502/straight.el#getting-started to prevent
-;; pacakge.el stepping on straight's toes.
+;; pacakge.el stepping on elpaca toes.
 (setq package-enable-at-startup nil)

 ;;; early-init.el ends here
--- a/init.el
+++ b/init.el
@ -9,20 +9,50 @@

 ;;; 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-packages)
-(require 'init-functions)
+(require 'init-utils)
+(require 'init-ui)
+(require 'init-editor)
+(require 'init-prog)
+(require 'init-highlight)
+(require 'init-theme)
+(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-evil)
 (require 'init-keys)

 ;; Lenguajes
--- a/private/.custom.el
+++ b/private/.custom.el
--- a/readme.md
+++ b/readme.md
@ -1,67 +0,0 @@
-# Configuración de Emacs actual
-
-Esta configuración para emacs se podría decir que es la heredera de mi [configuración de emacs inicial](https://git.kj2.me/kj/confi-emacs-inicial), la cual ya llevaba tiempo necesitando una manita de gato para arreglar y mejorar algunas cosas que me resultan cómodas para el uso, ademas de comenzar a utilizar `evil-mode`. Esta configuración bien podría haber sido una rama de la inicial, pero he decidido hacer uno nuevo y si es neceario hacer aquí las ramas.
-
-## Instalación
-
-Si deseas clonar mi configuración, puedes clonar este repositorio:
-
-`git clone --depth 1 https://git.kj2.me/kj/confi-emacs-actual.git ~/.emacs.d`
-
-Instalación de fonts y libvterm:
-
-`sudo apt install fonts-firacode fonts-cantarell libvterm cmake`
-
-Al igual que la versión anterior, puede ser necesario ejecutar el siguiente comando en el minibuffer para tener bien los íconos de neotree:
-
-`all-the-icons-install-fonts`
-
-Y eso sería todo.
-
-## Dependencias espefícicas
-
-Algunos lenguajes, pueden requerir que instales algunas cosas en específico.
-
- *Javascript*: Necesita de al menos [deno](https://deno.land/) para LSP (eglot) y [node](https://nodejs.org/es/) para flycheck, aunque creo que con deno puede bastar para ambos.
- *PHP*: Requiere instalar [phpactor](https://phpactor.readthedocs.io/en/master/usage/standalone.html) para el LSP.
- *GO*: Necesita etener instalado [go](https://go.dev/) para linter (gofmt) y [gopls](https://github.com/golang/tools/tree/master/gopls) para LSP.
- *Rust*: Necesita clippy para flycheck y LSP. Pare este útimo igual es posible usar [rust-analyzer](https://rust-analyzer.github.io).
-
-Otros:
-
- Búsqueda: Requiere tener instalado ripgrep.
- Capturas: Requiere silicon para las capturas con silico y que la compilación sea con cairo para las capturas SVG.
-
-## Usar el modo daemon
-
-El modo daemon permite a emacs cargar mucho más rápido, puesto que con ello evitas volver a cargar la configuración cada vez que abres un nuevo archivo. Si quieres aprender mas sobre esto, puedes revisarlo en la [documentación de emacs](https://www.emacswiki.org/emacs/EmacsAsDaemon).
-
-Para iniciar el daemon, puedes hacerlo desde la terminal ejecutando:
-
-`sudo systemctl --user start emacs`
-
-Del mismo modo, igual es recomendable habilitar el autoinicio de este servicio junto con el sistema:
-
-`sudo systemctl --user enable emacs`
-
-Y abrir emacs mediante emacsclient.
-
-## Consideraciones
-
- Toda la configuración la he realizado en los archivos que están en los archivos de la carpeta config, el archivo `init.el` solo los llama y no guarda nada más aparte de eso.
- Se puede activar/desactivar `cua-mode` (`configs/base.el`, línea 49) activado para poder copiar, cortar, pegar y deshacer cambios con las combinaciones típicas en lugar de las de emacs.
- Con F9 puedes abrir y cerrar treemacs.
- Con C-F11 puedes maximizar/restaurar.
- Con C-S-c se puede comentar / descomentar un región.
- Con C-S-d se duplica las líneas.
- Con M-<arrow keys> se mueven las líneas/palabras.
- Por defecto he configurado que al presionar TAB se usen 2 espacios en su lugar.
-
-Recuerda que si alguna cosa no te gusta, puedes cambiarla a gusto. Esta configuración fue hecha para mi uso personal y puede que tenga cosas que solo a mi me parecen cómodas/útiles.
-
-## Contacto
-
-Si se tiene alguna pregunta o quieres comentarme alguna corrección, puesto que este git no está abierto a registro, puedes contactarme mediante:
-
-E-mail: webmaster@outcontol.net
-Telegram: [https://t.me/keyjay](https://t.me/keyjay)
--- a/readme.org
+++ b/readme.org
@ -0,0 +1,62 @@
+#+TITLE: Configuración Emacs
+#+AUTHOR: KJ
+#+OPTIONS: toc:nil
+
+Esta es mi configuración de Emacs personal y está hecha principalmente para funcionar con *Emacs compilado desde el código*, ya que es así como yo lo uso.
+
+* Instalación
+
+Si deseas clonar mi configuración, puedes clonar este repositorio:
+
+#+begin_src bash
+git clone --depth 1 https://git.kj2.me/kj/confi-emacs-actual.git ~/.emacs.d
+#+end_src
+
+Si no ves los íconos bien dentro de Emacs, puedes ejecutar el comando dentro de Emacs (M-x)
+
+#+begin_src elisp
+nerd-icons-install-fonts
+#+end_src
+
+* Compilación de Emacs
+
+Si quieres instalar Emacs tal cual lo tengo yo, esta es la configuración de compilación que actualmente uso:
+
+#+begin_src bash
+git clone https://git.savannah.gnu.org/git/emacs.git
+cd emacs
+./autogen.sh
+./configure  --prefix=/usr --sysconfdir=/etc --libexecdir=/usr/lib --localstatedir=/var    --mandir=/usr/share/man --with-gameuser=:games --with-modules --without-libotf --without-m17n-flt --without-gconf --with-native-compilation=yes --with-native-compilation=aot --with-xinput2 --with-pgtk --with-tree-sitter --without-compress-install --with-mailutils
+
+make -j16
+make check
+sudo make install
+#+end_src
+
+Las dependencias para compilar pueden cambiar según tu distribución, por lo que queda en tus manos el ajustar lo que sea necesario.
+
+Como ayuda lo más que puedo dar es que en las distros basadas en Debian puedes usar =apt build-dep emacs= mientras que en las basadas en RHEL (solo lo he probado en Fedora) puedes usar =dnf builddep emacs=. En el caso de las basadas Arch puedes usar AUR.
+
+* Dependencias
+
+Normalmente no es usual el tener dependencias reales para que emacs funcione, pero para el funcionamiendo adecuado y sin errores, lo mejor es tener instalado:
+
+- cmake
+- libvterm
+
+** Languaje Server Protocol (LSP)
+
+Esta configuración por defecto utiliza [[https://github.com/joaotavora/eglot][eglot]] para LSP con los servidores por defecto. Puedes revisar su documentación para ver lo que necesitas instalar para usar el LSP del lenguaje que necesites.
+
+Finalmente, recomiendo instalar [[https://github.com/blahgeek/emacs-lsp-booster][emacs-lsp-booster]], la mejora es nimia en general, pero en proyectos grandes esa pequeña mejora es bastante notoria.
+
+* Atajos de teclas personalizados
+
+Tengo varios atajos reconfigurados, por lo que recomiento revisar primero que nada el archivo [[./configs/init-keys.el][init-keys.el]] el resto de configuraciones está principalmente en los archivos [[./configs/init-minibuffer.el][init-minibuffer.el]] e [[file:configs/init-editor.el][init-editor.el]], dudo que las uses todas y yo mismo no las uso, por lo que con el tiempo las voy eliminando y a veces agrego alguna extra. Con que revises el primer archivo y sepas que =consult-project= está en =C-x p= ya estás servido.
+
+* Contacto
+
+Si se tiene alguna pregunta o quieres comentarme alguna corrección, puesto que este git no está abierto a registro, puedes contactarme mediante:
+
+*Correo*: webmaster@outcontrol.net
+*Telegram*: [[https://t.me/keyjay][@keyjay]]