Fix drag stuff not starting.

Only use defer t for now.
In another oportunity i will optimize this again.
2025-06-10 21:17:29 -03:00 · 2025-06-08 12:42:48 -03:00 · 2025-06-03 12:12:15 -03:00 · 2025-05-26 13:41:08 -03:00 · 2025-05-26 13:40:35 -03:00 · 2025-05-26 13:38:55 -03:00
28 changed files with 1127 additions and 957 deletions
--- a/.gitignore
+++ b/.gitignore
@ -25,3 +25,12 @@ workspace/
 /request/
 /smex-items
 /tree-sitter/
 /elpaca/
 /tramp
 /nov-places
 /devdocs/
 /.mc-lists.el
 /eshell/
 /.emacs.desktop
 /.tutor/
 /intelephense/
--- a/31
+++ b/31
@ -0,0 +1,31 @@
 ;;-*-coding: utf-8;-*-
 (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 '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 9)
    ("doctype" "<!DOCTYPE html>" nil :count 1)
   ))
--- a/configs/init-ai.el
+++ b/configs/init-ai.el
@ -0,0 +1,46 @@
 ;;; 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:
 ;; Esta configuración para Inteligencia artifical en emacs, principalmente para el uso de chats.
 ;;; Code:
 ;; Cliente LLM (ollama, chatgpt, gemini, etc.)
 (use-package gptel
  :defer t
  :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 . "# ")
          (org-mode . "* ")
          (text-mode . "# "))
        gptel-directives
        '((default . "Eres un LLM que vive dentro de Emacs. Responde de manera concisa.")
          (programming . "Eres un LLM y un programador profesional cuidadoso. Provee el código y solo el código como output sin ningún texto adicional, prompt o nota.")
          (programming_tutor . "Eres un LLM y un programador profesional cuidadoso. Revisa el siguiente código y realiza sugerencias concisas en español para mejorarlo.")
          (programming_explainer . "Eres un LLM y un programador profesional cuidadoso. Revisa el siguiente código y explica en español de manera concisa, su funcionamiento.")
          (programming_describer . "Eres un LLM y un programador profesional cuidadoso. Revisa el siguiente código y explica en español su funcionamiento línea a línea.")
          (writing . "Eres un LLM y un asistente de escritura. Responde de manera concisa.")
          (grammarly . "You are a large language model and professional philologist. Improve grammar and spelling.")
          (chat . "Eres un LLM y un compañero de conversación. Responde de manera concisa.")
          (traductor . "Eres un traductor profesional. Traduce a español tomando en cuenta los posibles tecnicismos y nombres que no deberían traducirse.")
          )
        )
  )
 (provide 'init-ai)
 ;;; init-ai.el ends here
--- a/configs/init-base.el
+++ b/configs/init-base.el
@ -19,33 +19,55 @@
    (setq package-native-compile t)
    ))
-;; Instalar straight.el (reemplpazando package.el)
+;; Instalar elpaca.el (reemplpazando package.el)
-(defvar bootstrap-version)
+(defvar elpaca-installer-version 0.11)
-(let ((bootstrap-file
+(defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
-      (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
+(defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
-      (bootstrap-version 5))
+(defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
-  (unless (file-exists-p bootstrap-file)
+(defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
-    (with-current-buffer
+                              :ref nil :depth 1 :inherit ignore
-        (url-retrieve-synchronously
+                              :files (:defaults "elpaca-test.el" (:exclude "extensions"))
-        "https://raw.githubusercontent.com/radian-software/straight.el/master/install.el"
+                              :build (:not elpaca--activate-package)))
-        'silent 'inhibit-cookies)
+(let* ((repo  (expand-file-name "elpaca/" elpaca-repos-directory))
-      (goto-char (point-max))
+       (build (expand-file-name "elpaca/" elpaca-builds-directory))
-      (eval-print-last-sexp)))
+       (order (cdr elpaca-order))
-  (load bootstrap-file nil 'nomessage))
+       (default-directory repo))
  (add-to-list 'load-path (if (file-exists-p build) build repo))
  (unless (file-exists-p repo)
    (make-directory repo t)
    (when (< emacs-major-version 28) (require 'subr-x))
    (condition-case-unless-debug err
        (if-let* ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*"))
                  ((zerop (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)
    (load "./elpaca-autoloads")))
 (add-hook 'after-init-hook #'elpaca-process-queues)
 (elpaca `(,@elpaca-order))
 ;; Instalar use-package si no está instalado
-(straight-use-package 'use-package)
+(elpaca elpaca-use-package
-(setq use-package-always-ensure t)
+  ;; Enable :elpaca use-package keyword.
  (elpaca-use-package-mode)
  ;; Assume :elpaca t unless otherwise specified.
  (setq elpaca-use-package-by-default t))
-;; Theme
+;; Block until current queue processed.
-(use-package dracula-theme
+(elpaca-wait)
  :straight t
  :defer t
  :hook (after-init . (lambda()
                        (load-theme 'dracula t)
                        (set-face-attribute 'default nil :font "Fira Code Retina" :height 112) ; Font
                        ))
  )
 (defconst private-dir  (expand-file-name "private" user-emacs-directory))
 (defconst temp-dir (format "%s/cache" private-dir)
@ -61,12 +83,17 @@
 (setq default-process-coding-system '(utf-8-unix . utf-8-unix))
 ;; Emacs customizations
-(scroll-bar-mode -1)                            ; Quitar scrollbar.
+(when (display-graphic-p)
  (scroll-bar-mode -1)                          ; Quitar scrollbar.
  )
 (tooltip-mode -1)                               ; Disable tooltips.
 (global-display-line-numbers-mode)              ; Mostar número de línea.
 (global-so-long-mode 1)                         ; Abrir archivos grandes o con líneas largas en el modo so-long por defecto.
 (show-paren-mode 1)                             ; Habilitar resaltado de brackets.
 (global-subword-mode 1)                         ; Habilitar subpalabras (detectar palabras dentro de un camelCase y Pascal case.)
 (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.
@ -77,11 +104,12 @@
 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).
 global-hl-line-mode 1                          ; Resaltar línea actual por defecto.
 tags-revert-without-query 1                    ; Recargar tags (ctags) sin pedir confirmación.
 )
 ;; Leve transparencia en emacs por defecto.
-(set-frame-parameter nil 'alpha-background 99)
+;; (set-frame-parameter nil 'alpha-background 95)
 ;; Font por defecto
 (set-face-attribute 'default nil :font "Fira Code Retina" :height 112)
 ;; Backups enabled, use nil to disable
 (setq
@ -99,21 +127,13 @@
  "Carga la configuración del modo daemon."
  (message "Corriendo en modo daemon.")
  (set-face-attribute 'default nil :font "Fira Code Retina" :height 112)
-
+  (scroll-bar-mode -1)
  ;; Set the fixed pitch face
  ;;(set-face-attribute 'fixed-pitch nil :font "Fira Code Retina")
  ;; Set the variable pitch face
  ;;(set-face-attribute 'variable-pitch nil :font "Cantarell" :weight 'regular)
  ;; Abrir primero el dashboard
  (setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
  ;; Cerrar buffers al cerrar emacsclient
-  (add-hook 'delete-frame-functions
+  ;; (add-hook 'delete-frame-functions
-            (lambda (frame)
+  ;;           (lambda (frame)
-              (mapc 'kill-buffer (delq (get-buffer "*dashboard*") (buffer-list)))
+  ;;             (mapc 'kill-buffer (delq (get-buffer "*dashboard*") (buffer-list)))
-              ))
+  ;;             ))
  )
 (if (daemonp)
@ -123,9 +143,7 @@
                  (setup-daemon))))
  (message "Corriendo en modo normal."))
-;(add-hook 'window-setup-hook 'toggle-frame-maximized t)
+(add-hook 'elpaca-after-init-hook (lambda () (load custom-file 'noerror)))
 (load custom-file)
 (provide 'init-base)
 ;;; init-base.el ends here
--- a/configs/init-company.el
+++ b/configs/init-company.el
@ -1,61 +0,0 @@
 ;;; init-company.el --- Autocompletado con company-mode  -*- 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 company.
 ;; Company, de manera resumida, es el que nos muestra el autocompletado
 ;; en Emacs, tanto para código como para otro tipo de textos.
 ;;; Code:
 (use-package company
  :defer t
  :straight t
  :defines (company-dabbrev-ignore-case company-dabbrev-downcase)
  :custom-face
  (company-box-selection ((t (:inherit company-tooltip :weight semibold :extend t))))
  :hook (after-init . global-company-mode)
  :bind (
         :map company-active-map
         ("<tab>" . company-indent-or-complete-common) ; Completar con tab como en la terminal de linux
         ("<escape>" . company-abort) ; Cerrar company con ESC
         )
  :config
  (setq company-tooltip-align-annotations t
        company-tooltip-limit 12
        company-idle-delay 0.5              ; mostrar autocompletado luego de medio segundo mostrar
        company-echo-delay (if (display-graphic-p) nil 0)
        company-minimum-prefix-length 1    ; mostrar autocompletado desde que se coloca la primera letra.
        company-icon-margin 3
        company-require-match nil
        company-dabbrev-ignore-case nil
        company-dabbrev-downcase nil      ; autocompletado case-sensitive.
        company-global-modes '(not erc-mode message-mode help-mode
                                   gud-mode eshell-mode shell-mode))
  (add-to-list 'company-backends 'company-paths)
  )
 ;; Rutas en company
 (use-package company-paths
  :straight (company-paths :type git :host github :repo "emacs-vs/company-paths")
  :defer t
  :after (company-mode)
  )
 ;; Hacer que el autocompletado se vea más bonito con íconos
 (use-package company-box
  :defer t
  :straight t
  :diminish
  :hook (company-mode . company-box-mode)
  :config
  (setq company-box-backends-colors nil
              company-box-doc-delay 0.1
              company-box-scrollbar 'right)
  )
 (provide 'init-company)
 ;;; init-company.el ends here
--- a/configs/init-corfu.el
+++ b/configs/init-corfu.el
@ -0,0 +1,110 @@
 ;;; 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
  :ensure (:files (:defaults "extensions/*")
                   :includes (corfu-info corfu-history))
  :hook ((corfu-mode . corfu-popupinfo-mode))
  :bind (:map corfu-map
              ("<tab>"    . corfu-quit)
              ("<escape>" . corfu-quit)
              ("<SPC>"    . corfu-insert-separator))
  :custom
  (corfu-auto t)
  :config
  (global-corfu-mode)
  (setq corfu-popupinfo-delay 0
        corfu-auto-delay 1
        corfu-auto-prefix 1
        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
  :defer t
  :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
  :defer t
  :ensure (:host github :repo "minad/cape")
  :after corfu
  :bind (("C-c f" . cape-file)
         ("C-c l" . cape-line)
         ("C-c _" . cape-tex))
  :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-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-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-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")
    :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
@ -19,7 +19,6 @@
 (use-package citre
  :defer t
  :ensure t
  :straight t
  :diminish
  :bind (("C-x c ." . citre-jump)
         ("C-x c ," . citre-jump-back)
@ -27,19 +26,12 @@
         ("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)
  (setq citre-auto-enable-citre-mode-modes '(prog-mode))
  :config
  (with-no-warnings
    (setq citre-readtags-program "/usr/bin/readtags"
          citre-ctags-program "/usr/bin/ctags"
        citre-default-create-tags-file-location 'global-cache
          citre-use-project-root-when-creating-tags t
        citre-prompt-language-for-ctags-command t)
-    (with-eval-after-load 'projectile
+  :config
-      (setq citre-project-root-function #'projectile-project-root))
+  (with-no-warnings
    ;; Integrate with `lsp-mode' and `eglot'
    (define-advice xref--create-fetcher (:around (fn &rest args) fallback)
      (let ((fetcher (apply fn args))
--- a/configs/init-eglot.el
+++ b/configs/init-eglot.el
@ -31,27 +31,37 @@
 (use-package eglot
  :defer t
-  :straight (:type built-in)
+  :ensure nil
  :hook ((css-mode    . eglot-ensure)
         (html-mode   . eglot-ensure)
         (php-mode    . eglot-ensure)
         (php-ts-mode . eglot-ensure)
         (js-mode     . eglot-ensure)
         (tsx-ts-mode . eglot-ensure)
         (typescript-ts-mode . eglot-ensure)
         (rust-mode   . eglot-ensure)
         (sh-mode     . eglot-ensure))
  :config
-  ;; (add-to-list 'eglot-server-programs '(php-mode . ("intelephense" "--stdio")))
+  (setq eglot-sync-connect 0)
-  (add-to-list 'eglot-server-programs '(php-mode . ("phpactor" "language-server" "-vvv")))
+  (add-to-list 'eglot-server-programs '(php-mode . ("intelephense" "--stdio")))
  (setq eglot-stay-out-of '(company))
  ;; (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)))
 )
 ;; Mejorar la velocidad de eglot (un binario en rust )
 (use-package eglot-booster
  :defer t
  :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
  :defer t
-  :straight t
+  :after eglot
  :hook
  ((html-mode . emmet-mode)
   (web-mode . emmet-mode))
@ -60,24 +70,20 @@
 ;; Revisar por errores en el código
 (use-package flymake
  :defer t
-  :straight (:type built-in)
+  :ensure 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
-  :straight t
+  :ensure t
  :after flymake
  :hook (flymake-mode . flymake-diagnostic-at-point-mode))
 ;; Mostrar eldoc en un popup
 ;; (use-package eldoc-box
 ;;   :defer t
 ;;   :straight t
 ;;   :hook (eldoc-mode-hook . eldoc-box-hover-at-point-mode ))
 (provide 'init-eglot)
 ;;; init-eglot.el ends here
--- a/configs/init-evil.el
+++ b/configs/init-evil.el
@ -14,51 +14,75 @@
 ;;; Code:
 (use-package evil
  :defer t
-  :straight t
+  :hook ((elpaca-after-init . evil-mode)
-  :hook (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 'emacs) ;; 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
  (evil-set-leader 'motion (kbd "SPC")) ;; Leader key
  (evil-set-undo-system 'undo-redo)
-  ;; Habilitar atajos de de tecla de emacs en insert state
+  ;; Arreglar el problemita con corfu-quit y el cambio de modos
-  (setq evil-insert-state-map (make-sparse-keymap))
+  (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 'normal 'global (kbd "<escape>") 'corfu-quit)
-  (evil-define-key 'insert 'global (kbd "<escape>") 'evil-normal-state)
+  ;; 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 vim-states 'global (kbd "C-'") 'evil-emacs-state)
-  (evil-define-key 'emacs 'global (kbd "C-'") 'evil-normal-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
+  ;; Cambiar U para hacer redo
  (evil-define-key vim-states 'global (kbd "C-r") 'counsel-rg)
  (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 C-p y C-n a como es normalmente
+  ;; Re-bindear keys a como funcionan en emacs.
  (evil-define-key 'normal 'global (kbd "C-p") 'previous-line)
  (evil-define-key 'normal 'global (kbd "C-n") 'next-line)
  (evil-define-key 'normal 'global (kbd "C-e") 'move-end-of-line)
  ;; Navegación entre frames
-  (evil-define-key 'motion 'global (kbd "<leader>wh") 'windmove-left)
+  (evil-define-key 'motion 'global (kbd "<leader>o") 'other-window)
-  (evil-define-key 'motion 'global (kbd "<leader>wj") 'windmove-down)
+
-  (evil-define-key 'motion 'global (kbd "<leader>wk") 'windmove-up)
+  ;; Habilitar el scrolear con C-v como en emacs en evil
-  (evil-define-key 'motion 'global (kbd "<leader>wl") 'windmove-right)
+  (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)
  ;; Identado 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)
@ -72,21 +96,47 @@
  ;; 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>b") 'switch-to-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>p") 'project-find-file)            ;; 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>cp") 'project-switch-project)     ;; Cambiar proyecto
-  (evil-define-key 'motion 'global (kbd "<leader>ff") 'counsel-find-file)         ;; Abrir archivo
+  (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
+  ;; Iniciar en normal state solo en modos específicos
-  ;; (evil-set-initial-state 'prog-mode 'normal)
+  (setq evil-default-state 'emacs) ;; Modo por defecto en emacs
-  ;; (evil-set-initial-state 'org-mode 'normal)
+  (evil-set-initial-state 'prog-mode 'normal)
-  ;; (evil-set-initial-state 'dashboard-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
  :ensure t
  :defer t
  :after org
  :hook (org-mode . evil-org-mode))
 ;; Similar a Vimtutor, pero para evil.
 (use-package evil-tutor
  :defer t
  :ensure t)
 (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."
@ -58,12 +46,48 @@ Saves to a temp file and puts the filename in the kill ring."
 ;; Borrar espacios, tabs y saltos de línea innecesarios al guardar
 (add-hook 'before-save-hook 'delete-trailing-whitespace)
-;; Verifica si es está instalado alltheicons (útil para ver si se usa o no íconos)
+;; Mostrar y ocultar el diff de la línea de git-gutter
-(defun icon-displayable-p ()
+(defun git-gutter:toggle-popup-hunk ()
-  "Return non-nil if icons are displayable."
+  "Toggle 'git-gutter' hunk window."
-  (and (display-graphic-p) (daemonp)
+  (interactive)
-       (or (featurep 'all-the-icons)
+  (if (and (get-buffer "*git-gutter:diff*") (window-live-p (git-gutter:popup-buffer-window)))
-           (require 'all-the-icons nil t))))
+      (delete-window (git-gutter:popup-buffer-window))
    (git-gutter:popup-hunk)))
 ;; 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)))
    (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))
 (provide 'init-functions)
 ;;; init-functions.el ends here.
--- a/configs/init-keys.el
+++ b/configs/init-keys.el
@ -17,27 +17,26 @@
 (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)     ; Abrir menú contextal al hacer clic derecho
 (global-set-key (kbd "<mouse-3>") 'context-menu-open)     ; Ordenar líneas alfabéticamente
 ;; 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 mp") 'php-ts-mode)
 (global-set-key (kbd "C-x mr") 'rust-mode)
 (global-set-key (kbd "C-x mw") 'web-mode)
-;; Atajos de windmove
+;; Cambiar de ventana
-(global-set-key (kbd "C-x <left>") 'windmove-left)
+(global-set-key (kbd "C-S-o") 'other-window)
-(global-set-key (kbd "C-x <right>") 'windmove-right)
+
-(global-set-key (kbd "C-x <up>") 'windmove-up)
+;; Saltar entre párrafos
-(global-set-key (kbd "C-x <down>") 'windmove-down)
+(define-key global-map "\M-p" 'backward-paragraph)
 (define-key global-map "\M-n" '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
--- a/configs/init-lsp.el
+++ b/configs/init-lsp.el
@ -1,275 +0,0 @@
 ;;; init-lsp.el --- Languaje server protocol. 	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Este archivo es lo misma idea que "init-eglot",
 ;; pero en este caso cambiamos lsp-mode en lugar
 ;; de Eglot.
 ;;
 ;; Desde que Emacs trae integrado Eglot, he dejado
 ;; de usarlo y es probable que en un futuro sea
 ;; eliminado totalmente.
 ;;; Code:
 ;; Performace tuning
 ;; @see https://emacs-lsp.github.io/lsp-mode/page/performance/
 (setq read-process-output-max (* 1024 (* 3 1024))) ;; 3MB
 (setenv "LSP_USE_PLISTS" "true")
 (use-package lsp-mode
  :defer t
  :straight t
  :diminish
  :commands (lsp-enable-which-key-integration
             lsp-format-buffer
             lsp-organize-imports
             lsp-install-server)
  :hook ((prog-mode . (lambda ()
                        (unless (derived-mode-p 'emacs-lisp-mode 'lisp-mode 'makefile-mode 'sql-mode)
                          (lsp-deferred))))
         (html-mode . lsp-deferred)
         (markdown-mode . lsp-deferred)
         (lsp-mode . lsp-enable-which-key-integration))
  :custom
  (lsp-headerline-breadcrumb-enable nil)
  :init (setq lsp-keymap-prefix "C-c l"
              lsp-keep-workspace-alive nil
              lsp-signature-auto-activate nil
              lsp-modeline-code-actions-enable nil
              lsp-modeline-diagnostics-enable nil
              lsp-modeline-workspace-status-enable nil
              lsp-headerline-breadcrumb-enable nil
              lsp-enable-file-watchers nil
              lsp-enable-folding nil
              lsp-enable-links nil
              lsp-enable-symbol-highlighting nil
              lsp-enable-semantic-highlighting nil
              cls-sem-highlight-method nil
              lsp-enable-text-document-color nil
              lsp-lens-enable nil
              lsp-auto-guess-root t
              lsp-log-io nil
              lsp-idle-delay 0.5
              lsp-diagnostic-package :none ; Evitar que lsp conecte con flycheck para evitar que se congele
              lsp-enable-indentation nil
              lsp-enable-on-type-formatting nil)
  :config
  (with-no-warnings
    ;; Remove php extension on form lsp
    (setq lsp-language-id-configuration
          (remove '(".*\\.php$" . "php") lsp-language-id-configuration))
    (add-to-list 'lsp-language-id-configuration '(web-mode . "html"))
    ;; Disable `lsp-mode' in `git-timemachine-mode'
    (defun my-lsp--init-if-visible (fn &rest args)
      (unless (bound-and-true-p git-timemachine-mode)
        (apply fn args)))
    (advice-add #'lsp--init-if-visible :around #'my-lsp--init-if-visible)
    ;; Enable `lsp-mode' in sh/bash/zsh
    (defun my-lsp-bash-check-sh-shell (&rest _)
      (and (eq major-mode 'sh-mode)
           (memq sh-shell '(sh bash zsh))))
    (advice-add #'lsp-bash-check-sh-shell :override #'my-lsp-bash-check-sh-shell)
    ;; Only display icons in GUI
    (defun my-lsp-icons-get-symbol-kind (fn &rest args)
      (and (icon-displayable-p) (apply fn args)))
    (advice-add #'lsp-icons-get-by-symbol-kind :around #'my-lsp-icons-get-symbol-kind)
    (defun my-lsp-icons-get-by-file-ext (fn &rest args)
      (and (icon-displayable-p) (apply fn args)))
    (advice-add #'lsp-icons-get-by-file-ext :around #'my-lsp-icons-get-by-file-ext)
    (defun my-lsp-icons-all-the-icons-material-icon (icon-name face fallback &optional feature)
      (if (and (icon-displayable-p)
               (lsp-icons--enabled-for-feature feature))
          (all-the-icons-material icon-name
                                  :face face)
        (propertize fallback 'face face)))
    (advice-add #'lsp-icons-all-the-icons-material-icon
                :override #'my-lsp-icons-all-the-icons-material-icon))
  )
 ;; Interface para lsp
 (use-package lsp-ui
  :defer t
  :straight t
  :bind (:map lsp-mode-map
              ("<f1>" . lsp-ui-doc-glance))
  :hook (lsp-mode . lsp-ui-mode)
  :init
  (setq lsp-ui-sideline-show-code-actions nil
        lsp-ui-sideline-show-symbol nil
        lsp-ui-sideline-show-hover nil
        lsp-ui-sideline-delay 0.5)
  (setq lsp-ui-sideline-show-diagnostics nil
        lsp-ui-sideline-ignore-duplicate t
        lsp-ui-doc-show-with-cursor  nil
        lsp-ui-doc-show-with-mouse nil
        lsp-ui-doc-position 'at-point
        lsp-ui-doc-delay 0.1
        lsp-ui-imenu-colors `(,(face-foreground 'font-lock-keyword-face)
                              ,(face-foreground 'font-lock-string-face)
                              ,(face-foreground 'font-lock-constant-face)
                              ,(face-foreground 'font-lock-variable-name-face)))
  ;; Set correct color to borders
  (defun my-lsp-ui-doc-set-border ()
    "Set the border color of lsp doc."
    (setq lsp-ui-doc-border
          (if (facep 'posframe-border)
              (face-background 'posframe-border nil t)
            (face-foreground 'shadow nil t))))
  (my-lsp-ui-doc-set-border)
  (add-hook 'after-load-theme-hook #'my-lsp-ui-doc-set-border t)
  )
 ;; Integración con ivy
 (use-package lsp-ivy
  :defer t
  :straight t
  :after lsp-mode
  :bind (:map lsp-mode-map
              ([remap xref-find-apropos] . lsp-ivy-workspace-symbol)
              ("C-s-." . lsp-ivy-global-workspace-symbol))
  :config
  (with-no-warnings
    (when (icon-displayable-p)
      (defvar lsp-ivy-symbol-kind-icons
        `(,(all-the-icons-material "find_in_page" :height 0.9 :v-adjust -0.15) ; Unknown - 0
          ,(all-the-icons-faicon "file-o" :height 0.9 :v-adjust -0.02) ; File - 1
          ,(all-the-icons-material "view_module" :height 0.9 :v-adjust -0.15 :face 'all-the-icons-lblue) ; Module - 2
          ,(all-the-icons-material "view_module" :height 0.95 :v-adjust -0.15 :face 'all-the-icons-lblue) ; Namespace - 3
          ,(all-the-icons-octicon "package" :height 0.9 :v-adjust -0.15) ; Package - 4
          ,(all-the-icons-material "settings_input_component" :height 0.9 :v-adjust -0.15 :face 'all-the-icons-orange) ; Class - 5
          ,(all-the-icons-faicon "cube" :height 0.9 :v-adjust -0.02 :face 'all-the-icons-purple) ; Method - 6
          ,(all-the-icons-faicon "wrench" :height 0.8 :v-adjust -0.02) ; Property - 7
          ,(all-the-icons-octicon "tag" :height 0.95 :v-adjust 0 :face 'all-the-icons-lblue) ; Field - 8
          ,(all-the-icons-faicon "cube" :height 0.9 :v-adjust -0.02 :face 'all-the-icons-lpurple) ; Constructor - 9
          ,(all-the-icons-material "storage" :height 0.9 :v-adjust -0.15 :face 'all-the-icons-orange) ; Enum - 10
          ,(all-the-icons-material "share" :height 0.9 :v-adjust -0.15 :face 'all-the-icons-lblue) ; Interface - 11
          ,(all-the-icons-faicon "cube" :height 0.9 :v-adjust -0.02 :face 'all-the-icons-purple) ; Function - 12
          ,(all-the-icons-octicon "tag" :height 0.95 :v-adjust 0 :face 'all-the-icons-lblue) ; Variable - 13
          ,(all-the-icons-faicon "cube" :height 0.9 :v-adjust -0.02 :face 'all-the-icons-purple) ; Constant - 14
          ,(all-the-icons-faicon "text-width" :height 0.9 :v-adjust -0.02) ; String - 15
          ,(all-the-icons-material "format_list_numbered" :height 0.95 :v-adjust -0.15) ; Number - 16
          ,(all-the-icons-octicon "tag" :height 0.9 :v-adjust 0.0 :face 'all-the-icons-lblue) ; Boolean - 17
          ,(all-the-icons-material "view_array" :height 0.95 :v-adjust -0.15) ; Array - 18
          ,(all-the-icons-octicon "tag" :height 0.9 :v-adjust 0.0 :face 'all-the-icons-blue) ; Object - 19
          ,(all-the-icons-faicon "key" :height 0.9 :v-adjust -0.02) ; Key - 20
          ,(all-the-icons-octicon "tag" :height 0.9 :v-adjust 0.0) ; Null - 21
          ,(all-the-icons-material "format_align_right" :height 0.95 :v-adjust -0.15 :face 'all-the-icons-lblue) ; EnumMember - 22
          ,(all-the-icons-material "settings_input_component" :height 0.9 :v-adjust -0.15 :face 'all-the-icons-orange) ; Struct - 23
          ,(all-the-icons-octicon "zap" :height 0.9 :v-adjust 0 :face 'all-the-icons-orange) ; Event - 24
          ,(all-the-icons-material "control_point" :height 0.9 :v-adjust -0.15) ; Operator - 25
          ,(all-the-icons-faicon "arrows" :height 0.9 :v-adjust -0.02) ; TypeParameter - 26
          ))
      (lsp-defun my-lsp-ivy--format-symbol-match
                 ((sym &as &SymbolInformation :kind :location (&Location :uri))
                  project-root)
                 "Convert the match returned by `lsp-mode` into a candidate string."
                 (let* ((sanitized-kind (if (< kind (length lsp-ivy-symbol-kind-icons)) kind 0))
                        (type (elt lsp-ivy-symbol-kind-icons sanitized-kind))
                        (typestr (if lsp-ivy-show-symbol-kind (format "%s " type) ""))
                        (pathstr (if lsp-ivy-show-symbol-filename
                                     (propertize (format " · %s" (file-relative-name (lsp--uri-to-path uri) project-root))
                                                 'face font-lock-comment-face)
                                   "")))
                   (concat typestr (lsp-render-symbol-information sym ".") pathstr)))
      (advice-add #'lsp-ivy--format-symbol-match :override #'my-lsp-ivy--format-symbol-match))))
 ;; Debug
 (use-package dap-mode
  :defer t
  :straight t
  :defines dap-python-executable
  :functions dap-hydra/nil
  :diminish
  :bind (:map lsp-mode-map
              ("<f5>" . dap-debug)
              ("M-<f5>" . dap-hydra))
  :hook ((after-init . dap-auto-configure-mode)
         (dap-stopped . (lambda (_args) (dap-hydra)))
         (dap-terminated . (lambda (_args) (dap-hydra/nil)))
         (python-mode . (lambda () (require 'dap-python)))
         (ruby-mode . (lambda () (require 'dap-ruby)))
         (go-mode . (lambda () (require 'dap-go)))
         (java-mode . (lambda () (require 'dap-java)))
         ((c-mode c++-mode objc-mode swift-mode) . (lambda () (require 'dap-lldb)))
         (php-mode . (lambda () (require 'dap-php)))
         (elixir-mode . (lambda () (require 'dap-elixir)))
         ((js-mode js2-mode) . (lambda () (require 'dap-chrome)))
         (powershell-mode . (lambda () (require 'dap-pwsh))))
  :init
  (setq dap-auto-configure-features '(sessions locals breakpoints expressions controls))
  (when (executable-find "python3")
    (setq dap-python-executable "python3")))
 ;; Python debug
 (use-package lsp-pyright
  :defer t
  :straight t
  :preface
  ;; Use yapf to format
  (defun lsp-pyright-format-buffer ()
    (interactive)
    (when (and (executable-find "yapf") buffer-file-name)
      (call-process "yapf" nil nil nil "-i" buffer-file-name)))
  :hook (python-mode . (lambda ()
                         (require 'lsp-pyright)
                         (add-hook 'after-save-hook #'lsp-pyright-format-buffer t t)))
  :init (when (executable-find "python3")
          (setq lsp-pyright-python-executable-cmd "python3")))
 ;; Java LSP
 (use-package lsp-java
  :defer t
  :straight t
  :hook (java-mode . (lambda () (require 'lsp-java))))
 ;; `lsp-mode' and `treemacs' integration
 (use-package lsp-treemacs
  :defer t
  :straight t
  :after lsp-mode
  :bind (:map lsp-mode-map
              ("C-<f8>" . lsp-treemacs-errors-list)
              ("M-<f8>" . lsp-treemacs-symbols)
              ("s-<f8>" . lsp-treemacs-java-deps-list))
  :init (lsp-treemacs-sync-mode 1)
  :config
  (with-eval-after-load 'ace-window
    (when (boundp 'aw-ignored-buffers)
      (push 'lsp-treemacs-symbols-mode aw-ignored-buffers)
      (push 'lsp-treemacs-java-deps-mode aw-ignored-buffers))))
 ;; Revisar sintaxis en vivo
 (use-package flycheck
  ;; :diminish flycheck-mode
  :defer t
  :straight t
  :hook (prog-mode . (lambda ()
                        (unless (derived-mode-p 'makefile-mode 'js-mode)
                          (flycheck-mode))))
  )
 ;; Mostrar los errores de flycheck en un pop up
 (use-package flycheck-popup-tip
  :defer t
  :straight t
  :hook (flycheck-mode . flycheck-popup-tip-mode))
 (provide 'init-lsp)
 ;;; init-lsp.el ends here
--- a/configs/init-minibuffer.el
+++ b/configs/init-minibuffer.el
@ -10,132 +10,142 @@
 ;;; Code:
-;; Autocompletado y sugerencias para el minibuffer
+;; UI para completado
-(use-package counsel
+(use-package vertico
  :defer t
-  :straight t
+  :bind (:map vertico-map
-  :diminish ivy-mode counsel-mode
+         ("RET" . vertico-directory-enter)
-  :bind (("C-s"    . swiper-isearch)
+         ("DEL" . vertico-directory-delete-char)
-         ("C-r"    . counsel-rg)
+         ("TAB" . minibuffer-complete)
-         ("M-x"    . counsel-M-x)
+         ("M-DEL" . vertico-directory-delete-word))
-         ("<menu>" . counsel-M-x)
+  :hook ((elpaca-after-init . vertico-mode)
-
+         (elpaca-after-init . savehist-mode) ;; savehist sirve para recordar el último comando de M-x
-         ;; ("C-c C-r" . ivy-resume)
+         (rfn-eshadow-update-overlay . vertico-directory-tidy))
-         ;; ("C-c v p" . ivy-push-view)
+  :config
-         ;; ("C-c v o" . ivy-pop-view)
+  (setq read-file-name-completion-ignore-case t
-         ;; ("C-c v ." . ivy-switch-view)
+        read-buffer-completion-ignore-case t
-
+        completion-ignore-case t)
         :map counsel-mode-map
         ([remap swiper] . counsel-grep-or-swiper)
         ([remap swiper-backward] . counsel-grep-or-swiper-backward)
         ([remap dired] . counsel-dired)
         ([remap set-variable] . counsel-set-variable)
         ([remap insert-char] . counsel-unicode-char)
         ([remap recentf-open-files] . counsel-recentf)
         ([remap org-capture] . counsel-org-capture)
         ([remap jump-to-register] . counsel-register)
         :map ivy-minibuffer-map
         ("C-w" . ivy-yank-word)
         ("<tab>" . ivy-partial)
         ("<escape>" . minibuffer-keyboard-quit)
         :map counsel-find-file-map
         ("C-h" . counsel-up-directory)
         :map swiper-map
         ("M-%" . swiper-query-replace)
  )
-  :hook ((after-init . ivy-mode)
+;; Reemplazo para counsel
-         (ivy-mode . counsel-mode))
+(use-package consult
-  :init
+  :defer t
-  (setq enable-recursive-minibuffers t) ; Allow commands in minibuffers
+  :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)
-  (setq ivy-height 12
+         ([remap Info-search]        . consult-info)
-        ivy-use-selectable-prompt t
+         ([remap imenu]              . consult-imenu)
-        ivy-use-virtual-buffers t    ; Enable bookmarks and recentf
+         ([remap recentf-open-files] . consult-recent-file)
        ivy-fixed-height-minibuffer t
        ivy-count-format "(%d/%d) "
        ivy-ignore-buffers '("\\` " "\\`\\*tramp/" "\\`\\*xref" "\\`\\*helpful "
                             "\\`\\*.+-posframe-buffer\\*" "\\` ?\\*company-.+\\*")
        ivy-on-del-error-function #'ignore
        ivy-initial-inputs-alist nil)
  ;; Use orderless regex strategy
  (setq ivy-re-builders-alist '((t . ivy--regex-ignore-order)))
  ;; Set minibuffer height for different commands
  (setq ivy-height-alist '((counsel-evil-registers . 5)
                           (counsel-yank-pop . 8)
                           (counsel-git-log . 4)
                           (swiper . 15)
                           (counsel-projectile-ag . 15)
                           (counsel-projectile-rg . 15)))
-  (setq swiper-action-recenter t)
+         ("C-x M-." . consult-complex-command)     ;; orig. repeat-complex-command
-
+         ("C-c p b" . consult-project-buffer)      ;; orig. project-switch-to-buffer
-  (setq counsel-find-file-at-point t
+         ("C-c p p" . project-switch-project)
-        counsel-preselect-current-file t
+         ;; Consult search
-        counsel-yank-pop-separator "\n────────\n")
+         ("C-c p f" . consult-find)                  ;; Búsqueda de archivos en todo el projecto incluso en carpetas
-  (add-hook 'counsel-grep-post-action-hook #'recenter)
+         ("C-c p l" . consult-line-multi)            ;; Búsqueda en todos los buffers del projecto abiertos
-
+         ;; Custom M-# bindings for fast register access
-  ;; Use the faster search tools
+         ("C-'"   . consult-register-load)
-  (when (executable-find "rg")
+         ("M-'"   . consult-register-store)        ;; orig. abbrev-prefix-mark (unrelated)
-    (setq counsel-grep-base-command "rg -S --no-heading --line-number --color never '%s' '%s'"))
+         ;; Other custom bindings
-  (when (executable-find "fd")
+         ("M-y"   . consult-yank-pop)                ;; orig. yank-pop
-    (setq counsel-fzf-cmd
+         ;; M-g bindings in `goto-map'
-          "fd --type f --hidden --follow --exclude .git --color never '%s'"))
+         ("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 i" . consult-imenu)
         ("M-g I" . consult-imenu-multi)
         ;; Minibuffer history
         :map minibuffer-local-map
         ("<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.
         )
-;; Integración entre projectile y counsel
+  ;; Enable automatic preview at point in the *Completions* buffer. This is
-(use-package counsel-projectile
+  ;; relevant when you use the default completion UI.
-  :defer t
+  :hook (completion-list-mode . consult-preview-at-point-mode)
  :straight t
  :bind*
  ("C-x p" . counsel-projectile)
  :hook (counsel-mode . counsel-projectile-mode)
  :init (setq counsel-projectile-grep-initial-input '(ivy-thing-at-point)))
-;; Autocompletado, sugerencias y menú de búsqueda mejorados (este paquete incluye counsel y swiper)
+  ;; The :init configuration is always executed (Not lazy)
 (use-package ivy
  :defer t
  :straight t
  :hook (after-init . ivy-mode)
  :config
  (setq ivy-use-virtual-buffers nil))
 ;; Ivy pero con más detalles en pantalla
 (use-package ivy-rich
  :defer t
  :straight t
  :ensure t
  :hook ((counsel-projectile-mode . ivy-rich-mode) ; MUST after `counsel-projectile'
         (ivy-rich-mode . ivy-rich-project-root-cache-mode)
         (ivy-rich-mode . (lambda ()
                            "Use abbreviate in `ivy-rich-mode'."
                            (setq ivy-virtual-abbreviate
                                  (or (and ivy-rich-mode 'abbreviate) 'name)))))
  :init
-  ;; For better performance
+  ;; Optionally configure the register formatting. This improves the register
-  (setq ivy-rich-parse-remote-buffer nil))
+  ;; preview for `consult-register', `consult-register-load',
  ;; `consult-register-store' and the Emacs built-ins.
  (setq register-preview-delay 0.5
        register-preview-function #'consult-register-format)
  ;; Optionally tweak the register preview window.
  ;; This adds thin lines, sorting and hides the mode line of the window.
  (advice-add #'register-preview :override #'consult-register-window)
  ;; Use Consult to select xref locations with preview
  (with-eval-after-load 'xref
    (setq xref-show-xrefs-function #'consult-xref
          xref-show-definitions-function #'consult-xref))
 ;; Iconos en Ivy usando all-the-icons
 (use-package all-the-icons-ivy-rich
  :defer t
  :straight t
  :ensure t
  :hook (ivy-mode . all-the-icons-ivy-rich-mode)
  :config
-  (setq all-the-icons-ivy-rich-color-icon t))
+  ;; Optionally configure preview. The default value
  ;; is 'any, such that any key triggers the preview.
  ;; (setq consult-preview-key 'any)
  (setq consult-preview-key "M-.")
  ;; (setq consult-preview-key '("S-<down>" "S-<up>"))
  ;; For some commands and buffer sources it is useful to configure the
  ;; :preview-key on a per-command basis using the `consult-customize' macro.
  (consult-customize
   consult-goto-line
   consult-theme :preview-key '(:debounce 0.4 any))
-;; Ordenar los comandos usados en M-x (por uso y luego alfabéticamente)
+  ;; Optionally configure the narrowing key.
-(use-package smex
+  ;; Both < and C-+ work reasonably well.
-  :straight t
+  (setq consult-narrow-key "<") ;; "C-+"
  ;; Optionally make narrowing help available in the minibuffer.
  ;; 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
-  :after (counsel))
+  :hook (ibuffer-mode . nerd-icons-ibuffer-mode))
 ;; Descripciones en el minibufer
 (use-package marginalia
  :defer t
  :hook (elpaca-after-init . 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)
  :defer t)
 ;; Mover el minibufer de vertico al centro de la pantalla.
 (use-package vertico-posframe
  :after vertico
  :config
  (vertico-posframe-mode 1)
  (setq vertico-posframe-border-width 1)
  (setq vertico-posframe-parameters
        '((left-fringe . 8)
          (right-fringe . 8)))
  )
 (provide 'init-minibuffer)
 ;;; init-minibuffer.el ends here
--- a/configs/init-org.el
+++ b/configs/init-org.el
@ -21,10 +21,13 @@
  "Configuración para el hook de 'org-mode'."
  (display-line-numbers-mode 0)
-  (variable-pitch-mode 1)
+  ;; (variable-pitch-mode 1)
  (visual-line-mode 1)
  (visual-fill-column-mode 1)
  ;; Configuracin para Systanx Highlight en porg-blocks
  (add-to-list 'org-src-lang-modes (cons "html" 'mhtml))
  ;; Configuración de fonts
  ;; (set-face-attribute (car face) nil :font "Cantarell" :weight 'regular :height (cdr face))
@ -32,31 +35,80 @@
  ;; (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-block nil :underline nil :foreground nil :background "#282a36")
  ;; (set-face-attribute 'org-block-begin-line nil :underline nil :foreground nil :background "#1e1f28")
  ;; (set-face-attribute 'org-block-end-line nil :underline nil :foreground nil :background nil)
  ;; (set-face-attribute 'org-block-end-line nil :background 'unspecified)
  (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))
  (set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-face fixed-pitch))
  (set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch)
  ;; (set-face-attribute 'org-block nil :background
  ;;                   (color-darken-name
  ;;                    (face-attribute 'default :background) 3))
  ;; (setq org-src-block-faces '(("emacs-lisp" (:background "#EEE2FF"))
  ;;                           ("python" (:background "#E5FFB8"))))
  ;; Tachar los elementos "DONE"
  (set-face-attribute 'org-done nil :strike-through t)
  (set-face-attribute 'org-headline-done nil
                      :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)
                                         )))
  ;; No solicitar confirmación para evaluar
  (setq org-confirm-babel-evaluate nil)
  )
 ;; org-mode
 (use-package org
  :defer t
-  :straight (:type built-in)
+  :ensure nil
  :bind (("C-c a" . org-agenda)
         ("C-c c" . org-capture))
  :hook
  (org-mode . kj/org-hook)
  :config
  (setq company-dabbrev-ignore-case nil) ; Hacer el autocompletado case-sensitive.
  (setq org-ellipsis " ▾")
  (setq org-hide-emphasis-markers t)
  ;;(setq org-startup-folded 'content)
@ -80,19 +132,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)))
@ -112,27 +155,22 @@
  ;; Archivos entre los que se moverán las tareas
  (setq org-refile-targets
        '(("Archivo.org" :maxlevel . 1)
          ("Ideas.org" :maxlevel . 1)
          ("Tareas.org" :maxlevel . 1)))
  ;; 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)
          ("i" "Ideas")
          ("ii" "Ideas" entry (file+olp "~/Documentos/ORG/Agenda/ideas.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)
@ -144,23 +182,48 @@
            (buffer-substring-no-properties (point) (point-max)))
        (message "Download of image \"%s\" failed" link)
        nil)))
  (org-link-set-parameters "http"  :image-data-fun #'org-http-image-data-fn)
  (org-link-set-parameters "https" :image-data-fun #'org-http-image-data-fn)
  (use-package org-yt
    :straight (org-yt :type git :host github :repo "TobiasZawada/org-yt"))
  )
 ;; Los head "*" se ven como puntos
 (use-package org-bullets
  :defer t
  :straight t
  :hook
-  (org-mode . org-bullets-mode))
+  (org-mode . org-bullets-mode)
  :config
  (setq org-bullets-bullet-list '("◉"
                                  "○"
                                  "●"
                                  "◈"
                                  "◇"
                                  "◆"
                                  "✸"
                                  "✳"))
  )
 ;; Mejora visualmente varias cosas de org
 (use-package org-modern
  :defer t
  :ensure t
  :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
  :straight t
  :defer t
  :after (org)
  :config
@ -175,7 +238,6 @@
 ;; Segundo cerebro: Base de conocimientos en formato Zettelkasten
 (use-package org-roam
  :defer t
  :straight t
  :ensure t
  :bind (("<f4>" . org-roam-node-insert)
         ("<f3>" . org-roam-node-find))
@ -191,7 +253,6 @@
 ;; Interface web para navegar en mi base de conocimientos.
 (use-package org-roam-ui
  :defer t
  :straight t
  :ensure t
  :config
  (setq org-roam-ui-sync-theme t
@ -201,26 +262,32 @@
 ;; Continúa el formato de la lista cuando presionas enter.
 (use-package org-autolist
-  :straight t
+  :defer t
  :ensure t
  :hook (org-mode . org-autolist-mode))
-;; Emojis en lugar de letras para las prioridades en org-mode.
+;; Org babel para PHP
-(use-package org-fancy-priorities
+(use-package ob-php
  :straight t
  :defer t
-  :ensure t
+  :ensure t)
-  :hook (org-mode . org-fancy-priorities-mode)
+
-  :config
+;; Org babel para GO
-  (setq org-highest-priority ?A
+(use-package ob-go
-        org-default-priority ?B
+  :defer t
-        org-lowest-priority  ?D
+  :ensure t)
-        org-fancy-priorities-list '("⚡" "⬆" "⬇" "☕"))
+
-  )
+;; Org babel para Rust
 (use-package ob-rust
  :defer t
  :ensure t)
 ;; Org babel para traducciones (mediante google translate)
 (use-package ob-translate
  :defer t
  :ensure t)
 ;; Org mode en modo presentación
 (use-package org-present
  :straight t
  :defer t
  :after (org)
  :config
@ -247,5 +314,14 @@
              ))
  )
 ;; Mostrar los caracteres ocultos de org mode al pasar con el cursor.
 (use-package org-appear
  :defer t
  ;; :hook (org-mode . org-appear-mode)
  )
 ;; Polymode para org-mode
 ;; (use-package poly-org)
 (provide 'init-org)
 ;;; init-org.el ends here
--- a/configs/init-packages.el
+++ b/configs/init-packages.el
@ -14,14 +14,15 @@
 ;;; Code:
-;; Iconos bonitos
+;; Mejora del reemplazo
-(use-package all-the-icons
+(use-package anzu
  :defer t
-  :straight t)
+  :bind (([remap query-replace] . anzu-query-replace)
         ([remap query-replace-regexp] . anzu-query-replace-regexp)))
 ;; Intercamiar buffers de lugar
 (use-package buffer-move
-  :straight t
+  :defer 2
  :bind (("M-S-<up>" . buf-move-up)
         ("M-S-<down>" . buf-move-down)
         ("M-S-<left>" . buf-move-left)
@ -30,30 +31,33 @@
 ;; Mostrar la ayuda de eldoc/documentación en un childframe
 (use-package eldoc-box
  :straight t
  :defer t
  :bind ("<f1>" . eldoc-box-help-at-point))
 ;; Seleccionar por regiones (similar a mark-sexp, pero toma en cuenta hacia atrás del cursor también)
 (use-package expand-region
  :straight t
  :defer t
-  :bind ("C-+" . er/expand-region))
+  :bind (("C-+" . er/expand-region)
         ("C-=" . er/expand-region)))
 ;; Major mode para archivos CSV
 (use-package csv-mode
  :straight t
  :defer t
-  :hook ((csv-mode . csv-align-mode)
+  ;; :hook ((csv-mode . csv-align-mode)
-         (csv-mode . csv-header-line))
+  ;;        (csv-mode . csv-header-line))
  )
 ;; Visor de documentos de emacs (soporta de todo: epub, pdf, odt, docx, cbz, etc.)
 (use-package doc-view
  :defer t
  :hook
  (doc-view-mode . (lambda ()
                       (display-line-numbers-mode 0)))
  :ensure nil)
 ;; Un bonito y sencillo panel de inicio
 (use-package dashboard
  :straight t
  :defer t
  :init
  (dashboard-setup-startup-hook)
  :config
  (setq dashboard-set-file-icons t
        dashboard-set-heading-icons t
@ -63,27 +67,33 @@
  (setq dashboard-startup-banner
        (expand-file-name "duck.svg" user-emacs-directory))
  (setq dashboard-items '(
                          ;; (recents . 10)
                          (agenda . 10)
                          ;;(recents . 10)
                          ))
  )
-;; Mover líneas o regiones
+;; Coloca en emacs la documentacón distribuída por devdocs.io
-(use-package drag-stuff
+(use-package devdocs
  :defer 2)
 ;; Sidebar a la derecha con los archivos
 (use-package dired-sidebar
  :defer t
-  :straight t
+  :hook (dired-mode . hl-line-mode)
-  :hook
+  :bind ([f9] . dired-sidebar-toggle-sidebar)
-  (after-init . drag-stuff-global-mode)
+  :commands (dired-sidebar-toggle-sidebar)
  :config
-  (drag-stuff-define-keys))
+  (setq dired-sidebar-theme 'nerd
        ;; dired-sidebar-should-follow-file t
        ;; dired-sidebar-follow-file-idle-delay 0.5
        ))
 ;; La línea bonita esa de abajo
 (use-package doom-modeline
-  :defer t
+  :after emacs
  :straight t
  :ensure t
  :hook (after-init . doom-modeline-mode)
  :config
  (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
@ -91,24 +101,39 @@
        doom-modeline-indent-info nil
        doom-modeline-persp-name t))
-;; Emparejamiento automático de comillas, paréntesis, corchetes y llaves
+;; Modo para edición de arc docker compose
-(use-package electric-pair
+(use-package docker-compose-mode
-  :defer t
+  :defer t)
  :straight (:type built-in)
  :hook (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.
+;; Modo para la edición de archivos Dockerfile (y building desde emacs)
-(use-package git-gutter
+(use-package dockerfile-mode
  :defer t
-  :straight t
+  :config
-  :hook
+  ;; Suelo tener podman siempre en lugar de docker, así que lo definimos como el comando a usar
-  (after-init . global-git-gutter-mode))
+  (setq dockerfile-mode-command "podman"))
 ;; Mover líneas o regiones
 (use-package drag-stuff
  :defer 1
  :config
  (drag-stuff-global-mode)
  (drag-stuff-define-keys))
 ;; Emparejamiento automático de comillas, paréntesis, corchetes y llaves
 ;; (use-package electric-pair
 ;;   :defer t
 ;;   :ensure nil
 ;;   :config
 ;;   (electric-pair-mode)
 ;;   (setq electric-pair-delete-adjacent-pairs nil))
 ;; Cargar las  variables de entorno desde la configuración del usuario
 (use-package exec-path-from-shell
  :config
  (exec-path-from-shell-initialize))
 ;; Resalta los escapes de secuencia
 (use-package highlight-escape-sequences
  :straight t
  :defer t
  :hook (prog-mode . hes-mode)
  :config
@ -118,6 +143,7 @@
          (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)
@ -129,9 +155,25 @@
        )
  )
 ;; Resaltar palabras clave como TODO, FIXME, etc. en comentarios del código.
 (use-package hl-todo
  :ensure (hl-todo :version (lambda (_) "3.6.0"))
  :defer t
  :hook (prog-mode . hl-todo-mode)
  :config
  (add-to-list 'hl-todo-keyword-faces '("BUG" . "#d99600")))
 ;; Paquete para exportar buffers de emacs a HTML
 (use-package htmlize
  :defer t
  :ensure t)
 ;; Permite crear conjuntos de atajos.
 (use-package hydra
  :defer t)
 ;; Mostrar lo que se está presionando en pantalla
 (use-package keypression
  :straight t
  :defer t
  :config
  (setq keypression-use-child-frame t
@ -145,147 +187,158 @@
      keypression-font-face-attribute '(:width normal :height 180 :weight bold))
  )
 ;; Generador automatizado de archivos de licencia
 (use-package license-templates
  :straight t
  :defer t)
 ;; Magia para git
 (use-package magit
  :defer t
  :straight t)
 ;; Modo markdown
 (use-package markdown-mode
-  :defer t
+  :defer t)
  :straight t)
 ;; Multiple vterm
 (use-package multi-vterm
  :defer t
-  :straight t
+  :after vterm
-  :bind* (("C-x tt" . multi-vterm-dedicated-toggle)
+  :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)
-;; Mecanografía
+;; Iconos bonitos para varias cosas
-(use-package speed-type
+(use-package nerd-icons
-  :defer t
+  :defer t)
  :straight t
  :diminish
  :config
  (setq speed-type-gb-book-list '(66867 66866 66591 57303)
        speed-type-min-chars 500
        speed-type-max-chars 600))
-;; Paquete para manejo de proyectos
+;; Usar nerd-icons en dired
-(use-package projectile
+(use-package nerd-icons-dired
  :defer t
-  :straight t
+  :after nerd-icons
-  :bind ("C-c p" . projectile-command-map)
+  :hook (dired-mode . nerd-icons-dired-mode))
  :diminish projectile-mode
  :custom ((projectile-completion-system 'ivy))
  :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))
  ;; Carpetas donde tienes tus proyectos (deben tener un archivo .projectile o un repro git inicio).
  (when (file-directory-p "~/Proyectos")
    (setq projectile-project-search-path '("~/Proyectos")))
  (when (file-directory-p "~/mnt/Nginx")
    (setq projectile-project-search-path (append
                                          projectile-project-search-path
                                          '("~/mnt/Nginx"))))
-  ;; Cambiar el título de la ventana de emacs
+;; Modo para leer archivos de configuración de nginx
 (use-package nginx-mode
  :defer t)
 ;; Múltiples modos en un mismo buffer
 ;; (use-package polymode
 ;; :defer t)
 ;; Des-minifica / ordena el código
 (use-package prettier
  :defer t)
 (use-package project
  :defer t
  :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 (projectile-project-name)))
+           (let ((project-name (kj/project-name)))
-             (unless (string= "-" project-name)
+             (unless (null project-name)
               (format "[%s] " project-name))))
          "%b"
          " - Emacs")
        )
 )
-
+;; Correr el código desde el buffer de emacs
-  (defun projectile-desktop-save-hook ()
+(use-package quickrun
-    "Nombres de los archivos de desktop-save según el nombre del proyecto."
+  :defer t
-    (setq desktop-hash
+  :ensure t
-          (secure-hash 'md5 (concat (projectile-project-root))))
+  :bind (:map prog-mode-map
-
+              ("C-c C-r" . quickrun)
-    (setq
+              ("C-c r f" . quickrun)
-     desktop-base-file-name (concat ".emacs-" desktop-hash ".desktop")
+              ("C-c r r" . quickrun-region)
-     desktop-base-lock-name (concat ".emacs-" desktop-hash ".desktop" ".lock"))
+              ("C-c r R" . quickrun-replace-region)
         )
  (add-hook 'projectile-after-switch-project-hook #'projectile-desktop-save-hook)
  )
 ;; Recentf - Guarda registro de los archivos abiertos recientemente
 (use-package recentf
  :defer t
-  :straight t
+  :ensure nil
  :bind ("C-x C-r" . recentf-open-files)
  :hook (after-load-theme . recentf-mode)
  :config
  (setq recentf-save-file
-        (recentf-expand-file-name (concat temp-dir "/recentf")))
+        (recentf-expand-file-name (concat temp-dir "/recentf"))
-  (recentf-mode 1))
+        recentf-auto-cleanup 'never
        recentf-keep '(file-remote-p file-readable-p)
        recentf-max-saved-items 1000
        recentf-max-menu-items 500))
 ;; Busqueda rápida con ripgrep
 (use-package rg
  :defer t
-  :straight t
+  ;; :hook (elpaca-after-init . rg-enable-default-bindings)
  :defines projectile-command-map
  :hook (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)
+  (setq rg-group-result t
-
+        rg-show-columns t)
-  (with-eval-after-load 'projectile
+  (cl-pushnew '("tmpl" . "*.tmpl") rg-custom-type-aliases))
    (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
-  :straight t
+  :ensure nil
-  :hook (after-init . save-place-mode)
+  :defer t
-  :config
+  :hook
-  (setq save-place-file (locate-user-emacs-file (concat temp-dir "/places"))))
+  (elpaca-after-init . (lambda()
                         (setq save-place-file (locate-user-emacs-file (concat temp-dir "/places")))
                         (save-place-mode 1)
                         ))
  )
 ;; Mejorando el scroll
 (use-package smooth-scrolling
  :defer t
  :straight t
  :hook (after-init . smooth-scrolling-mode)
  :config
  (smooth-scrolling-mode 1)
  (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)
  )
-;; Paquete para crear imágens (solo lo uso para sacar capturas SVG de emacs)
+;; Ayuda a manipular los archivos con líneas demasiado largas
-(use-package silicon
+(use-package so-long
  :ensure t
  :defer t
-  :straight (silicon :type git :host github :repo "iensu/silicon-el"))
+  :ensure 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)))
  )
 ;; Mecanografía
 (use-package speed-type
  :defer t
  :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))
 ;; Tree-sitter :)
 (use-package treesit
  :defer t
-  :straight (:type built-in)
+  :ensure nil
  :commands (treesit-install-language-grammar nf/treesit-install-all-languages)
  :config
  (setq treesit-language-source-alist
@ -298,16 +351,20 @@
          (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"))
+          (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'."
@ -318,40 +375,39 @@
 	(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
  :straight (vs-comment-return :type git :host github :repo "emacs-vs/vs-comment-return")
  :defer t
  :hook (prog-mode . vs-comment-return-mode)
  )
 ;; Mostrar el último commit que modificó la linea actual
 (use-package vc-msg
  :straight t
  :defer t
  :bind (("C-c v" . vc-msg-show)
         ("C-c C-v" . vc-msg-show))
  )
 ;; Terminal
-(use-package vterm :ensure t :defer t :straight t)
+(use-package vterm
  :defer t
  :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
  )
-;; Cuando iniicias un atajo de teclas te muestra las posibilidades
+;; Cuando inicias un atajo de teclas te muestra las posibilidades
 (use-package which-key
  :defer t
-  :straight t
+  :config
-  :hook (after-init . which-key-mode))
+  (which-key-mode))
 ;; Muestra which-key en un frame en el centro en lugar de abajo
 (use-package which-key-posframe
  :after which-key
  :config
  (which-key-posframe-mode))
 ;; Restaurar el estado de los frames
 (use-package winner
  :ensure nil
  :defer t
-  :straight t
+  :config
-  :hook (after-init . winner-mode))
+  (winner-mode))
 ;; Emacs Start Up Profiler
-(use-package esup
+;; (use-package esup
-  :ensure t
+;;   :defer t)
  :straight t)
 (provide 'init-packages)
 ;;; init-packages.el ends here
--- a/configs/init-theme.el
+++ b/configs/init-theme.el
@ -0,0 +1,38 @@
 ;;; 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
  :defer t)
 ;; El theme más cercano a adwaita dark que he encontrado
 (use-package adwaita-dark-theme
  :defer t)
 ;; Themes modus, vienen integrado en emacs en master (~v30)
 (use-package modus-themes
  :defer t)
 ;; Themes ef
 (use-package ef-themes
  :defer t)
 ;; Prendemos el theme que elijamos
 (add-hook 'elpaca-after-init-hook #'(lambda() (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-vc.el
+++ b/configs/init-vc.el
@ -0,0 +1,111 @@
 ;;; 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:
 ;; Resolver diferencias entre 2 archivos o versiones del mismo.
 (use-package ediff
  :defer t
  :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))
 ;; 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
  :config
  (global-git-gutter-mode 1)
  (defhydra hydra-git-gutter (:hint nil)
    "
 ^Navigation^  | ^Actions^     | ^Others^
 -^-----------^-+-^----^--------+-^-------^----------
 _p_: previous | _s_: stage    | _m_:   mark
 _n_: next     | _r_: revert   | _SPC_: toggle info
 -^-----------^-+-^----^--------+-^-------^----------
 "
    ("p" git-gutter:previous-hunk)
    ("n" git-gutter:next-hunk)
    ("s" git-gutter:stage-hunk)
    ("r" git-gutter:revert-hunk)
    ("m" git-gutter:mark-hunkmark)
    ("SPC" git-gutter:toggle-popup-hunk))
  )
 ;; Visitar rápidamente viejas versiones de un archivo rápidamente
 (use-package git-timemachine
  :defer t)
 ;; Generador automatizado de archivos de licencia
 (use-package license-templates
  :defer t)
 ;; Magia para git
 (use-package magit
  :defer t)
 ;; Todolist en magit de todos los archivos del projecto.
 (use-package magit-todos
  :defer t
  :config (magit-todos-mode 1))
 ;; Modo para resolución de confictos
 (use-package smerge-mode
  :ensure nil
  :defer t
  :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
  :defer t)
 ;; 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))
  )
 (provide 'init-vc)
 ;;; init-vc.el ends here
--- a/configs/lang-go.el
+++ b/configs/lang-go.el
@ -10,7 +10,6 @@
 ;;; Code:
 (use-package go-mode
  :straight t
  :defer t)
 (provide 'lang-go)
--- a/configs/lang-html.el
+++ b/configs/lang-html.el
@ -10,7 +10,6 @@
 ;;; Code:
 (use-package web-mode
  :straight t
  :defer t
  :config
  (setq web-mode-markup-indent-offset 2
@ -21,12 +20,15 @@
  )
 (use-package css-mode
  :defer t
  :ensure nil
  :config
  (setq css-indent-offset 2))
 (use-package auto-rename-tag
-  :straight t (auto-rename-tag :type git :host github :repo "jcs-elpa/auto-rename-tag")
+  :ensure (:host github :repo "jcs-elpa/auto-rename-tag")
  :defer t
  :hook ((html-mode . auto-rename-tag-mode)
         (web-mode  . auto-rename-tag-mode))
  )
 (provide 'lang-html)
--- a/configs/lang-js.el
+++ b/configs/lang-js.el
@ -11,18 +11,18 @@
 (use-package js
  :defer t
-  :straight t
+  :ensure nil
  :mode
  ("\\.js$" . js-mode)
-  :hook
+  :init
-  (js-mode . eglot-ensure)
+  (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
  :straight t
  :ensure t
  :mode
  ("\\.json$" . json-mode)
--- a/configs/lang-php.el
+++ b/configs/lang-php.el
@ -9,26 +9,22 @@
 ;;; Code:
-(use-package php-mode
+(use-package php-ts-mode
  :defer t
-  :straight t
+  :mode "\\.php\\'"
-  :bind ("C-c d b" . kj/php-doc-block)
+  ;; :init
-  :config
+  ;; (add-to-list 'auto-mode-alist '("\\.php\\'" . php-ts-mode))
-  (defun kj/php-doc-block ()
+  ;; :after php-mode
-    "Llama a \"php-dock-block\", sin conflicto con \"vs-comment-return-mode\"."
+  :ensure nil)
-    (interactive)
+
-    (if (bound-and-true-p vs-comment-return-mode)
+;; (use-package php-mode
-        (funcall (lambda()
+;;   :defer t
-                   (vs-comment-return-mode -1)
+;;   :ensure t)
                   (php-doc-block)
                   (vs-comment-return-mode 1)))
      (php-doc-block)
      )
    )
  )
 (use-package php-doc-block
-  :straight (php-doc-block :type git :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")
  )
 (provide 'lang-php)
--- a/configs/lang-rust.el
+++ b/configs/lang-rust.el
@ -11,21 +11,11 @@
 (use-package rust-mode
  :defer t
  :straight t
  :ensure t
  :init
  (setq rust-mode-treesitter-derive t)
  :config
  (setq rust-format-on-save t))
 ;; Rustic es necesario solamente si se usa lsp-mode + flycheck.
 ;; (use-package rustic
 ;;   :defer t
 ;;   :straight t
 ;;   :ensure t
 ;;   :config
 ;;   ;;(setq rustic-lsp-server 'rls)
 ;;   (setq rustic-lsp-client 'lsp)
 ;;   ;;(setq rustic-lsp-client nil)
 ;;   (push 'rustic-clippy flycheck-checkers))
 (provide 'lang-rust)
 ;;; lang-rust.el ends here
--- a/early-init.el
+++ b/early-init.el
@ -24,6 +24,7 @@
 (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 ()
  "Restaura el garbaje collection luego de iniciar."
  (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))
@ -33,23 +34,31 @@
 (setq gc-cons-percentage (get 'gc-cons-percentage 'value-during-init))
 ;; Color de fondo similar al theme para evitar que se vea blanco al iniciar
-(add-to-list 'default-frame-alist '(background-color . "#282a36"))
+;; (add-to-list 'default-frame-alist '(background-color . "#282a36"))
 ;; Permitir solo la búsqueda de archivos a cargar en la config en case sensitive.
 (setq auto-mode-case-fold nil)
 ;; 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.
 ;; Iniciar emacs maximizado
-;; (add-to-list 'initial-frame-alist '(fullscreen . maximized)) ; frame inicial
+;; (add-hook 'window-setup-hook 'toggle-frame-maximized t) ; Hacerlo mediante window-setup-hook (se maximiza al terminar de cargar la ventana)
-;; (add-to-list 'default-frame-alist '(fullscreen . maximized)) ; Cada frame
+;; (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)
+
 ;; Resizing the Emacs frame can be a terribly expensive part of changing the
 ;; font. By inhibiting this, we easily halve startup times with fonts that are
 ;; larger than the system default.
 (setq frame-inhibit-implied-resize t
      frame-resize-pixelwise t)
 ;; Recommended by
 ;; https://github.com/raxod502/straight.el#getting-started to prevent
-;; 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
@ -15,16 +15,17 @@
 ;; Paquetes base
 (require 'init-base)
 (require 'init-theme)
 (require 'init-packages)
 (require 'init-functions)
 (require 'init-ai)
 (require 'init-vc)
 (require 'init-org)
 ;; (require 'init-lsp)
 (require 'init-eglot)
-(require 'init-company)
+(require 'init-corfu)
-(require 'init-treemacs)
+;; (require 'init-ctags)
 (require 'init-ctags)
 (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,63 @@
 #+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:
 - El font de firacode
 - 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 [[./configs/init-packages.el][init-packages.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]]