Add macher package

enable global subword mode by default.
disable automatic PHP CS Fixer on save
2025-09-08 10:24:01 -03:00 · 2025-09-08 09:45:54 -03:00 · 2025-09-08 09:21:24 -03:00 · 2025-09-08 09:20:38 -03:00 · 2025-09-08 09:17:58 -03:00 · 2025-09-08 09:16:13 -03:00
31 changed files with 1613 additions and 959 deletions
--- a/.gitignore
+++ b/.gitignore
@ -33,3 +33,7 @@ workspace/
 /eshell/
 /.emacs.desktop
 /.tutor/
 /intelephense/
 /auto-save-list/
 /*.eld
 /.custom.el
--- a/34
+++ b/34
@ -1,4 +1,4 @@
-;;-*-coding: utf-8;-*-
+;; -*- coding: utf-8; lexical-binding: t -*-
 (define-abbrev-table 'mhtml-mode-abbrev-table
  '(
    ("doc" "<!DOCTYPE html>
@ -14,6 +14,34 @@
    ("doctype" "<!DOCTYPE html>" nil :count 0)
   ))
 (define-abbrev-table 'php-ts-mode-abbrev-table
  '(
    ("bwtest" "use Tests\\TestCase;
 class Test extends TestCase
 {
    /**
     * @group
     * @group
     * @test
     */
    public function Service()
    {
        /**
         * Preparing
         */
        /**
         * Actions
         */
        /**
         * Asserts
         */
    }
 }" nil :count 6)
   ))
 (define-abbrev-table 'web-mode-abbrev-table
  '(
    ("doc" "<!DOCTYPE html>
@ -25,7 +53,7 @@
  </head>
  <body>
  </body>
-</html>" nil :count 9)
+</html>" nil :count 10)
-    ("doctype" "<!DOCTYPE html>" nil :count 1)
+    ("doctype" "<!DOCTYPE html>" nil :count 2)
   ))
--- a/configs/init-ai.el
+++ b/configs/init-ai.el
@ -0,0 +1,56 @@
 ;;; init-ai.el --- Configuración de inteligencias artificales  -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Configuración para Inteligencia artifical en Emacs.
 ;;; Code:
 ;; Cliente LLM (ollama, chatgpt, gemini, etc.)
 (use-package gptel
  :config
  ;; (setq gptel-model 'gemma3:4b
  ;;       gptel-backend (gptel-make-ollama "Ollama"
  ;;                       :host "localhost:11434"
  ;;                       :stream t
  ;;                       :models '("mistral:latest"
  ;;                                 "deepseek-r1:1.5b"
  ;;                                 "deepcoder"
  ;;                                 "dolphin-llama3:latest"
  ;;                                 "gemma3:4b"
  ;;                                 "llava:latest"))
        gptel-default-mode 'org-mode
        gptel-prompt-prefix-alist
        '((markdown-mode . "# User\n\n")
          (org-mode . "* User\n\n")
          (text-mode . "# User\n\n"))
        gptel-response-prefix-alist
        '((markdown-mode . "# AI\n\n")
          (org-mode . "* AI\n\n")
          (text-mode . "# AI\n\n"))
        gptel-directives
        '((default . "You are a large language model living in Emacs and a helpful assistant. Respond concisely in Spanish."))
        )
  (setopt gptel-include-reasoning nil)) ;; Mantener hasta resolver: https://github.com/ragnard/gptel-magit/issues/8
 (use-package copilot
  :bind (("M-<return>" . copilot-complete)
         :map copilot-completion-map
         ("C-g" . 'copilot-clear-overlay)
         ("C-<return>" . 'copilot-accept-completion)
         ("C-<tab>" . 'copilot-accept-completion-by-word)))
 (use-package gptel-magit
  :ensure t
  :hook (magit-mode . gptel-magit-install))
 (use-package macher
  :ensure (:host github :repo "kmontag/macher")
  :custom
  (macher-action-buffer-ui 'org))
 (provide 'init-ai)
 ;;; init-ai.el ends here
--- a/configs/init-base.el
+++ b/configs/init-base.el
@ -6,10 +6,11 @@
 ;;; Commentary:
 ;; Configuración general de Emacs.
 ;; No incluye paquetes/extensiones, solo configuraciones generales.
 ;;; Code:
 (require 'init-functions)
 ;; Native compilation
 (when (and (fboundp 'native-comp-available-p)
           (native-comp-available-p))
@ -19,131 +20,114 @@
    (setq package-native-compile t)
    ))
-;; Instalar elpaca.el (reemplpazando package.el)
+;; Custom configs file
-(defvar elpaca-installer-version 0.7)
+(setq custom-file (concat user-emacs-directory ".custom.el"))
 (defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
 (defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
 (defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
 (defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
                              :ref nil
                              :files (:defaults "elpaca-test.el" (:exclude "extensions"))
                              :build (:not elpaca--activate-package)))
 (let* ((repo  (expand-file-name "elpaca/" elpaca-repos-directory))
       (build (expand-file-name "elpaca/" elpaca-builds-directory))
       (order (cdr elpaca-order))
       (default-directory repo))
  (add-to-list 'load-path (if (file-exists-p build) build repo))
  (unless (file-exists-p repo)
    (make-directory repo t)
    (when (< emacs-major-version 28) (require 'subr-x))
    (condition-case-unless-debug err
        (if-let ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*"))
                 ((zerop (call-process "git" nil buffer t "clone"
                                       (plist-get order :repo) repo)))
                 ((zerop (call-process "git" nil buffer t "checkout"
                                       (or (plist-get order :ref) "--"))))
                 (emacs (concat invocation-directory invocation-name))
                 ((zerop (call-process emacs nil buffer nil "-Q" "-L" "." "--batch"
                                       "--eval" "(byte-recompile-directory \".\" 0 'force)")))
                 ((require 'elpaca))
                 ((elpaca-generate-autoloads "elpaca" repo)))
            (progn (message "%s" (buffer-string)) (kill-buffer buffer))
          (error "%s" (with-current-buffer buffer (buffer-string))))
      ((error) (warn "%s" err) (delete-directory repo 'recursive))))
  (unless (require 'elpaca-autoloads nil t)
    (require 'elpaca)
    (elpaca-generate-autoloads "elpaca" repo)
    (load "./elpaca-autoloads")))
 (add-hook 'after-init-hook #'elpaca-process-queues)
 (elpaca `(,@elpaca-order))
-;; Instalar use-package si no está instalado
+;; Garbage Collector Magic Hack
-(elpaca elpaca-use-package
+(use-package gcmh
-  ;; Enable :elpaca use-package keyword.
+  :diminish
-  (elpaca-use-package-mode)
+  :hook (emacs-startup . gcmh-mode)
-  ;; Assume :elpaca t unless otherwise specified.
+  :init
-  (setq elpaca-use-package-by-default t))
+  (setq gcmh-idle-delay 'auto
        gcmh-auto-idle-delay-factor 10
        gcmh-high-cons-threshold #x1000000)) ; 16MB
-;; Block until current queue processed.
+;; Guardar la posición del cursor en un archivo para volver allí cuando se lo vuelva a abrir.
-(elpaca-wait)
+(use-package saveplace
  :ensure nil
  :hook (after-init . save-place-mode))
 ;; Recentf - Guarda registro de los archivos abiertos recientemente
 (use-package recentf
  :ensure nil
  :bind (("C-x C-r" . recentf-open-files))
  :hook (after-init . recentf-mode)
  :init (setq recentf-max-saved-items 300
              recentf-exclude
              '("\\.?cache" ".cask" "url" "COMMIT_EDITMSG\\'" "bookmarks"
                "\\.\\(?:gz\\|gif\\|svg\\|png\\|jpe?g\\|bmp\\|xpm\\)$"
                "\\.?ido\\.last$" "\\.revive$" "/G?TAGS$" "/.elfeed/"
                "^/tmp/" "^/var/folders/.+$" "^/ssh:" "/persp-confs/"
                (lambda (file) (file-in-directory-p file package-user-dir))))
  :config
  (push (expand-file-name recentf-save-file) recentf-exclude)
  (add-to-list 'recentf-filename-handlers #'abbreviate-file-name))
 ;; Guarda el historial del minibuffer
 (use-package savehist
  :ensure nil
  :hook (after-init . savehist-mode)
  :init (setq enable-recursive-minibuffers t ; Allow commands in minibuffers
              history-length 1000
              savehist-additional-variables '(mark-ring
                                              global-mark-ring
                                              search-ring
                                              regexp-search-ring
                                              extended-command-history)
              savehist-autosave-interval 300))
 ;; Misc.
 (use-package simple
  :ensure nil
  :hook ((after-init . size-indication-mode)
         (before-save . delete-trailing-whitespace)
         (text-mode . visual-line-mode))
  :init
  (setq column-number-mode t
        line-number-mode t
        kill-whole-line t               ; Kill line including '\n' (C-k)
        line-move-visual nil
        track-eol t                     ; Keep cursor at end of lines. Require line-move-visual is nil.
        set-mark-command-repeat-pop t)  ; Repeating C-SPC after popping mark pops it again
  ;; Visualize TAB, (HARD) SPACE, NEWLINE
  (setq-default show-trailing-whitespace nil ; Don't show trailing whitespace by default
                cursor-type 'bar)            ; Usar la barrita como cursor
  (setq show-trailing-whitespace t))
 (defconst private-dir  (expand-file-name "private" user-emacs-directory))
 (defconst temp-dir (format "%s/cache" private-dir)
  "Hostname-based elisp temp directories.")
 ;; UTF-8 please
-(set-charset-priority 'unicode)
+(when (fboundp 'set-charset-priority)
-(setq locale-coding-system   'utf-8)   ; pretty
+  (set-charset-priority 'unicode))
-(set-terminal-coding-system  'utf-8)   ; pretty
+(set-language-environment "UTF-8")
-(set-keyboard-coding-system  'utf-8)   ; pretty
+(set-default-coding-systems 'utf-8)
-(set-selection-coding-system 'utf-8)   ; please
+(set-buffer-file-coding-system 'utf-8)
-(prefer-coding-system        'utf-8)   ; with sugar on top
+(set-clipboard-coding-system 'utf-8)
-(setq default-process-coding-system '(utf-8-unix . utf-8-unix))
+(set-file-name-coding-system 'utf-8)
 (set-keyboard-coding-system 'utf-8)
 (set-next-selection-coding-system 'utf-8)
 (set-selection-coding-system 'utf-8)
 (set-terminal-coding-system 'utf-8)
 (setq locale-coding-system 'utf-8)
 (setq system-time-locale "C")
-;; Emacs customizations
+;; Misc
-(when (display-graphic-p)
+(if (boundp 'use-short-answers)
-  (scroll-bar-mode -1)                          ; Quitar scrollbar.
+    (setq use-short-answers t)
-  )
+  (fset 'yes-or-no-p 'y-or-n-p))
-(tooltip-mode -1)                               ; Disable tooltips.
+(setq-default major-mode 'text-mode
-(global-display-line-numbers-mode)              ; Mostar número de línea.
+              fill-column 80
-(show-paren-mode 1)                             ; Habilitar resaltado de brackets.
+              tab-width 4
-(pending-delete-mode t)                         ; Cuando selecciono un texto y escribo, el texto se borra (emacs por defecto solo escribe donde está el cursor).
+              indent-tabs-mode nil)     ; Permanently indent with spaces, never with TABs
 ;; (global-hl-line-mode)                           ; Resaltar línea actual por defecto.
 (setq use-short-answers t)                      ; Usar respuesta cortas (y/n) en lugar de las largas (yes/no)
 (setq-default
 cursor-type 'bar                               ; Usar la barrita como cursor
 cursor-in-non-selected-windows nil             ; Desaparecer el cursor en frames no activos.
 indent-tabs-mode nil                           ; Cambiar tabs por espacios.
 inhibit-startup-message t                      ; Eliminar el mensaje de inicio.
 )
 (setq
 custom-file (concat private-dir "/.custom.el") ; Cabiar la ruta del código que se genera al isntalar un theme o package
 ac-ignore-case nil                             ; Desactivar el autocapitalizado.
 ac-disable-faces nil                           ; Auto-complete hablitado incluso entre comillas (fuente: https://bit.ly/3a9wCB4).
 tags-revert-without-query 1                    ; Recargar tags (ctags) sin pedir confirmación.
 )
 ;; Leve transparencia en emacs por defecto.
 ;; (set-frame-parameter nil 'alpha-background 95)
 ;; Font por defecto
 (set-face-attribute 'default nil :font "Fira Code Retina" :height 112)
-;; Backups enabled, use nil to disable
+(setq visible-bell t
-(setq
+      inhibit-compacting-font-caches t  ; Don’t compact font caches during GC
- history-length                     1000
+      delete-by-moving-to-trash t       ; Deleting files go to OS's trash folder
- backup-inhibited                   nil
+      make-backup-files nil             ; Forbide to make backup files
- make-backup-files                  nil
+      auto-save-default nil             ; Disable auto sav
- auto-save-default                  nil
+      inhibit-splash-screen t
- auto-save-list-file-name           (concat temp-dir "/autosave")
+      uniquify-buffer-name-style 'post-forward-angle-brackets ; Show path if names are same
- create-lockfiles                   nil
+      adaptive-fill-regexp "[ t]+|[ t]*([0-9]+.|*+)[ t]*"
- backup-directory-alist            `((".*" . ,(concat temp-dir "/backup/")))
+      adaptive-fill-first-line-regexp "^* *$"
- auto-save-file-name-transforms    `((".*" ,(concat temp-dir "/auto-save-list/") t)))
+      sentence-end "\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*"
      sentence-end-double-space nil
      word-wrap-by-category t)
-;; Configuración cuando es un server
+;; Async
-(defun setup-daemon ()
+(use-package async
-  "Carga la configuración del modo daemon."
+  :functions (async-bytecomp-package-mode dired-async-mode)
-  (message "Corriendo en modo daemon.")
+  :init
-  (set-face-attribute 'default nil :font "Fira Code Retina" :height 112)
+  (async-bytecomp-package-mode 1)
-
+  (dired-async-mode 1))
  ;; Abrir primero el dashboard
  (setq initial-buffer-choice (lambda ()
                                (get-buffer "*dashboard*")
                                (dashboard-refresh-buffer)))
  ;; Cerrar buffers al cerrar emacsclient
  ;; (add-hook 'delete-frame-functions
  ;;           (lambda (frame)
  ;;             (mapc 'kill-buffer (delq (get-buffer "*dashboard*") (buffer-list)))
  ;;             ))
  )
 (if (daemonp)
    (add-hook 'after-make-frame-functions
              (lambda (frame)
                (with-selected-frame frame
                  (setup-daemon))))
  (message "Corriendo en modo normal."))
 (add-hook 'elpaca-after-init-hook (lambda () (load custom-file 'noerror)))
 (provide 'init-base)
 ;;; init-base.el ends here
--- a/configs/init-completion.el
+++ b/configs/init-completion.el
@ -1,4 +1,4 @@
-;;; init-corfu.el --- Autocompletado con corfu  -*- lexical-binding: t -*-
+;;; init-completion.el --- Autocompletado con corfu  -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
@ -15,23 +15,26 @@
 ;;; Code:
 ;; childframe con los cantidatos de autocompletado
 (use-package corfu
  :defer t
  :ensure (:files (:defaults "extensions/*")
                  :includes (corfu-info corfu-history))
  :hook ((elpaca-after-init . global-corfu-mode)
-         (corfu-mode . corfu-popupinfo-mode))
+         (global-corfu-mode . corfu-popupinfo-mode))
  :bind (:map corfu-map
              ("<tab>" . corfu-quit)
              ("<escape>" . corfu-quit)
              ("<SPC>"    . corfu-insert-separator))
  :custom-face
  (corfu-border ((t (:inherit region :background unspecified))))
  :custom
  (corfu-auto t)
  :config
  (global-corfu-mode)
  (setq corfu-popupinfo-delay 0
-        ;; corfu-auto-delay 0.5
+        corfu-auto-delay 0
-        corfu-auto-prefix 1
+        corfu-auto-prefix 2
        corfu-cycle t
        corfu-quit-at-boundary t
        corfu-preview-current nil
        corfu-quit-no-match t)
  (when (< emacs-major-version 29)
@ -44,7 +47,7 @@
 ;; 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!
@ -63,22 +66,30 @@
     ))
  )
 ;; 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)
+  :hook (eglot-managed-mode . (lambda()
-         ("C-c l" . cape-line)
+                                (setq completion-at-point-functions
-         ("C-c _" . cape-tex))
+                                      (list (cape-capf-super
                                             #'eglot-completion-at-point
                                             #'cape-abbrev
                                             #'cape-dabbrev
                                             #'cape-history
                                             #'cape-dict
                                             #'cape-file
                                             #'cape-keyword)))))
  :bind (("C-c c f" . cape-file)
         ("C-c c l" . cape-line))
  :init
  (setq text-mode-ispell-word-completion nil)
  ;; (add-to-list 'completion-at-point-functions #'cape-line)     ;; Completar línea actual en función de lo que dice otras líneas de buffer.
  ;; (add-to-list 'completion-at-point-functions #'cape-tex)      ;; Completar Latex (caracteres unicode).
  (add-to-list 'completion-at-point-functions #'cape-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-history)  ;; Completar desde el historial de altocompletado
  (add-to-list 'completion-at-point-functions #'cape-dict)     ;; Completar desde un diccionario (por defecto toma el de linux que está en /usr/share/dict/words).
  (add-to-list 'completion-at-point-functions #'cape-file)     ;; Completar rutas de archivos.
  (add-to-list 'completion-at-point-functions #'cape-keyword)  ;; Completar desde keyword del lenguaje.
@ -90,19 +101,35 @@
  (use-package corfu-terminal
    :after corfu
    :ensure (:repo "https://codeberg.org/akib/emacs-corfu-terminal.git")
-    :config
+    :init
    (corfu-terminal-mode +1))
  )
-;; Iconos en corfu
+;; A few more useful configurations...
-(use-package kind-icon
+(use-package emacs
-  :ensure t
+  :ensure nil
  :after corfu
  :custom
-  (kind-icon-default-face 'corfu-default) ; to compute blended backgrounds correctly
+  ;; TAB cycle if there are only few candidates
-  :config
+  ;; (completion-cycle-threshold 3)
-  (add-to-list 'corfu-margin-formatters #'kind-icon-margin-formatter))
+
  ;; Enable indentation+completion using the TAB key.
  ;; `completion-at-point' is often bound to M-TAB.
  (tab-always-indent 'complete)
  ;; Emacs 30 and newer: Disable Ispell completion function. As an alternative,
  ;; try `cape-dict'.
  (text-mode-ispell-word-completion nil)
  ;; Emacs 28 and newer: Hide commands in M-x which do not apply to the current
  ;; mode.  Corfu commands are hidden, since they are not used via M-x. This
  ;; setting is useful beyond Corfu.
  (read-extended-command-predicate #'command-completion-default-include-p))
 ;; Iconos en corfu
 (use-package nerd-icons-corfu
  :after corfu
  :init (add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter))
-(provide 'init-corfu)
+(provide 'init-completion)
-;;; init-corfu.el ends here
+;;; init-completion.el ends here
--- a/configs/init-ctags.el
+++ b/configs/init-ctags.el
@ -1,69 +0,0 @@
 ;;; init-ctags.el --- Configuracíón de TAGS  -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;; Code:
 ;; En esta sección está la configuración para ctags.
 ;; Quizá con la aparición de lsp sea menos necesaria,
 ;; pero dado a que sigue teniendo potencial para aportar
 ;; además de tener un rendimiento muy bueno es mejor
 ;; no dejarla de lado.
 ;; Ctags IDE on the True Editor
 ;; @see https://github.com/universal-ctags/citre#quick-start
 (use-package citre
  :defer t
  :ensure t
  :diminish
  :bind (("C-x c ." . citre-jump)
         ("C-x c ," . citre-jump-back)
         ("C-x c p" . citre-peek)
         ("C-x c a" . citre-ace-peek)
         ("C-x c u" . citre-update-this-tags-file))
  :init
  (setq citre-auto-enable-citre-mode-modes '(prog-mode)
        citre-default-create-tags-file-location 'global-cache
        citre-prompt-language-for-ctags-command t)
  :config
  (with-no-warnings
    ;; Integrate with `lsp-mode' and `eglot'
    (define-advice xref--create-fetcher (:around (fn &rest args) fallback)
      (let ((fetcher (apply fn args))
            (citre-fetcher
             (let ((xref-backend-functions '(citre-xref-backend t)))
               (ignore xref-backend-functions)
               (apply fn args))))
        (lambda ()
          (or (with-demoted-errors "%s, fallback to citre"
                (funcall fetcher))
              (funcall citre-fetcher)))))
    (defun lsp-citre-capf-function ()
      "A capf backend that tries lsp first, then Citre."
      (let ((lsp-result (if (fboundp #'eglot-completion-at-point)
                            (eglot-completion-at-point)
                        (when (fboundp #'lsp-completion-at-point)
                            (lsp-completion-at-point)))))
        (if (and lsp-result
                 (try-completion
                  (buffer-substring (nth 0 lsp-result)
                                    (nth 1 lsp-result))
                  (nth 2 lsp-result)))
            lsp-result
          (citre-completion-at-point))))
    (defun enable-lsp-citre-capf-backend ()
      "Enable the lsp + Citre capf backend in current buffer."
      (add-hook 'completion-at-point-functions #'lsp-citre-capf-function nil t))
    (add-hook 'citre-mode-hook #'enable-lsp-citre-capf-backend)
  ))
 (provide 'init-ctags)
 ;;; init-ctags.el ends here
--- a/configs/init-editor.el
+++ b/configs/init-editor.el
@ -0,0 +1,166 @@
 ;; init-editor.el --- Initialize editing configurations.	-*- lexical-binding: t -*-
 ;; Copyright (C) 2006-2025 Vincent Zhang
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;
 ;; Configuración en la edición de texto en general
 ;;
 ;;; Code:
 ;; Visor de documentos de emacs (soporta de todo: epub, pdf, odt, docx, cbz, etc.)
 (use-package doc-view
  :hook
  (doc-view-mode . (lambda ()
                       (display-line-numbers-mode 0)))
  :ensure nil)
 ;; Eliminar cuando está
 (use-package delsel
  :ensure nil
  :hook (elpaca-after-init . delete-selection-mode))
 ;; Minor mode to aggressively keep your code always indented
 (use-package aggressive-indent
  :diminish
  :autoload aggressive-indent-mode
  :functions too-long-file-p
  :hook ((elpaca-after-init . global-aggressive-indent-mode)
         ;; NOTE: Disable in large files due to the performance issues
         ;; https://github.com/Malabarba/aggressive-indent-mode/issues/73
         (find-file . (lambda ()
                        (when (too-long-file-p)
                          (aggressive-indent-mode -1)))))
  :config
  ;; Disable in some modes
  (dolist (mode '(gitconfig-mode
                  asm-mode web-mode html-mode
                  css-mode css-ts-mode
                  go-mode go-ts-mode
                  python-ts-mode yaml-ts-mode
                  scala-mode
                  shell-mode term-mode vterm-mode
                  prolog-inferior-mode))
    (add-to-list 'aggressive-indent-excluded-modes mode))
  ;; Disable in some commands
  (add-to-list 'aggressive-indent-protected-commands #'delete-trailing-whitespace t)
  ;; Be slightly less aggressive in C/C++/C#/Java/Go/Swift
  (add-to-list 'aggressive-indent-dont-indent-if
               '(and (derived-mode-p 'c-mode 'c++-mode 'csharp-mode
                                     'java-mode 'go-mode 'swift-mode)
                     (null (string-match "\\([;{}]\\|\\b\\(if\\|for\\|while\\)\\b\\)"
                                         (thing-at-point 'line))))))
 ;; Mover líneas o regiones con M-<teclas de dirección>
 (use-package drag-stuff
  :diminish
  :autoload drag-stuff-define-keys
  :hook (elpaca-after-init . drag-stuff-global-mode)
  :config
  (add-to-list 'drag-stuff-except-modes 'org-mode)
  (drag-stuff-define-keys))
 ;; A comprehensive visual interface to diff & patch
 (use-package ediff
  :ensure nil
  :hook(;; show org ediffs unfolded
        (ediff-prepare-buffer . outline-show-all)
        )
  :config
  (setq ediff-window-setup-function 'ediff-setup-windows-plain
        ediff-split-window-function 'split-window-horizontally
        ediff-merge-split-window-function 'split-window-horizontally))
 ;; Automatic parenthesis pairing
 (use-package elec-pair
  :ensure nil
  ;; :hook (elpaca-after-init . electric-pair-mode)
  :init (setq electric-pair-inhibit-predicate 'electric-pair-conservative-inhibit))
 ;; Edit multiple regions in the same way simultaneously
 (use-package iedit
  :defines desktop-minor-mode-table
  :bind (("C-;" . iedit-mode)
         ("C-x r RET" . iedit-rectangle-mode)
         :map isearch-mode-map ("C-;" . iedit-mode-from-isearch)
         :map esc-map ("C-;" . iedit-execute-last-modification)
         :map help-map ("C-;" . iedit-mode-toggle-on-function))
  :config
  ;; Avoid restoring `iedit-mode'
  (with-eval-after-load 'desktop
    (add-to-list 'desktop-minor-mode-table
                 '(iedit-mode nil))))
 ;; Seleccionar por regiones (similar a mark-sexp, pero toma en cuenta hacia atrás del cursor también)
 (use-package expand-region
  :functions treesit-buffer-root-node
  :bind ("C-=" . er/expand-region)
  :config
  (defun treesit-mark-bigger-node ()
    "Use tree-sitter to mark regions."
    (let* ((root (treesit-buffer-root-node))
           (node (treesit-node-descendant-for-range root (region-beginning) (region-end)))
           (node-start (treesit-node-start node))
           (node-end (treesit-node-end node)))
      ;; Node fits the region exactly. Try its parent node instead.
      (when (and (= (region-beginning) node-start) (= (region-end) node-end))
        (when-let* ((node (treesit-node-parent node)))
          (setq node-start (treesit-node-start node)
                node-end (treesit-node-end node))))
      (set-mark node-end)
      (goto-char node-start)))
  (add-to-list 'er/try-expand-list 'treesit-mark-bigger-node))
 ;; Hungry deletion (Elimina los espacios en blancos consecutivos)
 (use-package hungry-delete
  :diminish
  :hook (elpaca-after-init . global-hungry-delete-mode)
  :init (setq hungry-delete-chars-to-skip " \t\f\v"
              hungry-delete-except-modes
              '(help-mode minibuffer-mode minibuffer-inactive-mode calc-mode)))
 ;; Mejora C-a y C-e para ir a lo que contextualmente sería el fin de la línea
 (use-package mwim
  :bind (([remap move-beginning-of-line] . mwim-beginning)
         ([remap move-end-of-line] . mwim-end)))
 ;; Ayuda a manipular los archivos con líneas demasiado largas
 (use-package so-long
  :ensure nil
  :hook (after-init . global-so-long-mode)
  :bind (:map so-long-mode-map
              ("C-s"    . isearch-forward)
              ("C-r"    . isearch-backward))
  :config
  (setq so-long-variable-overrides
        '((bidi-inhibit-bpa . t)
          (bidi-paragraph-direction . left-to-right)
          (buffer-read-only . nil)
          (global-hl-line-mode . nil)
          (line-move-visual . t)
          (show-paren-mode . nil)
          (truncate-lines . nil)
          (which-func-mode . nil))))
 ;; Generador de texto aleatorio para placeholding
 (use-package lorem-ipsum)
 ;; Corrector ortográfico y de sintaxis avanzado
 (use-package languagetool
  :ensure t
  :defer t
  :commands (languagetool-check
             languagetool-clear-suggestions
             languagetool-correct-at-point
             languagetool-correct-buffer
             languagetool-set-language
             languagetool-server-mode))
 (provide 'init-editor)
 ;;; init-editor.el ends here
--- a/configs/init-eglot.el
+++ b/configs/init-eglot.el
@ -1,84 +0,0 @@
 ;;; init-eglot.el --- Configuración de eglot (LSP)   -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Este archivo tiene todo lo relacionado con eglot.
 ;; Eglot es un cliente LSP para Emacs que desde la
 ;; versión 29 viene integrado dentro del mismo.
 ;;
 ;; El nombre Eglot es un apócope de "Emacs polyglot"
 ;; ya que con este cliente podemos añadir soporte para
 ;; muchísimos lenguajes, puesto que actualente el que
 ;; un lenguaje tenga su propio LSP es muy normal.
 ;;
 ;; Como añadido:
 ;;
 ;; Un Languaje Server Provider (LSP), es un protocolo
 ;; mediante el cual existen servidores para lenguajes
 ;; en específico, los cuales proveen cosas como el
 ;; autocompletado, linting, documentación, ir a la
 ;; definición, etc.
 ;;
 ;; Este protocolo viene a solucionar el problema de
 ;; que cada herramienta de programación tenga que
 ;; volver a crear su propio soporte para cada uno
 ;; de los lenguajes (DRY).
 ;;; Code:
 (use-package eglot
  :defer t
  :ensure nil
  :hook ((css-mode    . eglot-ensure)
         (html-mode   . eglot-ensure)
         (php-ts-mode . eglot-ensure)
         (rust-mode   . eglot-ensure)
         (sh-mode     . eglot-ensure))
  :config
  (setq eglot-sync-connect 0)
  (add-to-list 'eglot-server-programs '(php-ts-mode . ("intelephense" "--stdio")))
 )
 ;; 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
  :hook
  ((html-mode . emmet-mode)
   (web-mode . emmet-mode))
  )
 ;; Revisar por errores en el código
 (use-package flymake
  :defer t
  :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
  :ensure t
  :after flymake
  :hook (flymake-mode . flymake-diagnostic-at-point-mode))
 (provide 'init-eglot)
 ;;; init-eglot.el ends here
--- a/configs/init-evil.el
+++ b/configs/init-evil.el
@ -13,7 +13,6 @@
 ;;; Code:
 (use-package evil
  :defer t
  :hook ((elpaca-after-init . evil-mode)
         (git-timemachine-mode . evil-emacs-state))
  :init
@ -81,7 +80,7 @@
  ;; Expand region desde motion states
  (evil-define-key 'motion 'global (kbd "<leader>+") 'er/expand-region)
-  ;; Identado en motion modes.
+  ;; Indentado en motion modes.
  (evil-define-key 'motion 'global (kbd "<tab>") 'indent-for-tab-command)
  ;; Atajos con leader key para frames
@ -101,13 +100,14 @@
  (evil-define-key 'normal 'global (kbd "<leader>mw") 'web-mode)
  ;; Otros atajos
-  (evil-define-key 'motion 'global (kbd "<leader>b") 'consult-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") 'consult-project-extra-find) ;; 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") 'project-switch-project)     ;; Cambiar proyecto
  (evil-define-key 'motion 'global (kbd "<leader>f") 'find-file)                   ;; Abrir archivo
  (evil-define-key 'motion 'global (kbd "<leader>xr") 'consult-recent-file)        ;; Lista de archivos recientes
  (evil-define-key 'motion 'global (kbd "<leader>rg") 'consult-ripgrep)            ;; Búsqueda rápida con ripgrep
  (evil-define-key 'motion 'global (kbd "<leader>gi") 'imenu)                      ;; imenu
  (evil-define-key 'motion 'global (kbd "<leader>gg") 'goto-line)                  ;; Ir a la línea.
  ;; Iniciar en normal state solo en modos específicos
  (setq evil-default-state 'emacs) ;; Modo por defecto en emacs
@ -127,15 +127,11 @@
 ;; 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
+(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
@ -43,22 +43,11 @@
    	(insert current-line)
    	(decf n)))))
 ;; Borrar espacios, tabs y saltos de línea innecesarios al guardar
 (add-hook 'before-save-hook 'delete-trailing-whitespace)
 ;; Mostrar y ocultar el diff de la línea de git-gutter
 (defun git-gutter:toggle-popup-hunk ()
  "Toggle 'git-gutter' hunk window."
  (interactive)
  (if (and (get-buffer "*git-gutter:diff*") (window-live-p (git-gutter:popup-buffer-window)))
      (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)))
+  (when-let* ((root (or project (kj/project-root)))) ;; <-- ¡Aquí está el cambio!
    (file-name-nondirectory
     (directory-file-name
      (file-name-directory root)))))
@ -66,7 +55,7 @@ If PROJECT is not specified, assume current project root."
 ;; Obtener la raíz del proyecto desde project.el
 (defun kj/project-root ()
  "Return the current project root."
-  (when-let (project (project-current))
+  (when-let* ((project (project-current)))
    (project-root project)))
 ;; Cambia entre ocultar o no la barra de título cuando está maximizado
@ -89,5 +78,98 @@ If PROJECT is not specified, assume current project root."
  "Run `after-load-theme-hook'."
  (run-hooks 'after-load-theme-hook))
 ;; Devuelve si el archivo es muy grande o no\
 (defun too-long-file-p ()
  "Check whether the file is too long."
  (or (> (buffer-size) 500000)
      (and (fboundp 'buffer-line-statistics)
           (> (car (buffer-line-statistics)) 10000))))
 ;; Renombrar el archivo actual
 (defun rename-this-file (new-name)
  "Renames both current buffer and file it's visiting to NEW-NAME."
  (interactive (list (read-string "New name: "
                                  (file-name-nondirectory
                                   (buffer-file-name)))))
  (let ((name (buffer-name))
        (filename (buffer-file-name)))
    (unless filename
      (error "Buffer '%s' is not visiting a file!" name))
    (progn
      (when (file-exists-p filename)
        (rename-file filename new-name 1))
      (set-visited-file-name new-name)
      (rename-buffer new-name))))
 ;; Copiar el nombre del archivo actual
 (defun copy-filename ()
  "Copy the current buffer file name to the clipboard."
  (interactive)
  (let ((filename (if (equal major-mode 'dired-mode)
                      default-directory
                    (buffer-file-name))))
    (if filename
        (progn
          (kill-new filename)
          (message "Copied '%s'" filename))
      (warn "Current buffer is not attached to a file!"))))
 (defun copy-basename ()
  "Copy the current buffer basename to the clipboard."
  (interactive)
  (let ((filename (if (equal major-mode 'dired-mode)
                      default-directory
                    (file-name-nondirectory (buffer-file-name)))))
    (if filename
        (progn
          (kill-new filename)
          (message "Copied '%s'" filename))
      (warn "Current buffer is not attached to a file!"))))
 ;; Verifica si se puede levantar un childframe
 (defun childframe-workable-p ()
  "Whether childframe is workable."
  (and (not noninteractive)
       (not emacs-basic-display)
       (or (display-graphic-p)
           (featurep 'tty-child-frames))
       (eq (frame-parameter (selected-frame) 'minibuffer) 't)))
 (defun font-installed-p (font-name)
  "Check if font with FONT-NAME is available."
  (find-font (font-spec :name font-name)))
 (defun insert-filename ()
  "Insert the full path file name into the current buffer."
  (interactive)
  (insert (buffer-file-name)))
 (defun insert-basename ()
  "Insert the filename (without path) into the current buffer."
  (interactive)
  (insert (file-name-nondirectory (buffer-file-name))))
 (defun sort-lines-by-length (reverse beg end)
  "Sort lines by length."
  (interactive "P\nr")
  (save-excursion
    (save-restriction
      (narrow-to-region beg end)
      (goto-char (point-min))
      (let ;; To make `end-of-line' and etc. to ignore fields.
          ((inhibit-field-text-motion t))
        (sort-subr reverse 'forward-line 'end-of-line nil nil
                   (lambda (l1 l2)
                     (apply #'< (mapcar (lambda (range) (- (cdr range) (car range)))
                                        (list l1 l2)))))))))
 (defun corfu-auto-toggle()
  "Toggle corfu autocomplete."
  (interactive)
  (global-corfu-mode 0)
  (setq corfu-auto (not corfu-auto))
  (global-corfu-mode 1)
  )
 (provide 'init-functions)
 ;;; init-functions.el ends here.
--- a/configs/init-highlight.el
+++ b/configs/init-highlight.el
@ -0,0 +1,164 @@
 ;; init-highlight.el --- Initialize highlighting configurations.	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;
 ;; Highlighting configurations.
 ;;
 ;;; Code:
 ;; Highlight the current line
 (use-package hl-line
  :ensure nil
  :hook (((dashboard-mode eshell-mode shell-mode term-mode vterm-mode) .
          (lambda () (setq-local global-hl-line-mode nil)))
         ;; (after-init . global-hl-line-mode)
  ))
 ;; Highlight matching parens
 (use-package paren
  :ensure nil
  :functions childframe-workable-p
  :custom-face
  (show-paren-match ((((class color) (background light))
                      (:box (:line-width (-1 . -1) :color "gray73")))
                     (((class color) (background dark))
                      (:box (:line-width (-1 . -1) :color "gray56")))))
  :hook (after-init . show-paren-mode)
  :init (setq show-paren-when-point-inside-paren t
              show-paren-when-point-in-periphery t)
  :config
  (setq blink-matching-paren-highlight-offscreen t
        show-paren-context-when-offscreen
        (if (childframe-workable-p) 'child-frame 'overlay))
  (with-no-warnings
    ;; Display matching line for off-screen paren.
    (defun display-line-overlay (pos str &optional face)
      "Display line at POS as STR with FACE.
 FACE defaults to inheriting from default and highlight."
      (let ((ol (save-excursion
                  (goto-char pos)
                  (make-overlay (line-beginning-position)
                                (line-end-position)))))
        (overlay-put ol 'display str)
        (overlay-put ol 'face
                     (or face '(:inherit highlight)))
        ol))
    (defvar-local show-paren--off-screen-overlay nil)
    (defun show-paren-off-screen (&rest _args)
      "Display matching line for off-screen paren."
      (when (overlayp show-paren--off-screen-overlay)
        (delete-overlay show-paren--off-screen-overlay))
      ;; Check if it's appropriate to show match info,
      (when (and (overlay-buffer show-paren--overlay)
                 (not (or cursor-in-echo-area
                          executing-kbd-macro
                          noninteractive
                          (minibufferp)
                          this-command))
                 (and (not (bobp))
                      (memq (char-syntax (char-before)) '(?\) ?\$)))
                 (= 1 (logand 1 (- (point)
                                   (save-excursion
                                     (forward-char -1)
                                     (skip-syntax-backward "/\\")
                                     (point))))))
        ;; Rebind `minibuffer-message' called by `blink-matching-open'
        ;; to handle the overlay display.
        (cl-letf (((symbol-function #'minibuffer-message)
                   (lambda (msg &rest args)
                     (let ((msg (apply #'format-message msg args)))
                       (setq show-paren--off-screen-overlay
                             (display-line-overlay
                              (window-start) msg ))))))
          (blink-matching-open))))
    (advice-add #'show-paren-function :after #'show-paren-off-screen)))
 ;; Resalta los escapes de secuencia
 (use-package highlight-escape-sequences
  :hook (prog-mode . hes-mode)
  :config
  (setq hes-mode-alist
        `((c-mode                . ,hes-c/c++/objc-escape-sequence-re)
          (c++-mode              . ,hes-c/c++/objc-escape-sequence-re)
          (objc-mode             . ,hes-c/c++/objc-escape-sequence-re)
          (go-mode               . ,hes-c/c++/objc-escape-sequence-re)
          (php-mode              . ,hes-c/c++/objc-escape-sequence-re)
          (php-ts-mode           . ,hes-c/c++/objc-escape-sequence-re)
          (java-mode             . ,hes-java-escape-sequence-re)
          (clojure-mode          . ,hes-java-escape-sequence-re)
          (js-mode               . ,hes-js-escape-sequence-re)
          (js2-mode              . ,hes-js-escape-sequence-re)
          (ruby-mode             . ,hes-ruby-escape-sequence-keywords)
          (lisp-mode             . ,hes-elisp-escape-sequence-re)
          (lisp-interaction-mode . ,hes-elisp-escape-sequence-re)
          (emacs-lisp-mode       . ,hes-elisp-escape-sequence-re))
        )
  )
 ;; Resalta todas las ocurrencias del contenido seleccionado
 (use-package region-occurrences-highlighter
  :diminish
  :bind (:map region-occurrences-highlighter-nav-mode-map
              ("M-n" . region-occurrences-highlighter-next)
              ("M-p" . region-occurrences-highlighter-prev))
  :hook (elpaca-after-init . global-region-occurrences-highlighter-mode))
 ;; Highlight indentions
 (use-package indent-bars
  :custom
  (indent-bars-color '(highlight :face-bg t :blend 0.225))
  (indent-bars-highlight-current-depth '(:face default :blend 0.225))
  (indent-bars-color-by-depth nil)
  (indent-bars-pattern ".")
  (indent-bars-treesit-support t)
  (indent-bars-no-descend-string t)
  (indent-bars-treesit-ignore-blank-lines-types '("module"))
  (indent-bars-prefer-character t)
  (indent-bars-treesit-scope '((python function_definition class_definition for_statement
 				                       if_statement with_statement while_statement)))
  ;; :hook ((prog-mode yaml-mode) . indent-bars-mode)
  :config (require 'indent-bars-ts))
 ;; Colorize color names in buffers
 (use-package colorful-mode
  :diminish
  :hook (after-init . global-colorful-mode)
  :init (setq colorful-use-prefix t)
  :config (dolist (mode '(html-mode php-mode help-mode helpful-mode))
            (add-to-list 'global-colorful-modes mode)))
 ;; Highlight brackets according to their depth
 (use-package rainbow-delimiters)
 ;; Resaltar palabras clave como TODO, FIXME, etc. en comentarios del código.
 (use-package hl-todo
  :autoload hl-todo-flymake hl-todo-search-and-highlight
  :functions rg rg-read-files rg-project
  :bind (:map hl-todo-mode-map
              ([C-f3] . hl-todo-occur))
  :hook (elpaca-after-init . global-hl-todo-mode)
  :init (setq hl-todo-require-punctuation t
              hl-todo-highlight-punctuation ":")
  :config
  (add-to-list 'hl-todo-keyword-faces '("BUG" . "#d99600"))
  ;; Integrate into flymake
  (with-eval-after-load 'flymake
    (add-hook 'flymake-diagnostic-functions #'hl-todo-flymake))
   ;; Integrate into magit
  (with-eval-after-load 'magit
    (add-hook 'magit-log-wash-summary-hook
              #'hl-todo-search-and-highlight t)
    (add-hook 'magit-revision-wash-message-hook
              #'hl-todo-search-and-highlight t))
  )
 (provide 'init-highlight)
 ;;; init-highlight.el ends here
--- a/configs/init-keys.el
+++ b/configs/init-keys.el
@ -28,18 +28,17 @@
 (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-ts-mode)
 (global-set-key (kbd "C-x mr") 'rust-mode)
 (global-set-key (kbd "C-x mw") 'web-mode)
 ;; Cambiar de ventana
 (global-set-key (kbd "C-S-o") 'other-window)
 ;; Saltar entre párrafos
-(define-key global-map "\M-p" 'backward-paragraph)
+(define-key global-map "\M-[" 'backward-paragraph)
-(define-key global-map "\M-n" 'forward-paragraph)
+(define-key global-map "\M-]" 'forward-paragraph)
-;; Meta atajos (atajos de atajos)
+;; Insertar nombre del archivo
-;;(global-set-key (kbd "C-c l d") "\C-a\C- \C-n\M-w\C-y") ; Duplicar línea
+(global-set-key (kbd "C-c ff") 'insert-filename)
 (global-set-key (kbd "C-c fb") 'insert-basename)
 (global-set-key (kbd "C-c fcf") 'copy-filename)
 (global-set-key (kbd "C-c fcb") 'copy-basename)
 ;; Deactivar el abrir *messages* al cliquear en el minibuffer
 (define-key minibuffer-inactive-mode-map [mouse-1] #'ignore)
--- a/configs/init-lsp.el
+++ b/configs/init-lsp.el
@ -0,0 +1,109 @@
 ;;; init-lsp.el --- Configuración de eglot (LSP)   -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Este archivo tiene todo lo relacionado con eglot.
 ;; Eglot es un cliente LSP para Emacs que desde la
 ;; versión 29 viene integrado dentro del mismo.
 ;;
 ;; El nombre Eglot es un apócope de "Emacs polyglot"
 ;; ya que con este cliente podemos añadir soporte para
 ;; muchísimos lenguajes, puesto que actualente el que
 ;; un lenguaje tenga su propio LSP es muy normal.
 ;;
 ;; Como añadido:
 ;;
 ;; Un Languaje Server Provider (LSP), es un protocolo
 ;; mediante el cual existen servidores para lenguajes
 ;; en específico, los cuales proveen cosas como el
 ;; autocompletado, linting, documentación, ir a la
 ;; definición, etc.
 ;;
 ;; Este protocolo viene a solucionar el problema de
 ;; que cada herramienta de programación tenga que
 ;; volver a crear su propio soporte para cada uno
 ;; de los lenguajes (DRY).
 ;;; Code:
 (use-package eglot
  :ensure nil
  :hook ((prog-mode . (lambda ()
                        (unless (derived-mode-p
                                 'emacs-lisp-mode 'lisp-mode
                                 'makefile-mode 'snippet-mode
                                 'ron-mode)
                          (eglot-ensure))))
         ((markdown-mode yaml-mode yaml-ts-mode) . eglot-ensure))
  :init
  (setq read-process-output-max (* 4 1024 1024)) ; 4MB
  (setq eglot-autoshutdown t
        eglot-send-changes-idle-time 0.5)
  :config
  (setq eglot-sync-connect 0)
  (add-to-list 'eglot-server-programs '(php-mode . ("intelephense" "--stdio")))
  (add-to-list 'eglot-server-programs
               '((tsx-ts-mode
                  ;; js-ts-mode
                  ;; js-mode
                  typescript-ts-mode
                  typescript-mode)
                 .
                 (eglot-deno "deno" "lsp")))
  (defclass eglot-deno (eglot-lsp-server) ()
    :documentation "A custom class for deno lsp.")
  (cl-defmethod eglot-initialization-options ((server eglot-deno))
    "Passes through required deno initialization options"
    (list :enable t
          :lint t))
  )
 ;; Mejorar la velocidad de eglot (un binario en rust )
 (use-package eglot-booster
  :ensure (:host github :repo "jdtsmith/eglot-booster")
  :after eglot
  :config
  ;;
  (if (executable-find "emacs-lsp-booster")
      (eglot-booster-mode)
    (message "No está instalado emacs-lsp-booster. Eglot se usará de modo normal."))
  )
 ;; Emmet (mientras veo como hacer funcionar emmet-ls)
 (use-package emmet-mode
  :hook
  ((html-mode . emmet-mode)
   (web-mode . emmet-mode))
  )
 ;; Revisar por errores en el código
 (use-package flymake
  :ensure nil
  ;; :hook (prog-mode . (lambda ()
  ;;                      (unless (derived-mode-p 'makefile-mode)
  ;;                        (flymake-mode))))
  :init
  (remove-hook 'flymake-diagnostic-functions 'flymake-proc-legacy-flymake)
  )
 (use-package flycheck
  :init (global-flycheck-mode)
  :config
  (setq flycheck-indication-mode nil
        flycheck-phpcs-standard "PSR12"))
 (use-package flycheck-eglot
  :after flycheck
  :custom
  (flycheck-eglot-exclusive nil)
  :init
  (global-flycheck-eglot-mode 1))
 (provide 'init-lsp)
 ;;; init-lsp.el ends here
--- a/configs/init-minibuffer.el
+++ b/configs/init-minibuffer.el
@ -10,27 +10,9 @@
 ;;; Code:
 ;; UI para completado
 (use-package vertico
  :defer t
  :bind (:map vertico-map
         ("RET" . vertico-directory-enter)
         ("DEL" . vertico-directory-delete-char)
         ("TAB" . minibuffer-complete)
         ("M-DEL" . vertico-directory-delete-word))
  :hook ((elpaca-after-init . vertico-mode)
         (elpaca-after-init . savehist-mode) ;; savehist sirve para recordar el último comando de M-x
         (rfn-eshadow-update-overlay . vertico-directory-tidy))
  :config
  (setq read-file-name-completion-ignore-case t
        read-buffer-completion-ignore-case t
        completion-ignore-case t)
  )
 ;; Reemplazo para counsel
 (use-package consult
-  :defer t
+  :bind (("C-x p"   . project-find-file)
  :bind (;; C-c bindings in `mode-specific-map'
         ("C-S-s"   . consult-line)
         ("C-c r g" . consult-ripgrep)
         ("C-S-r"   . consult-ripgrep)
@ -44,30 +26,21 @@
         ([remap recentf-open-files] . consult-recent-file)
         ;; C-x bindings in `ctl-x-map'
         ("C-x M-." . consult-complex-command)     ;; orig. repeat-complex-command
         ("C-x b"   . consult-buffer)              ;; orig. switch-to-buffer
         ("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
         ("C-x 5 b" . consult-buffer-other-frame)  ;; orig. switch-to-buffer-other-frame
         ("C-x r b" . consult-bookmark)            ;; orig. bookmark-jump
         ("C-c p b" . consult-project-buffer)      ;; orig. project-switch-to-buffer
-         ("C-c p p" . project-switch-project)      ;; orig. project-switch-to-buffer
+         ("C-c p p" . project-switch-project)
         ;; Consult search
         ("C-c p f" . consult-find)                  ;; Búsqueda de archivos en todo el projecto incluso en carpetas
         ("C-c p l" . consult-line-multi)            ;; Búsqueda en todos los buffers del projecto abiertos
         ;; Custom M-# bindings for fast register access
         ("C-'"   . consult-register-load)
         ("M-'"   . consult-register-store)        ;; orig. abbrev-prefix-mark (unrelated)
         ("M-¡"   . consult-register)
         ;; Other custom bindings
         ("M-y"   . consult-yank-pop)                ;; orig. yank-pop
         ;; M-g bindings in `goto-map'
         ("M-g f" . consult-flymake)               ;; Alternative: consult-flycheck
         ("M-g g" . consult-goto-line)             ;; orig. goto-line
         ("M-g M-g" . consult-goto-line)           ;; orig. goto-line
         ("M-g o" . consult-outline)               ;; Alternative: consult-org-heading
         ("M-g m" . consult-mark)
         ("M-g k" . consult-global-mark)
         ("M-g i" . consult-imenu)
         ("M-g I" . consult-imenu-multi)
@ -124,34 +97,29 @@
  ;; You may want to use `embark-prefix-help-command' or which-key instead.
  (define-key consult-narrow-map (vconcat consult-narrow-key "?") #'consult-narrow-help))
 ;; nerd-icons en ibuffer
 (use-package nerd-icons-ibuffer
  :defer t
  :hook (ibuffer-mode . nerd-icons-ibuffer-mode))
 ;; Integración entre consult y project
 (use-package consult-project-extra
  :defer t
  :ensure t
  :bind
  (("C-x p" . consult-project-extra-find)
   ("C-c p o" . consult-project-extra-find-other-window)))
 ;; Descripciones en el minibufer
 (use-package marginalia
-  :defer t
+  :hook (vertico-mode . marginalia-mode))
  :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)
+  :bind ("C-c t" . consult-todo))
-  :defer t)
+
 ;; UI para completado del minibuffer
 (use-package vertico
  :bind (:map vertico-map
              ("RET" . vertico-directory-enter)
              ("DEL" . vertico-directory-delete-char)
              ("TAB" . minibuffer-complete)
              ("M-DEL" . vertico-directory-delete-word))
  :hook ((elpaca-after-init . vertico-mode)
         (rfn-eshadow-update-overlay . vertico-directory-tidy))
  :config
  (setq read-file-name-completion-ignore-case t
        read-buffer-completion-ignore-case t
        completion-ignore-case t)
  )
 (provide 'init-minibuffer)
 ;;; init-minibuffer.el ends here
--- a/configs/init-org.el
+++ b/configs/init-org.el
@ -21,35 +21,19 @@
  "Configuración para el hook de 'org-mode'."
  (display-line-numbers-mode 0)
  ;; (variable-pitch-mode 1)
  (visual-line-mode 1)
  (visual-fill-column-mode 1)
-  ;; Configuración de fonts
+  ;; Configuracin para Systanx Highlight en porg-blocks
-  ;; (set-face-attribute (car face) nil :font "Cantarell" :weight 'regular :height (cdr face))
+  (add-to-list 'org-src-lang-modes (cons "html" 'mhtml))
  ;; Ensure that anything that should be fixed-pitch in Org files appears that way
  ;; (set-face-attribute 'org-hide nil :inherit 'fixed-pitch)
  ;; (set-face-attribute 'org-block nil :foreground 'unspecified :inherit 'fixed-pitch)
  ;; (set-face-attribute 'org-code nil   :inherit '(shadow fixed-pitch))
  (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
@ -94,6 +78,7 @@
                                         (rust . t)
                                         (translate . t)
                                         (shell . t)
                                         (sql . t)
                                         )))
  ;; No solicitar confirmación para evaluar
  (setq org-confirm-babel-evaluate nil)
@ -101,10 +86,7 @@
 ;; org-mode
 (use-package org
  :defer t
  :ensure nil
  :bind (("C-c a" . org-agenda)
         ("C-c c" . org-capture))
  :hook
  (org-mode . kj/org-hook)
  :config
@ -117,7 +99,7 @@
  (setq org-log-into-drawer t)
  (setq org-cycle-separator-lines -1)
-  ;; Identación
+  ;; Indentación
  (setq org-startup-indented t)
  (setq org-src-preserve-indentation nil)
  (setq org-edit-src-content-indentation 0)
@ -187,7 +169,6 @@
 ;; Los head "*" se ven como puntos
 (use-package org-bullets
  :defer t
  :hook
  (org-mode . org-bullets-mode)
  :config
@ -203,8 +184,6 @@
 ;; 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
@ -223,7 +202,6 @@
  )
 (use-package visual-fill-column
  :defer t
  :after (org)
  :config
  ;; Tamaño de la columna
@ -236,10 +214,7 @@
 ;; Segundo cerebro: Base de conocimientos en formato Zettelkasten
 (use-package org-roam
-  :defer t
+  :bind ("<f3>" . org-roam-node-find)
  :ensure t
  :bind (("<f4>" . org-roam-node-insert)
         ("<f3>" . org-roam-node-find))
  :init
  (setq org-roam-v2-ack t)
  (setq org-roam-completion-system 'ivy)
@ -251,8 +226,6 @@
 ;; Interface web para navegar en mi base de conocimientos.
 (use-package org-roam-ui
  :defer t
  :ensure t
  :config
  (setq org-roam-ui-sync-theme t
        org-roam-ui-follow t
@ -261,33 +234,26 @@
 ;; Continúa el formato de la lista cuando presionas enter.
 (use-package org-autolist
  :defer t
  :ensure t
  :hook (org-mode . org-autolist-mode))
 ;; Org babel para PHP
-(use-package ob-php
+(use-package ob-php)
  :defer t
  :ensure t)
 ;; Org babel para GO
-(use-package ob-go
+(use-package ob-go)
  :defer t
  :ensure t)
 ;; Org babel para Rust
-(use-package ob-rust
+(use-package ob-rust)
  :defer t
  :ensure t)
 ;; Org babel para traducciones (mediante google translate)
-(use-package ob-translate
+(use-package ob-translate)
-  :defer t
+
-  :ensure t)
+;; Autocompletado para los headers de los bloques
 (use-package corg
  :ensure (:host github :repo "isamert/corg.el"))
 ;; Org mode en modo presentación
 (use-package org-present
  :defer t
  :after (org)
  :config
  (add-hook 'org-present-mode-hook
@ -315,12 +281,8 @@
 ;; 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-package.el
+++ b/configs/init-package.el
@ -0,0 +1,78 @@
 ;;; init-package.el --- Initialize package configurations.	-*- lexical-binding: t -*-
 ;;; Commentary:
 ;;
 ;; Emacs Package management configurations.
 ;;
 ;;; Code:
 ;; Configuración de repositorios de paquetes
 (defvar elpaca-installer-version 0.11)
 (defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
 (defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
 (defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
 (defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
                              :ref nil :depth 1 :inherit ignore
                              :files (:defaults "elpaca-test.el" (:exclude "extensions"))
                              :build (:not elpaca--activate-package)))
 (let* ((repo  (expand-file-name "elpaca/" elpaca-repos-directory))
       (build (expand-file-name "elpaca/" elpaca-builds-directory))
       (order (cdr elpaca-order))
       (default-directory repo))
  (add-to-list 'load-path (if (file-exists-p build) build repo))
  (unless (file-exists-p repo)
    (make-directory repo t)
    (when (<= emacs-major-version 28) (require 'subr-x))
    (condition-case-unless-debug err
        (if-let* ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*"))
                  ((zerop (apply #'call-process `("git" nil ,buffer t "clone"
                                                  ,@(when-let* ((depth (plist-get order :depth)))
                                                      (list (format "--depth=%d" depth) "--no-single-branch"))
                                                  ,(plist-get order :repo) ,repo))))
                  ((zerop (call-process "git" nil buffer t "checkout"
                                        (or (plist-get order :ref) "--"))))
                  (emacs (concat invocation-directory invocation-name))
                  ((zerop (call-process emacs nil buffer nil "-Q" "-L" "." "--batch"
                                        "--eval" "(byte-recompile-directory \".\" 0 'force)")))
                  ((require 'elpaca))
                  ((elpaca-generate-autoloads "elpaca" repo)))
            (progn (message "%s" (buffer-string)) (kill-buffer buffer))
          (error "%s" (with-current-buffer buffer (buffer-string))))
      ((error) (warn "%s" err) (delete-directory repo 'recursive))))
  (unless (require 'elpaca-autoloads nil t)
    (require 'elpaca)
    (elpaca-generate-autoloads "elpaca" repo)
    (let ((load-source-file-function nil)) (load "./elpaca-autoloads"))))
 (add-hook 'after-init-hook #'elpaca-process-queues)
 (elpaca `(,@elpaca-order))
 ;; Install use-package support
 (elpaca elpaca-use-package
  ;; Enable use-package :ensure support for Elpaca.
  (elpaca-use-package-mode))
 ;; Should set before loading `use-package'
 (setq use-package-always-ensure t
      use-package-always-defer t
      use-package-expand-minimally t
      use-package-enable-imenu-support t)
 ;; Required by `use-package'
 (use-package diminish :ensure t)
 ;; Update GPG keyring for GNU ELPA
 (use-package gnu-elpa-keyring-update)
 ;; Update packages
 (unless (fboundp 'package-upgrade-all)
  (use-package auto-package-update
    :init
    (setq auto-package-update-delete-old-versions t
          auto-package-update-hide-results t)
    (defalias 'package-upgrade-all #'auto-package-update-now)))
 (provide 'init-package)
 ;;; init-package.el ends here
--- a/configs/init-packages.el
+++ b/configs/init-packages.el
@ -1,429 +0,0 @@
 ;;; init-packages.el --- Extensiones/paquetes instalados y su configuración 	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Aquí se encuentran los paquetes de uso general.
 ;;
 ;; Aquellos de uso más específico, por ejemplo, los que
 ;; pertenecen a un lenguaje de programación en específico
 ;; estarán en el respectivo archivo de configuración
 ;; para dicho uso específico.
 ;;; Code:
 ;; Mejora del reemplazo
 (use-package anzu
  :defer t
  :bind (([remap query-replace] . anzu-query-replace)
         ([remap query-replace-regexp] . anzu-query-replace-regexp)))
 ;; Intercamiar buffers de lugar
 (use-package buffer-move
  :defer t
  :bind (("M-S-<up>" . buf-move-up)
         ("M-S-<down>" . buf-move-down)
         ("M-S-<left>" . buf-move-left)
         ("M-S-<right>" . buf-move-right))
  )
 ;; Mostrar la ayuda de eldoc/documentación en un childframe
 (use-package eldoc-box
  :defer t
  :bind ("<f1>" . eldoc-box-help-at-point))
 ;; Seleccionar por regiones (similar a mark-sexp, pero toma en cuenta hacia atrás del cursor también)
 (use-package expand-region
  :defer t
  :bind (("C-+" . er/expand-region)
         ("C-=" . er/expand-region)))
 ;; Major mode para archivos CSV
 (use-package csv-mode
  :defer t
  :hook ((csv-mode . csv-align-mode)
         (csv-mode . csv-header-line))
  )
 ;; 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
  :defer t
  :init
  (dashboard-setup-startup-hook)
  :hook
  (dashboard-after-initialize . (lambda ()
                    "Refrescamos el dashboard con la agenda luego de cargar todo"
                    (setq dashboard-items '(
                                            ;; (recents . 10)
                                            (agenda . 10)
                                            ))
                    (dashboard-refresh-buffer)
                    ))
  :config
  (setq dashboard-set-file-icons t
        dashboard-set-heading-icons t
        dashboard-set-file-icons t
        dashboard-week-agenda nil
        dashboard-agenda-time-string-format "%Y-%m-%d %H:%M")
  (setq dashboard-startup-banner
        (expand-file-name "duck.svg" user-emacs-directory))
   (setq dashboard-items '())
  )
 ;; Coloca en emacs la documentacón distribuída por devdocs.io
 (use-package devdocs
  :defer t)
 ;; Sidebar a la derecha con los archivos
 (use-package dired-sidebar
  :defer t
  :hook (dired-mode . hl-line-mode)
  :ensure t
  :bind ([f9] . dired-sidebar-toggle-sidebar)
  :commands (dired-sidebar-toggle-sidebar)
  :config
  (setq dired-sidebar-theme 'nerd
        ;; dired-sidebar-should-follow-file t
        ;; dired-sidebar-follow-file-idle-delay 0.5
        ))
 ;; La línea bonita esa de abajo
 (use-package doom-modeline
  :defer t
  :ensure t
  :hook (elpaca-after-init . doom-modeline-mode)
  :config
  (setq doom-modeline-project-detection 'auto
        doom-modeline-buffer-file-name-style 'relative-from-project
        doom-modeline-major-mode-color-icon t
        doom-modeline-buffer-modification-icon t
        doom-modeline-indent-info nil
        doom-modeline-persp-name t))
 ;; Modo para la edición de archivos Dockerfile (y building desde emacs)
 (use-package dockerfile-mode
  :ensure t
  :defer t
  :config
  ;; Suelo tener podman siempre en lugar de docker, así que lo definimos como el comando a usar
  (setq dockerfile-mode-command "podman"))
 ;; Mover líneas o regiones
 (use-package drag-stuff
  :defer t
  :hook
  (elpaca-after-init . drag-stuff-global-mode)
  :config
  (drag-stuff-define-keys))
 ;; Emparejamiento automático de comillas, paréntesis, corchetes y llaves
 (use-package electric-pair
  :defer t
  :ensure nil
  :hook (elpaca-after-init . electric-pair-mode)
  :config
  (setq electric-pair-delete-adjacent-pairs nil))
 ;; Cliente LLM (ollama, chatgpt, gemini, etc.)
 (use-package gptel
  :defer t
  :config
  (setq gptel-model "dolphin-llama3:latest"
        gptel-backend (gptel-make-ollama "Ollama"
                        :host "localhost:11434"
                        :stream t
                        :models '("mistral:latest" "dolphin-llama3:latest" "llama3:latest" "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 de libros de informática profesional. Traduce a español tomando en cuenta los posibles tecnicismos que no deberían traducirse.")
          )
        )
  )
 ;; Resalta los escapes de secuencia
 (use-package highlight-escape-sequences
  :defer t
  :hook (prog-mode . hes-mode)
  :config
  (setq hes-mode-alist
        `((c-mode                . ,hes-c/c++/objc-escape-sequence-re)
          (c++-mode              . ,hes-c/c++/objc-escape-sequence-re)
          (objc-mode             . ,hes-c/c++/objc-escape-sequence-re)
          (go-mode               . ,hes-c/c++/objc-escape-sequence-re)
          (php-mode              . ,hes-c/c++/objc-escape-sequence-re)
          (php-ts-mode           . ,hes-c/c++/objc-escape-sequence-re)
          (java-mode             . ,hes-java-escape-sequence-re)
          (clojure-mode          . ,hes-java-escape-sequence-re)
          (js-mode               . ,hes-js-escape-sequence-re)
          (js2-mode              . ,hes-js-escape-sequence-re)
          (ruby-mode             . ,hes-ruby-escape-sequence-keywords)
          (lisp-mode             . ,hes-elisp-escape-sequence-re)
          (lisp-interaction-mode . ,hes-elisp-escape-sequence-re)
          (emacs-lisp-mode       . ,hes-elisp-escape-sequence-re))
        )
  )
 ;; 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
  :defer t
  :config
  (setq keypression-use-child-frame t
      keypression-fade-out-delay 1.0
      keypression-frame-justify 'keypression-left-justified
      keypression-cast-command-name t
      keypression-cast-command-name-format "%s  %s"
      keypression-combine-same-keystrokes t
      keypression-x-offset 50
      keypression-y-offset 100
      keypression-font-face-attribute '(:width normal :height 180 :weight bold))
  )
 ;; Modo markdown
 (use-package markdown-mode
  :defer t)
 ;; Multiple vterm
 (use-package multi-vterm
  :defer t
  :bind* (("<f5>" . multi-vterm-dedicated-toggle)
          ("C-x tt" . multi-vterm-dedicated-toggle)
          ("C-x tf" . multi-vterm)
          ("C-x tp" . multi-vterm-project)
          ;;("<tab>" . vterm-send-tab)
          )
  :ensure t)
 ;; Iconos bonitos para varias cosas
 (use-package nerd-icons
  :defer t)
 ;; Usar nerd-icons en dired
 (use-package nerd-icons-dired
  :defer t
  :hook (dired-mode . nerd-icons-dired-mode))
 ;; 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 (kj/project-name)))
             (unless (null project-name)
               (format "[%s] " project-name))))
          "%b"
          " - Emacs")
        )
 )
 ;; Correr el código desde el buffer de emacs
 (use-package quickrun
  :defer t
  :ensure t
  :bind (:map prog-mode-map
              ("C-c C-r" . quickrun)
              ("C-c r f" . quickrun)
              ("C-c r r" . quickrun-region)
              ("C-c r R" . quickrun-replace-region)
         )
  )
 ;; Recentf - Guarda registro de los archivos abiertos recientemente
 (use-package recentf
  :defer 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-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
  ;; :hook (elpaca-after-init . rg-enable-default-bindings)
  :bind (:map rg-global-map
         ("c" . rg-dwim-current-dir)
         ("f" . rg-dwim-current-file)
         ("m" . rg-menu))
  :config
  (setq rg-group-result t
        rg-show-columns t)
  (cl-pushnew '("tmpl" . "*.tmpl") rg-custom-type-aliases))
 ;; Guardar la posición del cursor en un archivo para volver allí cuando se lo vuelva a abrir.
 (use-package saveplace
  :ensure nil
  :defer t
  :hook
  (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
  :hook (elpaca-after-init . smooth-scrolling-mode)
  :config
  (setq mouse-wheel-scroll-amount
        '(8 ((shift) . 1) ((control) . nil)))    ; Cambia el scroll a 8 líneas a la vez, 1 cuando se preciona SHIFT y saltos de página cuando presionas CTRL
  (setq mouse-wheel-progressive-speed nil)     ; Deshabilita la velocidad progresiva del scroll (mientras más scroll haces, mas rápido va)
  )
 ;; Ayuda a manipular los archivos con líneas demasiado largas
 (use-package so-long
  :defer t
  :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 ()
                       (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)
        speed-type-min-chars 500
        speed-type-max-chars 600))
 ;; Tree-sitter :)
 (use-package treesit
  :defer t
  :ensure nil
  :commands (treesit-install-language-grammar nf/treesit-install-all-languages)
  :config
  (setq treesit-language-source-alist
        '((bash       . ("https://github.com/tree-sitter/tree-sitter-bash"))
          (c          . ("https://github.com/tree-sitter/tree-sitter-c"))
          (cpp        . ("https://github.com/tree-sitter/tree-sitter-cpp"))
          (css        . ("https://github.com/tree-sitter/tree-sitter-css"))
          (go         . ("https://github.com/tree-sitter/tree-sitter-go"))
          (haskell    . ("https://github.com/tree-sitter/tree-sitter-haskell"))
          (html       . ("https://github.com/tree-sitter/tree-sitter-html"))
          (java       . ("https://github.com/tree-sitter/tree-sitter-java"))
          (javascript . ("https://github.com/tree-sitter/tree-sitter-javascript"))
          (json       . ("https://github.com/tree-sitter/tree-sitter-json"))
          (julia      . ("https://github.com/tree-sitter/tree-sitter-julia"))
          (lua        . ("https://github.com/Azganoth/tree-sitter-lua"))
          (make       . ("https://github.com/alemuller/tree-sitter-make"))
          (python     . ("https://github.com/tree-sitter/tree-sitter-python"))
          (php        . ("https://github.com/tree-sitter/tree-sitter-php" "master" "php/src"))
          (ruby       . ("https://github.com/tree-sitter/tree-sitter-ruby"))
          (rust       . ("https://github.com/tree-sitter/tree-sitter-rust"))
          (sql        . ("https://github.com/m-novikov/tree-sitter-sql"))
          (toml       . ("https://github.com/tree-sitter/tree-sitter-toml"))
          (zig        . ("https://github.com/GrayJack/tree-sitter-zig"))))
  (defun nf/treesit-install-all-languages ()
    "Install all languages specified by `treesit-language-source-alist'."
    (interactive)
    (let ((languages (mapcar 'car treesit-language-source-alist)))
      (dolist (lang languages)
 	(treesit-install-language-grammar lang)
 	(message "`%s' parser was installed." lang)
 	(sit-for 0.75)))))
 ;; Terminal
 (use-package vterm
  :ensure t
  :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
 (use-package which-key
  :defer t
  :hook (elpaca-after-init . which-key-mode))
 ;; Restaurar el estado de los frames
 (use-package winner
  :ensure nil
  :defer t
  :hook (elpaca-after-init . winner-mode))
 ;; Emacs Start Up Profiler
 (use-package esup
  :defer t)
 (provide 'init-packages)
 ;;; init-packages.el ends here
--- a/configs/init-prog.el
+++ b/configs/init-prog.el
@ -0,0 +1,190 @@
 ;; init-prog.el --- Initialize programming configurations.	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;
 ;; General programming configurations.
 ;;
 ;;; Code:
 ;; Mostrar la ayuda de eldoc/documentación en un childframe
 (use-package eldoc-box
  :defer t
  :bind ("<f1>" . eldoc-box-help-at-point))
 ;; Cambiar fácilmente entre naming conventions (camel, pascal, kebab, snake, etc.)
 (use-package string-inflection)
 ;; Code folding indicators using Tree-sitter
 (use-package treesit-fold-indicators
  :ensure treesit-fold
  :hook (after-init . global-treesit-fold-indicators-mode)
  :init (setq treesit-fold-indicators-priority -1))
 ;; Cross-referencing commands
 (use-package xref
  :autoload xref-show-definitions-completing-read
  :bind (("M-g ." . xref-find-definitions)
         ("M-g ," . xref-go-back))
  :init
  ;; Use faster search tool
  (when (executable-find "rg")
    (setq xref-search-program 'ripgrep))
  ;; Select from xref candidates in minibuffer
  (setq xref-show-definitions-function #'xref-show-definitions-completing-read
        xref-show-xrefs-function #'xref-show-definitions-completing-read))
 ;; Code styles
 ;; (use-package editorconfig
 ;;   :diminish
 ;;   :hook (elpaca-after-init . editorconfig-mode))
 ;; Correr el código desde el buffer de emacs
 (use-package quickrun
  :bind (("C-<f5>" . quickrun)
         ("C-S-<f5>"  . quickrun-region)))
 ;; Busqueda rápida con ripgrep
 (use-package rg
  :bind (:map rg-global-map
         ("c" . rg-dwim-current-dir)
         ("f" . rg-dwim-current-file)
         ("m" . rg-menu))
  :config
  (setq rg-group-result t
        rg-show-columns t)
  (cl-pushnew '("tmpl" . "*.tmpl") rg-custom-type-aliases))
 ;; Tree-sitter :)
 (use-package treesit
  :ensure nil
  :commands (treesit-install-language-grammar nf/treesit-install-all-languages)
  :config
  (setq treesit-language-source-alist
        '((bash       . ("https://github.com/tree-sitter/tree-sitter-bash"))
          (c          . ("https://github.com/tree-sitter/tree-sitter-c"))
          (cpp        . ("https://github.com/tree-sitter/tree-sitter-cpp"))
          (css        . ("https://github.com/tree-sitter/tree-sitter-css"))
          (go         . ("https://github.com/tree-sitter/tree-sitter-go"))
          (haskell    . ("https://github.com/tree-sitter/tree-sitter-haskell"))
          (html       . ("https://github.com/tree-sitter/tree-sitter-html"))
          (java       . ("https://github.com/tree-sitter/tree-sitter-java"))
          (javascript . ("https://github.com/tree-sitter/tree-sitter-javascript"))
          (jsdoc      . ("https://github.com/tree-sitter/tree-sitter-jsdoc"))
          (json       . ("https://github.com/tree-sitter/tree-sitter-json"))
          (julia      . ("https://github.com/tree-sitter/tree-sitter-julia"))
          (lua        . ("https://github.com/Azganoth/tree-sitter-lua"))
          (make       . ("https://github.com/alemuller/tree-sitter-make"))
          (python     . ("https://github.com/tree-sitter/tree-sitter-python"))
          (php        . ("https://github.com/tree-sitter/tree-sitter-php" "master" "php/src"))
          (phpdoc     . ("https://github.com/claytonrcarter/tree-sitter-phpdoc"))
          (ruby       . ("https://github.com/tree-sitter/tree-sitter-ruby"))
          (rust       . ("https://github.com/tree-sitter/tree-sitter-rust"))
          (sql        . ("https://github.com/m-novikov/tree-sitter-sql"))
          (toml       . ("https://github.com/tree-sitter/tree-sitter-toml"))
          (tsx        . ("https://github.com/tree-sitter/tree-sitter-typescript" "master" "tsx/src"))
          (typescript . ("https://github.com/tree-sitter/tree-sitter-typescript" "master" "typescript/src"))
          (zig        . ("https://github.com/GrayJack/tree-sitter-zig"))))
  (defun nf/treesit-install-all-languages ()
    "Install all languages specified by `treesit-language-source-alist'."
    (interactive)
    (let ((languages (mapcar 'car treesit-language-source-alist)))
      (dolist (lang languages)
 	    (treesit-install-language-grammar lang)
 	    (message "`%s' parser was installed." lang)
 	    (sit-for 0.75)))))
 ;; Browse devdocs.io documents using EWW
 (use-package devdocs
  :autoload (devdocs--installed-docs devdocs--available-docs)
  :commands (devdocs-install devdocs-lookup)
  :bind (:map prog-mode-map
              ("M-<f1>" . devdocs-dwim))
  :init
  (setq devdocs-data-dir (expand-file-name "devdocs" user-emacs-directory))
  (defun devdocs-dwim()
    "Look up a DevDocs documentation entry.
 Install the doc if it's not installed."
    (interactive)
    ;; Install the doc if it's not installed
    (lambda (slug)
      (unless (member slug (let ((default-directory devdocs-data-dir))
                             (seq-filter #'file-directory-p
                                         (when (file-directory-p devdocs-data-dir)
                                           (directory-files "." nil "^[^.]")))))
        (mapc
         (lambda (doc)
           (when (string= (alist-get 'slug doc) slug)
             (devdocs-install doc)))
         (devdocs--available-docs))))
    ;; Lookup the symbol at point
    (devdocs-lookup nil (thing-at-point 'symbol t))))
 ;; ---------------------------------------------------------------------------
 ;; Miscellaneous Programming Modes
 ;; ---------------------------------------------------------------------------
 (use-package cmake-mode)
 (use-package nginx-mode) ; Modo para leer archivos de configuración de nginx
 (use-package sql
  :ensure nil
  :hook (sql-interactive-mode . toggle-truncate-lines)
  :config
  (setq sql-mysql-login-params (append sql-mysql-login-params '(port))) ;; request port also
  (setq sql-user "root")        ;; user por defecto
  (setq sql-server "127.0.0.1") ;; host por defecto
  (setq sql-port 3306)          ;; puerto por defecto para mysql
  )
 ;; Major mode para archivos CSV
 (use-package csv-mode
  ;; :hook ((csv-mode . csv-align-mode)
  ;;        (csv-mode . csv-header-line))
  )
 ;; Modo markdown
 (use-package markdown-mode)
 ;; Modo para edición de arc docker compose
 (use-package docker-compose-mode)
 ;; Modo para la edición de archivos Dockerfile (y building desde emacs)
 (use-package dockerfile-mode
  :config
  ;; Suelo tener podman siempre en lugar de docker, así que lo definimos como el comando a usar
  (setq dockerfile-mode-command "podman"))
 ;; Configuración para project.el
 (use-package project
  :ensure nil
  :config
  ;; Colocamos un título del frame más bonito y útil que el por defecto
  (setq frame-title-format
        '(
          (:eval
           (let ((project-name (kj/project-name)))
             (unless (null project-name)
               (format "[%s] " project-name))))
          "%b"
          " - Emacs")
        )
  )
 (use-package prettier
  :diminish
  :defines prettier-pre-warm
  :hook ((js-base-mode css-mode sgml-mode web-mode) . prettier-mode)
  :init (setq prettier-pre-warm 'none))
 (use-package subword
  :ensure nil
  :init
  (global-subword-mode 1))
 (provide 'init-prog)
 ;;; init-prog.el ends here
--- a/configs/init-theme.el
+++ b/configs/init-theme.el
@ -12,27 +12,18 @@
 ;;; Code:
 ;; Theme dracula (https://draculatheme.com/) // aún lo tengo en l config porque a Ney le gusta
-(use-package dracula-theme
+(use-package dracula-theme)
  :ensure t
  :defer t)
 ;; El theme más cercano a adwaita dark que he encontrado
-(use-package adwaita-dark-theme
+(use-package adwaita-dark-theme)
  :ensure t
  :defer t)
 ;; Themes modus, vienen integrado en emacs en master (~v30)
-(use-package modus-themes
+(use-package modus-themes)
  :ensure t
  :defer t)
 ;; Themes ef
 (use-package ef-themes
-  :defer t
+  :init
-  :ensure t)
+  (load-theme 'ef-dream 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
--- a/configs/init-ui.el
+++ b/configs/init-ui.el
@ -0,0 +1,128 @@
 ;; init-ui.el --- Better lookings and appearances.	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;
 ;; Visual (UI) configurations for better lookings and appearances.
 ;;
 ;;; Code:
 ;; Optimization
 (setq idle-update-delay 1.0)
 (setq-default cursor-in-non-selected-windows nil)
 (setq highlight-nonselected-windows nil)
 (setq fast-but-imprecise-scrolling t)
 (setq redisplay-skip-fontification-on-input t)
 ;; Sidebar a la derecha con los archivos
 (use-package dired-sidebar
  :hook (dired-mode . hl-line-mode)
  :bind ([f9] . dired-sidebar-toggle-sidebar)
  :commands (dired-sidebar-toggle-sidebar)
  :config
  (setq dired-sidebar-theme 'nerd
        dired-sidebar-window-fixed nil
        ;; dired-sidebar-should-follow-file t
        ;; dired-sidebar-follow-file-idle-delay 0.5
        ))
 ;; Show line numbers
 (use-package display-line-numbers
  :ensure nil
  :hook ((prog-mode
          conf-mode toml-ts-mode
          yaml-mode yaml-ts-mode)
         . display-line-numbers-mode)
  :init (setq display-line-numbers-width-start t))
 ;; Suppress GUI features
 (setq use-file-dialog nil
      use-dialog-box nil
      inhibit-startup-screen t
      inhibit-startup-echo-area-message user-login-name
      inhibit-default-init t
      initial-scratch-message nil)
 (unless (daemonp)
  (advice-add #'display-startup-echo-area-message :override #'ignore))
 ;; Display dividers between windows
 (setq window-divider-default-places t
      window-divider-default-bottom-width 1
      window-divider-default-right-width 1)
 (add-hook 'window-setup-hook #'window-divider-mode)
 ;; Mouse & Smooth Scroll
 ;; Scroll one line at a time (less "jumpy" than defaults)
 (when (display-graphic-p)
  (setq mouse-wheel-scroll-amount '(1 ((shift) . hscroll))
        mouse-wheel-scroll-amount-horizontal 1
        mouse-wheel-progressive-speed nil))
 (setq scroll-step 1
      scroll-margin 0
      scroll-conservatively 100000
      auto-window-vscroll nil
      scroll-preserve-screen-position t)
 ;; Smooth scrolling
 (use-package ultra-scroll
  :hook (elpaca-after-init . ultra-scroll-mode))
 ;; Use fixed pitch where it's sensible
 (use-package mixed-pitch
  :diminish)
 ;; Display ugly ^L page breaks as tidy horizontal lines
 (use-package page-break-lines
  :diminish
  :hook (elpaca-after-init . global-page-break-lines-mode)
  :config (dolist (mode '(dashboard-mode emacs-news-mode))
            (add-to-list 'page-break-lines-modes mode)))
 ;; La línea bonita esa de abajo
 (use-package doom-modeline
  :init
  (doom-modeline-mode)
  (setq doom-modeline-project-detection 'auto
        doom-modeline-buffer-file-name-style 'relative-from-project
        doom-modeline-major-mode-color-icon t
        doom-modeline-buffer-modification-icon t
        doom-modeline-indent-info nil
        doom-modeline-persp-name t))
 (use-package hide-mode-line
  :autoload turn-off-hide-mode-line-mode
  :hook (((eat-mode
           eshell-mode shell-mode
           term-mode vterm-mode
           embark-collect-mode lsp-ui-imenu-mode
           pdf-annot-list-mode) . turn-on-hide-mode-line-mode)))
 ;; A minor-mode menu for mode-line
 (use-package minions
  :hook (elpaca-after-init . minions-mode))
 ;; Iconos bonitos para varias cosas
 (use-package nerd-icons)
 ;; nerd-icons en ibuffer
 (use-package nerd-icons-ibuffer
  :hook (ibuffer-mode . nerd-icons-ibuffer-mode))
 ;; Nerd icons para vertico
 (use-package nerd-icons-completion
  :hook (vertico-mode . nerd-icons-completion-mode))
 ;; Usar nerd-icons en dired
 (use-package nerd-icons-dired
  :after nerd-icons
  :hook (dired-mode . nerd-icons-dired-mode))
 (provide 'init-ui)
 ;;; init-ui.el ends here
--- a/configs/init-utils.el
+++ b/configs/init-utils.el
@ -0,0 +1,209 @@
 ;; init-utils.el --- Initialize ultilities.	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;
 ;; Some usefule Utilities.
 ;;
 ;;; Code:
 ;; Mejora del reemplazo
 (use-package anzu
  :bind (([remap query-replace] . anzu-query-replace)
         ([remap query-replace-regexp] . anzu-query-replace-regexp)))
 ;; Intercamiar buffers de lugar
 (use-package buffer-move
  :bind (("M-S-<up>" . buf-move-up)
         ("M-S-<down>" . buf-move-down)
         ("M-S-<left>" . buf-move-left)
         ("M-S-<right>" . buf-move-right))
  )
 ;; Cuando inicias un atajo de teclas te muestra las posibilidades
 (use-package which-key
  :diminish
  :init (setq which-key-max-description-length 30
              which-key-lighter nil
              which-key-show-remaining-keys t)
  :hook ( elpaca-after-init . which-key-mode))
 ;; Process
 (use-package proced
  :ensure nil
  :init
  (setq-default proced-format 'verbose)
  (setq proced-auto-update-flag t
        proced-auto-update-interval 3
        proced-enable-color-flag t))
 ;; Paquete para exportar buffers de emacs a HTML
 (use-package htmlize)
 ;; eww
 (use-package eww
  :ensure nil
  :init
  ;; Install: npm install -g readability-cli
  (when (executable-find "readable")
    (setq eww-retrieve-command '("readable"))))
 ;; Restaurar el estado de los frames
 (use-package winner
  :ensure nil
  :bind (("s-u" . winner-undo)
         ("s-U" . winner-redo))
  :config
  (winner-mode))
 ;; Moverme entre frames
 (use-package windmove
  :ensure nil
  :bind (("s-K" . windmove-up)
         ("s-J" . windmove-down)
         ("s-H" . windmove-left)
         ("s-L" . windmove-right)
         ("s-O" . other-window)))
 ;; Terminal
 (use-package vterm
  :config
  (setq tramp-histfile-override nil)                  ;; Dejamos que se use el history por defecto del servidor remoto
  (setq vterm-tramp-shells '(("ssh" "/bin/bash")
                             ("sshx" "/bin/bash")
                             ("docker" "/bin/bash")
                             ("podman" "/bin/bash"))) ;; Tanto docker como podman usarán bash cuado se contecte mediante tramp
  )
 ;; Multiple vterm
 (use-package multi-vterm
  :bind (("<f5>" . multi-vterm-dedicated-toggle)
         ("C-x tt" . multi-vterm-dedicated-toggle)
         ("C-x tf" . multi-vterm)
         ("C-x tp" . multi-vterm-project)
         ;;("<tab>" . vterm-send-tab)
         ))
 ;; Mecanografía
 (use-package speed-type
  :hook
  (speed-type-mode . (lambda ()
                       (corfu-mode 0)
                       (display-line-numbers-mode 0)
                       (visual-line-mode 1)
                       (visual-fill-column-mode 1)))
  :diminish
  :config
  (setq speed-type-gb-book-list '(66867 66866 66591 57303 15725 24536)
        speed-type-min-chars 300
        speed-type-max-chars 600))
 ;; Mostrar lo que se está presionando en pantalla
 (use-package keypression
  :config
  (setq keypression-use-child-frame t
        keypression-fade-out-delay 1.0
        keypression-frame-justify 'keypression-left-justified
        keypression-cast-command-name t
        keypression-cast-command-name-format "%s  %s"
        keypression-combine-same-keystrokes t
        keypression-x-offset 50
        keypression-y-offset 100
        keypression-font-face-attribute '(:width normal :height 180 :weight bold))
  )
 ;; Un bonito y sencillo panel de inicio
 (use-package dashboard
  ;; :init
  ;; (dashboard-setup-startup-hook)
  :diminish dashboard-mode
  :custom-face
  (dashboard-heading ((t (:inherit (font-lock-string-face bold)))))
  (dashboard-items-face ((t (:weight normal))))
  (dashboard-no-items-face ((t (:weight normal))))
  :config
  (setq dashboard-set-file-icons t
        dashboard-set-heading-icons t
        dashboard-set-file-icons t
        dashboard-week-agenda nil
        dashboard-agenda-time-string-format "%Y-%m-%d %H:%M")
  (setq dashboard-startup-banner
        (expand-file-name "duck.svg" user-emacs-directory))
  (setq dashboard-items '(
                          ;; (recents . 10)
                          (agenda . 10)
                          ))
  )
 ;; Hydra - Permite crear conjuntos de atajos.
 (use-package hydra
  :defines posframe-border-width
  :functions childframe-workable-p
  :hook (emacs-lisp-mode . hydra-add-imenu)
  )
 ;; Pretty-Hydra - Su nombre ya indica lo que hace
 (use-package pretty-hydra
  :bind ("<f6>" . toggles-hydra/body)
  :hook (emacs-lisp-mode . (lambda ()
                             (add-to-list
                              'imenu-generic-expression
                              '("Hydras"
                                "^.*(\\(pretty-hydra-define\\) \\([a-zA-Z-]+\\)"
                                2))))
  :init
  (cl-defun pretty-hydra-title (title &optional icon-type icon-name
                                      &key face height v-adjust)
    "Add an icon in the hydra title."
    (let ((face (or face 'mode-line-emphasis))
          (height (or height 1.2))
          (v-adjust (or v-adjust 0.0)))
      (concat
       (when (and icon-type icon-name)
         (let ((f (intern (format "nerd-icons-%s" icon-type))))
           (when (fboundp f)
             (concat
              (apply f (list icon-name :face face :height height :v-adjust v-adjust))
              " "))))
       (propertize title 'face face))))
  ;; Global toggles
  (with-no-warnings
    (pretty-hydra-define toggles-hydra (:title (pretty-hydra-title "Toggles" 'faicon "nf-fa-toggle_on")
                                               :color pink :quit-key ("q" "C-g"))
      ("Basic"
       (("n" (cond ((fboundp 'display-line-numbers-mode)
                    (display-line-numbers-mode (if display-line-numbers-mode -1 1)))
                   ((fboundp 'gblobal-linum-mode)
                    (global-linum-mode (if global-linum-mode -1 1))))
         "line number"
         :toggle (or (bound-and-true-p display-line-numbers-mode)
                     (bound-and-true-p global-linum-mode)))
        ("a" global-aggressive-indent-mode "aggressive indent" :toggle t)
        ("d" global-hungry-delete-mode "hungry delete" :toggle t)
        ("e" electric-pair-mode "electric pair" :toggle t)
        ("s" prettify-symbols-mode "pretty symbol" :toggle t)
        ("h" display-time-mode "time" :toggle t)
        ("i" indent-bars-mode "indent bars" :toggle t))
       "Highlight"
       (("l" global-hl-line-mode "line" :toggle t)
        ("p" show-paren-mode "brackets pairs" :toggle t)
        ("b" global-blamer-mode "Git blamer" :toggle t)
        ("r" rainbow-delimiters-mode "rainbow brackets" :toggle t)
        ("w" global-display-fill-column-indicator-mode "fill column indicator" :toggle t)
        ("t" global-hl-todo-mode "todo" :toggle t))
       "Program"
       (("F" flymake-mode "flymake" :toggle t)
        ("f" flyspell-mode "spell check" :toggle t)
        ("u" subword-mode "subword" :toggle t)
        ("v" global-diff-hl-mode "gutter" :toggle t)
        ("V" diff-hl-flydiff-mode "live gutter" :toggle t)
        ("M" diff-hl-margin-mode "margin gutter" :toggle t)
        ("D" diff-hl-dired-mode "dired gutter" :toggle t))
       ))))
 (provide 'init-utils)
 ;;; init-utils.el ends here
--- a/configs/init-vc.el
+++ b/configs/init-vc.el
@ -13,9 +13,13 @@
 ;;; Code:
 ;; Mostrar el commit de la línea actual
 (use-package blamer
  :ensure t
  :bind ("C-c i" . blamer-show-posframe-commit-info))
 ;; Resolver diferencias entre 2 archivos o versiones del mismo.
 (use-package ediff
  :defer t
  :ensure nil
  :config
  (setq ediff-diff-options "")
@ -23,51 +27,86 @@
  (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.
+;; Marca a la izq. si una linea ha sido agregada, editada o eliminada desde el último commit.
-(use-package git-gutter
+(use-package diff-hl
-  :defer t
+  :custom (diff-hl-draw-borders nil)
-  :hook
+  :autoload diff-hl-flydiff-mode
-  (elpaca-after-init . global-git-gutter-mode)
+  :custom-face
  (diff-hl-change ((t (:inherit custom-changed :foreground unspecified :background unspecified))))
  (diff-hl-insert ((t (:inherit diff-added :background unspecified))))
  (diff-hl-delete ((t (:inherit diff-removed :background unspecified))))
  :bind (:map diff-hl-command-map
              ("SPC" . diff-hl-mark-hunk))
  :hook ((elpaca-after-init . global-diff-hl-mode)
         (elpaca-after-init . global-diff-hl-show-hunk-mouse-mode)
         (dired-mode . diff-hl-dired-mode))
  :config
-  (defhydra hydra-git-gutter (:hint nil)
+  ;; Highlight on-the-fly
-    "
+  (diff-hl-flydiff-mode 1)
- ^Navigation^  | ^Actions^     | ^Others^
+
-^-----------^-+-^----^--------+-^-------^----------
+  ;; Set fringe style
- _p_: previous | _s_: stage    | _m_:   mark
+  (setq-default fringes-outside-margins t)
- _n_: next     | _r_: revert   | _SPC_: toggle info
+
-^-----------^-+-^----^--------+-^-------^----------
+  (with-no-warnings
-"
+    (unless (display-graphic-p)
-    ("p" git-gutter:previous-hunk)
+      ;; Fall back to the display margin since the fringe is unavailable in tty
-    ("n" git-gutter:next-hunk)
+      (diff-hl-margin-mode 1)
-    ("s" git-gutter:stage-hunk)
+      ;; Avoid restoring `diff-hl-margin-mode'
-    ("r" git-gutter:revert-hunk)
+      (with-eval-after-load 'desktop
-    ("m" git-gutter:mark-hunkmark)
+        (add-to-list 'desktop-minor-mode-table
-    ("SPC" git-gutter:toggle-popup-hunk))
+                     '(diff-hl-margin-mode nil))))
-  )
+
    ;; Integration with magit
    (with-eval-after-load 'magit
      (add-hook 'magit-pre-refresh-hook #'diff-hl-magit-pre-refresh)
      (add-hook 'magit-post-refresh-hook #'diff-hl-magit-post-refresh))))
 ;; Visitar rápidamente viejas versiones de un archivo rápidamente
 (use-package git-timemachine
-  :ensure t
+  :custom-face
-  :defer t)
+  (git-timemachine-minibuffer-author-face ((t (:inherit success :foreground unspecified))))
  (git-timemachine-minibuffer-detail-face ((t (:inherit warning :foreground unspecified))))
  :bind (:map vc-prefix-map
         ("t" . git-timemachine))
  :hook ((git-timemachine-mode . (lambda ()
                                   "Improve `git-timemachine' buffers."
                                   ;; Display different colors in mode-line
                                   (if (facep 'mode-line-active)
                                       (face-remap-add-relative 'mode-line-active 'custom-state)
                                     (face-remap-add-relative 'mode-line 'custom-state))
                                   ;; Highlight symbols in elisp
                                   (and (derived-mode-p 'emacs-lisp-mode)
                                        (fboundp 'highlight-defined-mode)
                                        (highlight-defined-mode t))
                                   ;; Display line numbers
                                   (and (derived-mode-p 'prog-mode 'yaml-mode)
                                        (fboundp 'display-line-numbers-mode)
                                        (display-line-numbers-mode t))))
         (before-revert . (lambda ()
                            (when (bound-and-true-p git-timemachine-mode)
                              (user-error "Cannot revert the timemachine buffer"))))))
 ;; Generador automatizado de archivos de licencia
-(use-package license-templates
+(use-package license-templates)
  :defer t)
 ;; Magia para git
 (use-package magit
-  :defer t)
+  :config
  (setq magit-diff-refine-hunk 'all))
 ;; Todolist en magit de todos los archivos del projecto.
 (use-package magit-todos
-  :defer t
+  :after magit-status
-  :after magit
+  :commands magit-todos-mode
-  :config (magit-todos-mode 1))
+  :init
  (setq magit-todos-nice (if (executable-find "nice") t nil))
  (magit-todos-mode 1))
 ;; Modo para resolución de confictos
 (use-package smerge-mode
  :ensure nil
  :defer t
  :config
  (defhydra hydra-smerge (:color pink
                                 :hint nil)
@ -99,11 +138,11 @@ _p_rev       _u_pper              _=_: upper/lower       _r_esolve
    ("q" nil "cancel" :color blue))
  )
 (use-package transient)
 ;; Mostrar el último commit que modificó la linea actual
 (use-package vc-msg
-  :defer t
+  :bind (("C-c C-v" . vc-msg-show))
  :bind (("C-c v" . vc-msg-show)
         ("C-c C-v" . vc-msg-show))
  )
--- a/configs/lang-go.el
+++ b/configs/lang-go.el
@ -9,8 +9,7 @@
 ;;; Code:
-(use-package go-mode
+(use-package go-mode)
  :defer t)
 (provide 'lang-go)
 ;;; lang-go.el ends here
--- a/configs/lang-html.el
+++ b/configs/lang-html.el
@ -10,7 +10,6 @@
 ;;; Code:
 (use-package web-mode
  :defer t
  :config
  (setq web-mode-markup-indent-offset 2
        web-mode-css-indent-offset 2
@ -21,15 +20,12 @@
  )
 (use-package css-mode
  :defer t
  :ensure nil
  :config
  (setq css-indent-offset 2))
 (use-package auto-rename-tag
-  :ensure (:host github :repo "jcs-elpa/auto-rename-tag")
+  :ensure (:host github :repo "jcs-elpa/auto-rename-tag"))
  :defer t
  )
 (provide 'lang-html)
 ;;; lang-html.el ends here
--- a/configs/lang-js.el
+++ b/configs/lang-js.el
@ -10,19 +10,17 @@
 ;;; Code:
 (use-package js
  :defer t
  :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
  :ensure t
  :mode
  ("\\.json$" . json-mode)
  :config
--- a/configs/lang-php.el
+++ b/configs/lang-php.el
@ -10,15 +10,10 @@
 ;;; Code:
 (use-package php-ts-mode
  :defer t
  :mode "\\.php\\'"
  :ensure nil)
-;; Requerido por org-mode para el Syntax Highlight
+(use-package php-mode)
 (use-package php-mode
  :defer t
  :hook (php-mode . php-ts-mode)
  :ensure t)
 (use-package php-doc-block
  :after php-ts-mode
@ -26,5 +21,31 @@
  :ensure (:host github :repo "moskalyovd/emacs-php-doc-block")
  )
 ;; Consola REPL para php. Similar a "php -a" pero con extras
 (use-package psysh)
 ;; Composer
 (use-package composer)
 ;; PHPUnit
 (use-package phpunit)
 (use-package php-cs-fixer
  :custom
  (php-cs-fixer-rules-level-part-options (list (json-encode '(("@PSR12" . t)
                                                              ("ordered_imports" . (("sort_algorithm" . "alpha")))
                                                              ("concat_space" . (("spacing" . "one")))
                                                              ("whitespace_after_comma_in_array" . t)
                                                              ("align_multiline_comment" . t)
                                                              ("no_unused_imports" . t)
                                                              ("phpdoc_align" . t)
                                                              ("phpdoc_indent" . t)
                                                              ("no_useless_return" . t)
                                                              ("return_assignment" . t)
                                                              ("trailing_comma_in_multiline" . t)))))
  (php-cs-fixer-rules-fixer-part-options '())
  ;; :hook (before-save . php-cs-fixer-before-save)
  )
 (provide 'lang-php)
 ;;; lang-php.el ends here
--- a/configs/lang-rust.el
+++ b/configs/lang-rust.el
@ -10,8 +10,8 @@
 ;;; Code:
 (use-package rust-mode
-  :defer t
+  :init
-  :ensure t
+  (setq rust-mode-treesitter-derive t)
  :config
  (setq rust-format-on-save t))
--- a/early-init.el
+++ b/early-init.el
@ -20,28 +20,43 @@
 ;;
 ;;; Code:
-;; Disable GC during init
+;; Defer garbage collection further back in the startup process
-(put 'gc-cons-percentage 'original-value-before-init gc-cons-percentage)
+(setq gc-cons-threshold most-positive-fixnum)
 (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))
      (message "Setting `gc-cons-percentage' back to starting value %s" value-to-restore)
      (setq gc-cons-percentage value-to-restore))))
 (add-hook 'after-init-hook #'restore-gc-cons-percentage-after-init)
 (setq gc-cons-percentage (get 'gc-cons-percentage 'value-during-init))
-;; Color de fondo similar al theme para evitar que se vea blanco al iniciar
+;; Prevent unwanted runtime compilation for gccemacs (native-comp) users;
-;; (add-to-list 'default-frame-alist '(background-color . "#282a36"))
+;; packages are compiled ahead-of-time when they are installed and site files
 ;; are compiled when gccemacs is installed.
 (setq native-comp-deferred-compilation nil ;; obsolete since 29.1
      native-comp-jit-compilation nil)
-;; Permitir solo la búsqueda de archivos a cargar en la config en case sensitive.
+;; 'use-package' is builtin since 29.
 ;; It must be set before loading 'use-package'.
 (setq use-package-enable-imenu-support t)
 ;; In noninteractive sessions, prioritize non-byte-compiled source files to
 ;; prevent the use of stale byte-code. Otherwise, it saves us a little IO time
 ;; to skip the mtime checks on every *.elc file.
 (setq load-prefer-newer noninteractive)
 ;; Explicitly set the prefered coding systems to avoid annoying prompt
 ;; from emacs (especially on Microsoft Windows)
 (prefer-coding-system 'utf-8)
 ;; Permitir solo la búsqueda de archivos a cargar en la carpeta config case sensitive.
 (setq auto-mode-case-fold nil)
 ;; Definimos que la shell por defecto será bash
 (setq shell-file-name "/bin/bash")
 ;; Personalizaciones (Tedrían que ir en init-base, pero por optimización, las pongo acá)
 (push '(menu-bar-lines . 0) default-frame-alist)   ; Quitar menús.
 (push '(tool-bar-lines . 0) default-frame-alist)   ; Quitar toolbar.
 (push '(vertical-scroll-bars) default-frame-alist)
 (when (featurep 'ns)
  (push '(ns-transparent-titlebar . t) default-frame-alist))
 ;; Prevent flash of unstyled mode line
 (setq mode-line-format nil)
 ;; Iniciar emacs maximizado
 ;; (add-hook 'window-setup-hook 'toggle-frame-maximized t) ; Hacerlo mediante window-setup-hook (se maximiza al terminar de cargar la ventana)
--- a/init.el
+++ b/init.el
@ -9,20 +9,48 @@
 ;;; Code:
-;; Cargar configuraciones
+;; Optimize Garbage Collection for Startup
 (setq gc-cons-threshold most-positive-fixnum)
-(add-to-list 'load-path (concat user-emacs-directory "configs"))
+;; Optimize `auto-mode-alist`
 (setq auto-mode-case-fold nil)
 (unless (or (daemonp) noninteractive init-file-debug)
  ;; Temporarily suppress file-handler processing to speed up startup
  (let ((default-handlers file-name-handler-alist))
    (setq file-name-handler-alist nil)
    ;; Recover handlers after startup
    (add-hook 'emacs-startup-hook
              (lambda ()
                (setq file-name-handler-alist
                      (delete-dups (append file-name-handler-alist default-handlers))))
              101)))
 ;; Función para añadir 'config' a la ruta de carga código elisp de emacs
 (defun update-load-path (&rest _)
  "Update the `load-path` to prioritize personal configurations."
    (push (expand-file-name "configs" user-emacs-directory) load-path))
 ;; Nos aseguramos de que ejecute 'update-load-path' antes de 'package-initialize'
 (advice-add #'package-initialize :after #'update-load-path)
 ;; Ahora lo corremos implícitamente
 (update-load-path)
 ;; Paquetes base
 (require 'init-package)
 (require 'init-base)
 (require 'init-utils)
 (require 'init-ui)
 (require 'init-editor)
 (require 'init-prog)
 (require 'init-highlight)
 (require 'init-theme)
-(require 'init-packages)
+(require 'init-ai)
 (require 'init-functions)
 (require 'init-vc)
 (require 'init-org)
-(require 'init-eglot)
+(require 'init-lsp)
-(require 'init-corfu)
+(require 'init-completion)
 ;; (require 'init-ctags)
 (require 'init-minibuffer)
 ;; (require 'init-evil)
 (require 'init-keys)
--- a/private/.custom.el
+++ b/private/.custom.el
--- a/readme.org
+++ b/readme.org
@ -41,7 +41,6 @@ Como ayuda lo más que puedo dar es que en las distros basadas en Debian puedes
 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
@ -53,7 +52,7 @@ Finalmente, recomiendo instalar [[https://github.com/blahgeek/emacs-lsp-booster]
 * 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.
+Tengo varios atajos reconfigurados, por lo que recomiento revisar primero que nada el archivo [[./configs/init-keys.el][init-keys.el]] el resto de configuraciones está principalmente en los archivos [[./configs/init-minibuffer.el][init-minibuffer.el]] e [[file:configs/init-editor.el][init-editor.el]], dudo que las uses todas y yo mismo no las uso, por lo que con el tiempo las voy eliminando y a veces agrego alguna extra. Con que revises el primer archivo y sepas que =consult-project= está en =C-x p= ya estás servido.
 * Contacto
Author	SHA1	Message	Date
kj	eb14dff0cd	Add macher package	2025-09-08 10:24:01 -03:00
kj	58bb81edeb	enable global subword mode by default.	2025-09-08 09:45:54 -03:00
kj	f689d2afe1	disable automatic PHP CS Fixer on save	2025-09-08 09:21:24 -03:00
kj	ed547bce34	add LanguageTool package for spell and grammar checking	2025-09-08 09:20:38 -03:00
kj	bf2bf01252	Change gptel conversation prefixes and remove my custom directives	2025-09-08 09:17:58 -03:00
kj	6c39aee1d0	feat(ai): Integrate gptel-magit Integrates `gptel-magit` to provide AI assistance directly within Magit. Disables `gptel-include-reasoning` as a temporary workaround for an upstream issue (ragnard/gptel-magit#8).	2025-09-08 09:16:13 -03:00
kj	d1ddd81282	Add default config for php-cs-fixer and a hook to run it on save.	2025-09-05 20:47:34 -03:00
kj	96b0ccf056	Add custom config file.	2025-09-05 14:17:37 -03:00
kj	7289832288	Add php-cs-fixer package.	2025-09-04 10:14:54 -03:00
kj	03ee657182	Disable flymake in favor of flycheck.	2025-09-04 10:13:43 -03:00
kj	0b6c2058ed	Refactor and add methods for filename insert and copy.	2025-09-04 10:13:03 -03:00
kj	d50d5228cf	Add bwtest abbrev.	2025-09-01 15:24:54 -03:00
kj	b0ebfce668	Add new window/frame related shortcuts.	2025-09-01 15:21:50 -03:00
kj	99c6b012e5	Remove hook for ediff-quit.	2025-09-01 15:20:55 -03:00
kj	5ee6db55e0	Remove copilot toggle. It is easy to remember in order to run it on M-x.	2025-09-01 12:43:25 -03:00
kj	709ca7fe27	Improvements to autocompletion with eglot. Add a function to toggle autocompletion and improve the competion-at-point-functions when eglot is rinning using cape-capf-super.	2025-09-01 12:35:10 -03:00
kj	a6b197b6a4	Add copilot toggle to hydra Toggles.	2025-09-01 11:56:03 -03:00
kj	021e19fb3c	Add copilot package. It is disabled by default but can be enabled if necessary.	2025-09-01 11:53:00 -03:00
kj	56141976e9	Add composer, phpunit and psysh	2025-08-30 11:24:19 -03:00
kj	7c4fea3b60	Add function to sort lines by length.	2025-08-29 18:09:21 -03:00
kj	b7168fd349	Change read-this-file to autofill with the current filename.	2025-08-29 18:06:53 -03:00
kj	87dc0ab99a	Use intelephense as the php lsp.	2025-08-28 15:10:36 -03:00
kj	9b7635e69e	Add string-inflection package.	2025-08-28 14:55:40 -03:00
kj	cadc7a3a7c	Allow resize dired-sidebar.	2025-08-28 14:14:13 -03:00
kj	80e693caba	Enable magit diff word granularity.	2025-08-26 16:15:54 -03:00
kj	1f31bf736b	Add functions+shortcuts to insert the filename into the buffer.	2025-08-26 15:26:00 -03:00
kj	5b6f53fe4f	Add "git blamer" into "Toggles" hydra menu.	2025-08-26 13:35:54 -03:00
kj	04f64eda5e	Add blamer package Actually there is vc-msg, vc-anotate, vc-region-history, etc. that do similar things, but i will add this also.	2025-08-26 13:25:36 -03:00
kj	8f4e9f9fb8	Fix: always delete trailing whitespaces at save.	2025-08-20 15:04:48 -03:00
kj	5ffc4df914	Remove posframe package and other related. It is more fancy but sometimes is buggy for me and I like mor the normal way of emacs that shows all at the bottom.	2025-08-13 02:12:08 -03:00
kj	9727ed4949	Improve devdocs config and re-enable it.	2025-08-07 23:07:48 -03:00
kj	fac74ab714	Disable editorconfig and devdocs. I barely need that. I will enable it when I need it.	2025-08-07 21:40:34 -03:00
kj	ecbb0e7fe9	Simplify the config for eldoc-box.	2025-08-07 09:28:32 -03:00
kj	fb3747f81d	Add sql interactive config.	2025-08-06 23:30:58 -03:00
kj	c11add9cab	Add corg package.	2025-08-06 23:28:58 -03:00
kj	aa024c234c	Enable SQL Babel in ORG mode.	2025-08-06 20:12:11 -03:00
kj	236311a98d	Enable init-prog.	2025-08-05 17:06:15 -03:00
kj	cb6ac8aa7c	Remove duplicated package rg.	2025-08-05 17:05:53 -03:00
kj	7fc4f9ec7d	Reduce devdocs keybinding to one.	2025-08-05 17:04:34 -03:00
kj	45d9a4927a	Remove packages that are not needed now.	2025-08-05 17:01:57 -03:00
kj	d2496a736a	Add necessary the "provide".	2025-08-05 17:01:06 -03:00
kj	9b62080f21	Remove unnecesarry git-gutter package related function.	2025-08-05 16:59:44 -03:00
kj	1b046e5240	Remove auto-install fonts (nerd-icons). This may hangs emacs on startup on some cases.	2025-07-31 15:06:03 -03:00
kj	3f54a40282	Change corfu prefix to 2.	2025-07-31 14:03:12 -03:00
kj	4821233f90	Change corfu delay.	2025-07-31 14:00:00 -03:00
kj	3f294373f0	Add lorem ipsum package.	2025-07-31 13:37:27 -03:00
kj	74f017e7b2	Fix: F5 keybinding is not working.	2025-07-22 15:23:18 -03:00
kj	dabaf86f28	Big re-write :) I reordered the code in a more clean an organized way. Also this improves a lot the emacs startup time again, bucause after some updates it becomes a bit slow with the old configuration, so i did it again in a new way.	2025-07-20 13:18:05 -03:00
kj	6ca3a756ad	Change vterm defer.	2025-07-17 06:20:32 -03:00
kj	1daab2d95f	Disable global subword mode.	2025-07-17 06:18:33 -03:00
kj	6388d5c0bb	Fix drag stuff not starting.	2025-06-10 21:17:29 -03:00
kj	cc1fb2a0c9	Only use defer t for now. In another oportunity i will optimize this again.	2025-06-08 12:42:48 -03:00
kj	4fc380750e	A few tweaks for corfu.	2025-06-03 12:12:15 -03:00
kj	564e6dbac5	Update evil bindings.	2025-05-26 13:41:08 -03:00
kj	2a1309ecaa	Change defer times to decimals.	2025-05-26 13:40:35 -03:00
kj	d12c13c027	Update elpaca installer version.	2025-05-26 13:38:55 -03:00
kj	3c7ac83e3f	Remove unused/unnecessary consult shortcuts.	2025-05-02 04:50:22 -03:00
kj	089b056916	Remove consult-project-extra in favor of project-find-file (native).	2025-05-02 04:49:19 -03:00
kj	c0a0bc347c	Just execute exec-path-from-shell.	2025-05-01 13:47:22 -03:00
kj	f2faff5f3f	Remove unnecesary lines.	2025-04-29 19:46:11 -03:00
kj	d497b12805	Improve a few the startup time.	2025-04-29 19:41:46 -03:00
kj	ed5f25fb4d	Move gptel to his own ia init file.	2025-04-28 18:58:34 -03:00
kj	f48e200fe7	Enable which-key.	2025-04-28 14:34:03 -03:00
kj	668a2c3c91	Remove unused shortcuts.	2025-04-28 14:32:45 -03:00
kj	cb8a4dcd75	Reduce padding on vertico postframe.	2025-04-28 14:31:56 -03:00
kj	4749773a51	Add delay to corfu.	2025-04-28 14:30:44 -03:00
kj	d41a4ce7ee	Add some visual tweaks to vertico-posframe.	2025-04-14 16:54:32 -03:00
kj	5185766542	Add vertico-postframe package.	2025-04-14 16:07:33 -03:00
kj	cf7b239bcb	Change dashboard startup behavior.	2025-04-09 14:08:46 -03:00
kj	ad54b6e3c9	Disable hooks for visual tweaks on csv files. It looks fine, but is not good for edit.	2025-03-28 13:55:44 -03:00
kj	cab913064f	Set to use rust-ts-mode.	2025-03-26 17:20:13 -03:00
kj	c3aabfff88	Enable to open big files or files with long lines on so-long-mode.	2025-02-20 19:56:15 -03:00
kj	a0a1282aa2	Enable subword mode by default. This will allow detecting words (or as words) inside camelCase, snake_case, kebab-case, and PascalCase. Note: Without this, kebab-case and snake_case don't have problems, but I mention all nomenclatures as a group.	2025-02-17 21:54:20 -03:00
kj	8e6fb27ec8	Update elpaca.	2025-02-17 21:43:17 -03:00
kj	32078154c9	Disable php-mode in favor of php-ts-mode.	2025-02-17 21:42:52 -03:00
kj	eac4af5029	Remove scrollbar on daemon mode (emacsclient).	2025-02-16 10:37:47 -03:00
kj	f199adb367	Improve agenda/items load on dashboard.	2025-02-08 16:43:40 -03:00
kj	4051c11dad	Ignore intelephense license files.	2025-02-08 16:25:25 -03:00
kj	6be143756c	Move eglot hooks for js and ts to eglot file.	2025-02-08 06:29:52 -03:00
kj	cfef8c9a4a	Add typescript base config.	2025-02-07 17:40:49 -03:00
kj	fb5e2c8455	Set default shell.	2025-02-02 02:25:53 -03:00
kj	5ebecc1d4b	Add new treesit parser: jsdoc and phpdoc.	2024-11-27 19:05:11 -04:00
kj	64d60088cb	Add exec-path-from-shell package.	2024-11-27 19:04:54 -04:00
kj	dce274d8ff	Remove unnecesary line.	2024-11-27 19:04:37 -04:00
KJ	8133266734	Update elpaca boostrap code.	2024-11-25 13:23:46 -04:00
KJ	147949285e	Add transient package as magit requirement. The build-in version do not fit with magit requeriment.	2024-11-25 13:21:41 -04:00
KJ	9417dcf830	Add docker-compose-mode.	2024-11-15 09:28:12 -04:00
KJ	447b80428b	Set intelephense lsp to php-mode.	2024-09-30 08:15:05 -04:00
KJ	95d9746fbf	Set mhtml-mode for sintax highlight on html org-src blocks.	2024-09-24 13:35:10 -04:00
KJ	135671b5b9	Disable electric pair.	2024-09-24 13:34:38 -04:00
KJ	45029768b9	Improve lang php config.	2024-09-24 13:33:47 -04:00
KJ	9876be8389	Reconfigure gptel models.	2024-09-21 12:41:05 -04:00
KJ	9553b240d8	Disable corfu mode on speed-type an add afew more books.	2024-09-13 20:37:07 -04:00
KJ	297416d1ce	Corfu quit when starts a new word.	2024-09-13 03:34:56 -04:00