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
40 changed files with 28465 additions and 1851 deletions
--- a/.gitignore
+++ b/.gitignore
@ -14,4 +14,26 @@ straight/
 amx-items
 projects
 speed-type/
-var/
+var/
 .dap-breakpoints
 eclipse.jdt.ls/
 workspace/
 /.extension/
 /diary
 /history
 /projectile.cache
 /request/
 /smex-items
 /tree-sitter/
 /elpaca/
 /tramp
 /nov-places
 /devdocs/
 /.mc-lists.el
 /eshell/
 /.emacs.desktop
 /.tutor/
 /intelephense/
 /auto-save-list/
 /*.eld
 /.custom.el
--- a/59
+++ b/59
@ -0,0 +1,59 @@
 ;; -*- coding: utf-8; lexical-binding: t -*-
 (define-abbrev-table 'mhtml-mode-abbrev-table
  '(
    ("doc" "<!DOCTYPE html>
 <html>
  <head>
    <meta charset=\"UTF-8\"/>
    <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">
    <title>Document</title>
  </head>
  <body>
  </body>
 </html>" nil :count 1)
    ("doctype" "<!DOCTYPE html>" nil :count 0)
   ))
 (define-abbrev-table 'php-ts-mode-abbrev-table
  '(
    ("bwtest" "use Tests\\TestCase;
 class Test extends TestCase
 {
    /**
     * @group
     * @group
     * @test
     */
    public function Service()
    {
        /**
         * Preparing
         */
        /**
         * Actions
         */
        /**
         * Asserts
         */
    }
 }" nil :count 6)
   ))
 (define-abbrev-table 'web-mode-abbrev-table
  '(
    ("doc" "<!DOCTYPE html>
 <html>
  <head>
    <meta charset=\"UTF-8\"/>
    <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">
    <title>Document</title>
  </head>
  <body>
  </body>
 </html>" nil :count 10)
    ("doctype" "<!DOCTYPE html>" nil :count 2)
   ))
--- a/configs/base-company.el
+++ b/configs/base-company.el
@ -1,350 +0,0 @@
 ;;; base-company.el --- Autocompletado con company-mode  -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;; Code:
 (use-package company
  :defer t
  :straight t
  :defines (company-dabbrev-ignore-case company-dabbrev-downcase)
  :custom-face
  (company-tooltip-annotation ((t (:inherit completions-annotations :foreground nil))))
  (company-box-selection ((t (:inherit company-tooltip :weight semibold :extend t))))
  :hook (after-init . global-company-mode)
  :bind (
         :map company-active-map
         ("<tab>" . company-indent-or-complete-common) ; Completar con tab como en la terminal de linux
         ("<escape>" . company-abort) ; Cerrar company con ESC
         )
  :init
  (setq company-tooltip-align-annotations t
        company-tooltip-limit 12
        company-idle-delay 0               ; mostrar autocompletado lo más rápido posible
        company-echo-delay (if (display-graphic-p) nil 0)
        company-minimum-prefix-length 1    ; mostrar autocompletado desde que se coloca la primera letra.
        company-icon-margin 3
        company-require-match nil
        company-dabbrev-ignore-case nil
        company-dabbrev-downcase nil      ; autocompletado case-sensitive.
        company-global-modes '(not erc-mode message-mode help-mode
                                   gud-mode eshell-mode shell-mode)
        company-backends '((company-capf :with company-yasnippet)
                           (company-dabbrev-code company-keywords company-files)
                           company-dabbrev))
   :config
   (with-no-warnings
    ;; Company anywhere
    ;; @see https://github.com/zk-phi/company-anywhere
    (defun company-anywhere-after-finish (completion)
      (when (and (stringp completion)
                 (looking-at "\\(?:\\sw\\|\\s_\\)+")
                 (save-match-data
                   (string-match (regexp-quote (match-string 0)) completion)))
        (delete-region (match-beginning 0) (match-end 0))))
    (add-hook 'company-after-completion-hook 'company-anywhere-after-finish)
    (defun company-anywhere-grab-word (_)
      (buffer-substring (point) (save-excursion (skip-syntax-backward "w") (point))))
    (advice-add 'company-grab-word :around 'company-anywhere-grab-word)
    (defun company-anywhere-grab-symbol (_)
      (buffer-substring (point) (save-excursion (skip-syntax-backward "w_") (point))))
    (advice-add 'company-grab-symbol :around 'company-anywhere-grab-symbol)
    (defun company-anywhere-dabbrev-prefix (_)
      (company-grab-line (format "\\(?:^\\| \\)[^ ]*?\\(\\(?:%s\\)*\\)" company-dabbrev-char-regexp) 1))
    (advice-add 'company-dabbrev--prefix :around 'company-anywhere-dabbrev-prefix)
    (defun company-anywhere-capf (fn command &rest args)
      (if (eq command 'prefix)
          (let ((res (company--capf-data)))
            (when res
              (let ((length (plist-get (nthcdr 4 res) :company-prefix-length))
                    (prefix (buffer-substring-no-properties (nth 1 res) (point))))
                (cond
                 (length (cons prefix length))
                 (t prefix)))))
        (apply fn command args)))
    (advice-add 'company-capf :around 'company-anywhere-capf)
    (defun company-anywhere-preview-show-at-point (pos completion)
      (when (and (save-excursion
                   (goto-char pos)
                   (looking-at "\\(?:\\sw\\|\\s_\\)+"))
                 (save-match-data
                   (string-match (regexp-quote (match-string 0)) completion)))
        (move-overlay company-preview-overlay (overlay-start company-preview-overlay) (match-end 0))
        (let ((after-string (overlay-get company-preview-overlay 'after-string)))
          (when after-string
            (overlay-put company-preview-overlay 'display after-string)
            (overlay-put company-preview-overlay 'after-string nil)))))
    (advice-add 'company-preview-show-at-point :after 'company-anywhere-preview-show-at-point)
    ;; `yasnippet' integration
    (with-eval-after-load 'yasnippet
      (defun my-company-yasnippet ()
        "Hide the current completeions and show snippets."
        (interactive)
        (company-cancel)
        (call-interactively 'company-yasnippet))
      (defun company-backend-with-yas (backend)
        "Add `yasnippet' to company backend."
        (if (and (listp backend) (member 'company-yasnippet backend))
            backend
          (append (if (consp backend) backend (list backend))
                  '(:with company-yasnippet))))
      (defun my-company-enbale-yas (&rest _)
        "Enable `yasnippet' in `company'."
        (setq company-backends (mapcar #'company-backend-with-yas company-backends)))
      (defun my-lsp-fix-company-capf ()
        "Remove redundant `comapny-capf'."
        (setq company-backends
              (remove 'company-backends (remq 'company-capf company-backends))))
      (advice-add #'lsp-completion--enable :after #'my-lsp-fix-company-capf)
      (defun my-company-yasnippet-disable-inline (fn cmd &optional arg &rest _ignore)
        "Enable yasnippet but disable it inline."
        (if (eq cmd  'prefix)
            (when-let ((prefix (funcall fn 'prefix)))
              (unless (memq (char-before (- (point) (length prefix)))
                            '(?. ?< ?> ?\( ?\) ?\[ ?{ ?} ?\" ?' ?`))
                prefix))
          (progn
            (when (and (bound-and-true-p lsp-mode)
                       arg (not (get-text-property 0 'yas-annotation-patch arg)))
              (let* ((name (get-text-property 0 'yas-annotation arg))
                     (snip (format "%s (Snippet)" name))
                     (len (length arg)))
                (put-text-property 0 len 'yas-annotation snip arg)
                (put-text-property 0 len 'yas-annotation-patch t arg)))
            (funcall fn cmd arg))))
      (advice-add #'company-yasnippet :around #'my-company-yasnippet-disable-inline))
    ))
 ;; Better sorting
 (use-package prescient
  :defer t
  :straight t
  :commands prescient-persist-mode)
 (use-package company-prescient
  :defer t
  :straight t
  :hook (after-init . company-prescient-mode))
 ;; Hacer que el autocompletado se vea más bonito con íconos
 (use-package company-box
  :defer t
  :straight t
  :diminish
  :defines company-box-icons-all-the-icons
  :hook (company-mode . company-box-mode)
  :init (setq company-box-backends-colors nil
              company-box-doc-delay 0.1
              company-box-scrollbar 'right)
  :config
  (with-no-warnings
    ;; Prettify icons
    (defun my-company-box-icons--elisp (candidate)
      (when (or (derived-mode-p 'emacs-lisp-mode) (derived-mode-p 'lisp-mode))
        (let ((sym (intern candidate)))
          (cond ((fboundp sym) 'Function)
                ((featurep sym) 'Module)
                ((facep sym) 'Color)
                ((boundp sym) 'Variable)
                ((symbolp sym) 'Text)
                (t . nil)))))
    (advice-add #'company-box-icons--elisp :override #'my-company-box-icons--elisp)
    ;; Display borders and optimize performance
    (defun my-company-box--display (string on-update)
      "Display the completions."
      (company-box--render-buffer string on-update)
      (let ((frame (company-box--get-frame))
            (border-color (face-foreground 'font-lock-comment-face nil t)))
        (unless frame
          (setq frame (company-box--make-frame))
          (company-box--set-frame frame))
        (company-box--compute-frame-position frame)
        (company-box--move-selection t)
        (company-box--update-frame-position frame)
        (unless (frame-visible-p frame)
          (make-frame-visible frame))
        (company-box--update-scrollbar frame t)
        (set-face-background 'internal-border border-color frame)
        (when (facep 'child-frame-border)
          (set-face-background 'child-frame-border border-color frame)))
      (with-current-buffer (company-box--get-buffer)
        (company-box--maybe-move-number (or company-box--last-start 1))))
    (advice-add #'company-box--display :override #'my-company-box--display)
    (setq company-box-doc-frame-parameters '((vertical-scroll-bars . nil)
                                             (horizontal-scroll-bars . nil)
                                             (internal-border-width . 1)
                                             (left-fringe . 8)
                                             (right-fringe . 8)))
    (defun my-company-box-doc--make-buffer (object)
      (let* ((buffer-list-update-hook nil)
             (inhibit-modification-hooks t)
             (string (cond ((stringp object) object)
                           ((bufferp object) (with-current-buffer object (buffer-string))))))
        (when (and string (> (length (string-trim string)) 0))
          (with-current-buffer (company-box--get-buffer "doc")
            (erase-buffer)
            (insert (propertize "\n" 'face '(:height 0.5)))
            (insert string)
            (insert (propertize "\n\n" 'face '(:height 0.5)))
            ;; Handle hr lines of markdown
            ;; @see `lsp-ui-doc--handle-hr-lines'
            (let (bolp next before after)
              (goto-char 1)
              (while (setq next (next-single-property-change (or next 1) 'markdown-hr))
                (when (get-text-property next 'markdown-hr)
                  (goto-char next)
                  (setq bolp (bolp)
                        before (char-before))
                  (delete-region (point) (save-excursion (forward-visible-line 1) (point)))
                  (setq after (char-after (1+ (point))))
                  (insert
                   (concat
                    (and bolp (not (equal before ?\n)) (propertize "\n" 'face '(:height 0.5)))
                    (propertize "\n" 'face '(:height 0.5))
                    (propertize " "
                                'display '(space :height (1))
                                'company-box-doc--replace-hr t
                                'face `(:background ,(face-foreground 'font-lock-comment-face)))
                    (propertize " " 'display '(space :height (1)))
                    (and (not (equal after ?\n)) (propertize " \n" 'face '(:height 0.5))))))))
            (setq mode-line-format nil
                  display-line-numbers nil
                  header-line-format nil
                  show-trailing-whitespace nil
                  cursor-in-non-selected-windows nil)
            (current-buffer)))))
    (advice-add #'company-box-doc--make-buffer :override #'my-company-box-doc--make-buffer)
    ;; Display the border and fix the markdown header properties
    (defun my-company-box-doc--show (selection frame)
      (cl-letf (((symbol-function 'completing-read) #'company-box-completing-read)
                (window-configuration-change-hook nil)
                (inhibit-redisplay t)
                (display-buffer-alist nil)
                (buffer-list-update-hook nil))
        (-when-let* ((valid-state (and (eq (selected-frame) frame)
                                       company-box--bottom
                                       company-selection
                                       (company-box--get-frame)
                                       (frame-visible-p (company-box--get-frame))))
                     (candidate (nth selection company-candidates))
                     (doc (or (company-call-backend 'quickhelp-string candidate)
                              (company-box-doc--fetch-doc-buffer candidate)))
                     (doc (company-box-doc--make-buffer doc)))
          (let ((frame (frame-local-getq company-box-doc-frame))
                (border-color (face-foreground 'font-lock-comment-face nil t)))
            (unless (frame-live-p frame)
              (setq frame (company-box-doc--make-frame doc))
              (frame-local-setq company-box-doc-frame frame))
            (set-face-background 'internal-border border-color frame)
            (when (facep 'child-frame-border)
              (set-face-background 'child-frame-border border-color frame))
            (company-box-doc--set-frame-position frame)
            ;; Fix hr props. @see `lsp-ui-doc--fix-hr-props'
            (with-current-buffer (company-box--get-buffer "doc")
              (let (next)
                (while (setq next (next-single-property-change (or next 1) 'company-box-doc--replace-hr))
                  (when (get-text-property next 'company-box-doc--replace-hr)
                    (put-text-property next (1+ next) 'display
                                       '(space :align-to (- right-fringe 1) :height (1)))
                    (put-text-property (1+ next) (+ next 2) 'display
                                       '(space :align-to right-fringe :height (1)))))))
            (unless (frame-visible-p frame)
              (make-frame-visible frame))))))
    (advice-add #'company-box-doc--show :override #'my-company-box-doc--show)
    (defun my-company-box-doc--set-frame-position (frame)
      (-let* ((frame-resize-pixelwise t)
              (box-frame (company-box--get-frame))
              (box-position (frame-position box-frame))
              (box-width (frame-pixel-width box-frame))
              (box-height (frame-pixel-height box-frame))
              (box-border-width (frame-border-width box-frame))
              (window (frame-root-window frame))
              ((text-width . text-height) (window-text-pixel-size window nil nil
                                                                  (/ (frame-pixel-width) 2)
                                                                  (/ (frame-pixel-height) 2)))
              (border-width (or (alist-get 'internal-border-width company-box-doc-frame-parameters) 0))
              (x (- (+ (car box-position) box-width) border-width))
              (space-right (- (frame-pixel-width) x))
              (space-left (car box-position))
              (fringe-left (or (alist-get 'left-fringe company-box-doc-frame-parameters) 0))
              (fringe-right (or (alist-get 'right-fringe company-box-doc-frame-parameters) 0))
              (width (+ text-width border-width fringe-left fringe-right))
              (x (if (> width space-right)
                     (if (> space-left width)
                         (- space-left width)
                       space-left)
                   x))
              (y (cdr box-position))
              (bottom (+ company-box--bottom (frame-border-width)))
              (height (+ text-height (* 2 border-width)))
              (y (cond ((= x space-left)
                        (if (> (+ y box-height height) bottom)
                            (+ (- y height) border-width)
                          (- (+ y box-height) border-width)))
                       ((> (+ y height) bottom)
                        (- (+ y box-height) height))
                       (t y))))
        (set-frame-position frame (max x 0) (max y 0))
        (set-frame-size frame text-width text-height t)))
    (advice-add #'company-box-doc--set-frame-position :override #'my-company-box-doc--set-frame-position)
    (when (icon-displayable-p)
      (setq company-box-icons-all-the-icons
            `((Unknown . ,(all-the-icons-material "find_in_page" :height 1.0 :v-adjust -0.2))
              (Text . ,(all-the-icons-faicon "text-width" :height 1.0 :v-adjust -0.02))
              (Method . ,(all-the-icons-faicon "cube" :height 1.0 :v-adjust -0.02 :face 'all-the-icons-purple))
              (Function . ,(all-the-icons-faicon "cube" :height 1.0 :v-adjust -0.02 :face 'all-the-icons-purple))
              (Constructor . ,(all-the-icons-faicon "cube" :height 1.0 :v-adjust -0.02 :face 'all-the-icons-purple))
              (Field . ,(all-the-icons-octicon "tag" :height 1.1 :v-adjust 0 :face 'all-the-icons-lblue))
              (Variable . ,(all-the-icons-octicon "tag" :height 1.1 :v-adjust 0 :face 'all-the-icons-lblue))
              (Class . ,(all-the-icons-material "settings_input_component" :height 1.0 :v-adjust -0.2 :face 'all-the-icons-orange))
              (Interface . ,(all-the-icons-material "share" :height 1.0 :v-adjust -0.2 :face 'all-the-icons-lblue))
              (Module . ,(all-the-icons-material "view_module" :height 1.0 :v-adjust -0.2 :face 'all-the-icons-lblue))
              (Property . ,(all-the-icons-faicon "wrench" :height 1.0 :v-adjust -0.02))
              (Unit . ,(all-the-icons-material "settings_system_daydream" :height 1.0 :v-adjust -0.2))
              (Value . ,(all-the-icons-material "format_align_right" :height 1.0 :v-adjust -0.2 :face 'all-the-icons-lblue))
              (Enum . ,(all-the-icons-material "storage" :height 1.0 :v-adjust -0.2 :face 'all-the-icons-orange))
              (Keyword . ,(all-the-icons-material "filter_center_focus" :height 1.0 :v-adjust -0.2))
              (Snippet . ,(all-the-icons-material "format_align_center" :height 1.0 :v-adjust -0.2))
              (Color . ,(all-the-icons-material "palette" :height 1.0 :v-adjust -0.2))
              (File . ,(all-the-icons-faicon "file-o" :height 1.0 :v-adjust -0.02))
              (Reference . ,(all-the-icons-material "collections_bookmark" :height 1.0 :v-adjust -0.2))
              (Folder . ,(all-the-icons-faicon "folder-open" :height 1.0 :v-adjust -0.02))
              (EnumMember . ,(all-the-icons-material "format_align_right" :height 1.0 :v-adjust -0.2))
              (Constant . ,(all-the-icons-faicon "square-o" :height 1.0 :v-adjust -0.1))
              (Struct . ,(all-the-icons-material "settings_input_component" :height 1.0 :v-adjust -0.2 :face 'all-the-icons-orange))
              (Event . ,(all-the-icons-octicon "zap" :height 1.0 :v-adjust 0 :face 'all-the-icons-orange))
              (Operator . ,(all-the-icons-material "control_point" :height 1.0 :v-adjust -0.2))
              (TypeParameter . ,(all-the-icons-faicon "arrows" :height 1.0 :v-adjust -0.02))
              (Template . ,(all-the-icons-material "format_align_left" :height 1.0 :v-adjust -0.2)))
            company-box-icons-alist 'company-box-icons-all-the-icons))))
 (provide 'base-company)
 ;;; base-company.el ends here
--- a/configs/base-ctags.el
+++ b/configs/base-ctags.el
@ -1,66 +0,0 @@
 ;;; base-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:
 ;; Ctags IDE on the True Editor
 ;; @see https://github.com/universal-ctags/citre#quick-start
 (use-package citre
  :defer t
  :straight t
  :diminish
  :bind (("C-x c j" . citre-jump+)
         ("C-x c k" . citre-jump-back)
         ("C-x c p" . citre-peek)
         ("C-x c a" . citre-ace-peek)
         ("C-x c u" . citre-update-this-tags-file))
  :init
  (require 'citre-config)
  (setq citre-auto-enable-citre-mode-modes '(prog-mode))
  :config
  (with-no-warnings
    (with-eval-after-load 'projectile
      (setq citre-project-root-function #'projectile-project-root))
    ;; Integrate with `lsp-mode' and `eglot'
    (define-advice xref--create-fetcher (:around (fn &rest args) fallback)
      (let ((fetcher (apply fn args))
            (citre-fetcher
             (let ((xref-backend-functions '(citre-xref-backend t)))
               (ignore xref-backend-functions)
               (apply fn args))))
        (lambda ()
          (or (with-demoted-errors "%s, fallback to citre"
                (funcall fetcher))
              (funcall citre-fetcher)))))
    (defun lsp-citre-capf-function ()
      "A capf backend that tries lsp first, then Citre."
      (let ((lsp-result (pcase centaur-lsp
                          ('lsp-mode
                           (and (fboundp #'lsp-completion-at-point)
                                (lsp-completion-at-point)))
                          ('eglot
                           (and (fboundp #'eglot-completion-at-point)
                                (eglot-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 'base-ctags)
 ;;; base-ctags.el ends here
--- a/configs/base-extensions.el
+++ b/configs/base-extensions.el
@ -1,313 +0,0 @@
 ;;; base-extensions.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:
 ;;; Code:
 ;; Iconos principalmente para ser usados por neotree
 (use-package all-the-icons
  :defer t
  :straight t)
 ;; Reemplazar mejorado
 (use-package anzu
  :defer
  :ensure t
  :straight t
  :hook (after-init . global-anzu-mode)
  :config
  (global-set-key [remap query-replace] 'anzu-query-replace)
  (global-set-key [remap query-replace-regexp] 'anzu-query-replace-regexp))
 ;; Un bonito y sencillo panel de inicio
 (use-package dashboard
  :defer t
  :straight t
  :hook (after-init . dashboard-setup-startup-hook)
  :config
  (setq dashboard-set-file-icons t)
  (setq dashboard-set-heading-icons t)
  (setq dashboard-set-file-icons t)
  (setq dashboard-startup-banner
        (expand-file-name "duck-small.png" user-emacs-directory))
  (setq dashboard-items '(
                          (agenda . 10)
                          ;;(recents . 10)
                          ))
  )
 ;; Mover líneas o regiones
 (use-package drag-stuff
  :defer t
  :straight t
  :hook
  (after-init . drag-stuff-global-mode)
  :config
  (drag-stuff-define-keys))
 ;; La línea bonita esa de abajo
 (use-package doom-modeline
  :defer t
  :straight t
  :ensure t
  :hook (after-init . doom-modeline-mode)
  :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))
 ;; Emmet - Una ayuda para escribir HTML rápidamente (escribre doc, luego preciona C-j y lo entenderás)
 (use-package emmet-mode
  :defer t
  :straight t
  :hook (html-mode . emmet-mode))
 ;; Revisar sintaxis en vivo
 (use-package flycheck
  ;; :diminish flycheck-mode
  :defer t
  :straight t
  :hook (after-init . global-flycheck-mode) ; Habilitar flycheck en todos los modos
  )
 ;; Mostrar los errores de flycheck en un pop up
 (use-package flycheck-popup-tip
  :defer t
  :straight t
  :hook (flycheck-mode . flycheck-popup-tip-mode))
 ;; Git Gutter - Marca a la izq. si una linea ha sido agregada, editada o eliminada desde el último commit.
 (use-package git-gutter
  :defer t
  :straight t
  :hook
  (after-init . global-git-gutter-mode))
 ;; Highlight en los números.
 ;; (use-package highlight-numbers
 ;;   :defer t
 ;;   :straight t
 ;;   :ensure t
 ;;   :hook
 ;;   (prog-mode . highlight-numbers-mode))
 ;; Magia para git
 (use-package magit
  :defer t
  :straight t)
 ;; Modo markdown
 (use-package markdown-mode
  :defer t
  :straight t)
 ;; Multiple vterm
 (use-package multi-vterm
  :defer t
  :straight t
  :bind* (("C-x tt" . multi-vterm-dedicated-toggle)
          ("C-x tf" . multi-vterm)
          ("C-x tp" . multi-vterm-project)
          ;;("<tab>" . vterm-send-tab)
          )
  :ensure t)
 ;; Mecanografía
 (use-package speed-type
  :straight t
  :diminish
  :config
  (setq speed-type-gb-book-list '(46201 66867 66866 66591 57303 49063 13608 16132 17974 28430 59797 28929)
        speed-type-min-chars 500
        speed-type-max-chars 600))
 ;; Code Folding
 (use-package origami
  :defer t
  :straight t
  :bind (("C-<tab>" . origami-toggle-node)
         ("C-<iso-lefttab>" . origami-toggle-all-nodes))
  :hook
  (after-init . global-origami-mode))
 ;; Pomodoro en emacs :D
 (use-package pomidor
  :defer t
  :straight t
  :bind ("<f12>" . pomidor)
  :init
 ;;  (setq alert-default-style 'mode-line)
  (setq alert-default-style 'libnotify)
  (with-eval-after-load 'all-the-icons
    (setq alert-severity-faces
          '((urgent   . all-the-icons-red)
            (high     . all-the-icons-orange)
            (moderate . all-the-icons-yellow)
            (normal   . all-the-icons-green)
            (low      . all-the-icons-blue)
            (trivial  . all-the-icons-purple))
          alert-severity-colors
          `((urgent   . ,(face-foreground 'all-the-icons-red))
            (high     . ,(face-foreground 'all-the-icons-orange))
            (moderate . ,(face-foreground 'all-the-icons-yellow))
            (normal   . ,(face-foreground 'all-the-icons-green))
            (low      . ,(face-foreground 'all-the-icons-blue))
            (trivial  . ,(face-foreground 'all-the-icons-purple)))))
 ;;  (setq pomidor-sound-tick nil
 ;;        pomidor-sound-tack nil) ; Deshabilitar el sonido de reloj de pomidor
  (setq pomidor-play-sound-file
      (lambda (file)
        (start-process "pomidor-play-sound"
                       nil
                       "playsound"
                       file)))
  )
 ;; Paquete para manejo de proyectos
 (use-package projectile
  :defer t
  :straight t
  :bind ("C-c p" . projectile-command-map)
  :diminish projectile-mode
  :custom ((projectile-completion-system 'ivy))
  :hook (after-init . projectile-mode)
  :init
  (setq projectile-mode-line-prefix ""
        projectile-sort-order 'recentf
        projectile-use-git-grep t)
  :config
  ;; Rutas de archivos temporales.
  (setq projectile-cache-file (expand-file-name "projectile.cache" temp-dir))
  (setq projectile-known-projects-file (expand-file-name
                                        "projectile-bookmarks.eld" temp-dir))
  ;; Carpetas donde tienes tus proyectos (deben tener un archivo .projectile o un repro git inicio).
  (when (file-directory-p "~/Proyectos")
    (setq projectile-project-search-path '("~/Proyectos")))
  (when (file-directory-p "~/mnt/Nginx")
    (setq projectile-project-search-path (append
                                          projectile-project-search-path
                                          '("~/mnt/Nginx"))))
  (setq projectile-switch-project-action #'projectile-dired) ; Usar dired cuando se elija un proyecto.
  ;; Cambiar el título de la ventana de emacs
  (setq frame-title-format
        '(
          (:eval
           (let ((project-name (projectile-project-name)))
             (unless (string= "-" project-name)
               (format "[%s] " project-name))))
          "%b"
          " - Emacs")
        )
   )
 ;; Recentf - Guarda registro de los archivos abiertos recientemente
 (use-package recentf
  :defer t
  :straight t
  :bind ("C-x C-r" . recentf-open-files)
  :config
  (setq recentf-save-file
        (recentf-expand-file-name (concat temp-dir "/recentf")))
  (recentf-mode 1))
 ;; Busqueda rápida con ripgrep
 (use-package rg
  :defer t
  :straight t
  :defines projectile-command-map
  :hook (after-init . rg-enable-default-bindings)
  :bind (:map rg-global-map
         ("c" . rg-dwim-current-dir)
         ("f" . rg-dwim-current-file)
         ("m" . rg-menu))
  :init (setq rg-group-result t
              rg-show-columns t)
  :config
  (cl-pushnew '("tmpl" . "*.tmpl") rg-custom-type-aliases)
  (with-eval-after-load 'projectile
    (bind-key "s R" #'rg-project projectile-command-map)))
 ;; Guardar la posición del cursor en un archivo para volver allí cuando se lo vuelva a abrir.
 (use-package saveplace
  :defer t
  :straight t
  :hook (after-init . save-place-mode)
  :config
  (setq save-place-file (locate-user-emacs-file (concat temp-dir "/places"))))
 ;; Autocompletado de parentesis, corchetes, llaves, etc.
 (use-package smartparens
  :defer t
  :straight t
  :hook (after-init . smartparens-global-mode))
 ;; Mejorando el scroll
 (use-package smooth-scrolling
  :defer t
  :straight t
  :hook (after-init . smooth-scrolling-mode)
  :config
  (setq mouse-wheel-scroll-amount
        '(8 ((shift) . 1) ((control) . nil)))    ; Cambia el scroll a 8 líneas a la vez, 1 cuando se preciona SHIFT y saltos de página cuando presionas CTRL
  (setq mouse-wheel-progressive-speed nil)     ; Deshabilita la velocidad progresiva del scroll (mientras más scroll haces, mas rápido va)
  )
 (use-package tree-sitter
  :defer t
  :straight t
  :hook (after-init . global-tree-sitter-mode)
  :config
  (add-to-list 'tree-sitter-major-mode-language-alist '(rustic-mode . rust))
  )
 (use-package tree-sitter-langs
  :straight t
  :after tree-sitter)
 ;; Terminal
 (use-package vterm :ensure t :defer t :straight t)
 ;; Cuando iniicias un atajo de teclas te muestra las posibilidades
 (use-package which-key
  :defer t
  :straight t
  :hook (after-init . which-key-mode))
 ;; Restaurar el estado de los frames
 (use-package winner
  :defer t
  :straight t
  :hook (after-init . winner-mode))
 ;; Permitir snippets
 (use-package yasnippet
  :defer t
  :straight t
  :ensure t
  :custom
  (yas-prompt-functions '(yas-completing-prompt))
  :hook
  ((prog-mode feature-mode)  . yas-minor-mode-on)
  (html-mode . yas-minor-mode))
 ;; Coleción de snippets
 (use-package yasnippet-snippets
  :ensure t
  :defer t
  :straight t)
 (use-package esup
  :ensure t
  :straight t)
 (provide 'base-extensions)
 ;;; base-extensions.el ends here
--- a/configs/base-functions.el
+++ b/configs/base-functions.el
@ -1,50 +0,0 @@
 ;;; base-functions.el --- Configuración de org-mode	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;; Code:
 ;; Buscar el texto actualmente seleccionado
 (defun kj-isearch-with-region ()
  "Use region as the isearch text."
  (when mark-active
    (let ((region (funcall region-extract-function nil)))
      (deactivate-mark)
      (isearch-push-state)
      (isearch-yank-string region))))
 (add-hook 'isearch-mode-hook #'kj-isearch-with-region)
 ;; Borrar espacios, tabs y saltos de línea innecesarios al guardar
 (add-hook 'before-save-hook 'delete-trailing-whitespace)
 ;; Hacer emacs transparente (no funciona perfecto, pero sirve)
 (defun toggle-transparency ()
  "Cambia la  transparencia de Emacs (es un poco useless)."
  (interactive)
  (let ((alpha (frame-parameter nil 'alpha)))
    (set-frame-parameter
     nil 'alpha
     (if (eql (cond ((numberp alpha) alpha)
                    ((numberp (cdr alpha)) (cdr alpha))
                    ;; Also handle undocumented (<active> <inactive>) form.
                    ((numberp (cadr alpha)) (cadr alpha)))
              100)
         '(60 . 60) '(100 . 100)))))
 (defun transparency (value)
  "Set the transparency VALUE of the frame window.  0=transparent/100=opaque."
  (interactive "nTransparency Value 0 - 100 opaque:")
  (set-frame-parameter (selected-frame) 'alpha value))
 (defun icon-displayable-p ()
  "Return non-nil if icons are displayable."
  (and (display-graphic-p) (daemonp)
       (or (featurep 'all-the-icons)
           (require 'all-the-icons nil t))))
 (provide 'base-functions)
 ;;; base-functions.el ends here.
--- a/configs/base-ivy.el
+++ b/configs/base-ivy.el
@ -1,440 +0,0 @@
 ;;; base-ivy.el --- Ayuditas y autocompletado del minibufer  -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;; Code:
 ;; Autocompletado para el minibuffer (counsel e ivy)
 (use-package counsel
  :defer t
  :straight t
  :diminish ivy-mode counsel-mode
  :bind (("C-s"   . swiper-isearch)
         ("C-r"   . swiper-isearch-backward)
         ("s-f"   . swiper)
         ("C-S-s" . swiper-all)
         ("C-c C-r" . ivy-resume)
         ("C-c v p" . ivy-push-view)
         ("C-c v o" . ivy-pop-view)
         ("C-c v ." . ivy-switch-view)
         :map counsel-mode-map
         ([remap swiper] . counsel-grep-or-swiper)
         ([remap swiper-backward] . counsel-grep-or-swiper-backward)
         ([remap dired] . counsel-dired)
         ([remap set-variable] . counsel-set-variable)
         ([remap insert-char] . counsel-unicode-char)
         ([remap recentf-open-files] . counsel-recentf)
         ([remap org-capture] . counsel-org-capture)
         ("C-c c B" . counsel-bookmarked-directory)
         ("C-c c F" . counsel-faces)
         ("C-c c L" . counsel-load-library)
         ("C-c c K" . counsel-ace-link)
         ("C-c c O" . counsel-find-file-extern)
         ("C-c c P" . counsel-package)
         ("C-c c R" . counsel-list-processes)
         ("C-c c a" . counsel-apropos)
         ("C-c c e" . counsel-colors-emacs)
         ("C-c c f" . counsel-find-library)
         ("C-c c g" . counsel-grep)
         ("C-c c h" . counsel-command-history)
         ("C-c c i" . counsel-git)
         ("C-c c j" . counsel-git-grep)
         ("C-c c l" . counsel-git-log)
         ("C-c c m" . counsel-minibuffer-history)
         ("C-c c o" . counsel-outline)
         ("C-c c p" . counsel-pt)
         ("C-c c r" . counsel-rg)
         ("C-c c s" . counsel-ag)
         ("C-c c t" . counsel-load-theme)
         ("C-c c u" . counsel-unicode-char)
         ("C-c c w" . counsel-colors-web)
         ("C-c c v" . counsel-set-variable)
         ("C-c c z" . counsel-fzf)
         :map ivy-minibuffer-map
         ("C-w" . ivy-yank-word)
         ("<tab>" . ivy-partial)
         ("<escape>" . minibuffer-keyboard-quit)
         :map counsel-find-file-map
         ("C-h" . counsel-up-directory)
         :map swiper-map
         ("M-s" . swiper-isearch-toggle)
         ("M-%" . swiper-query-replace)
         :map isearch-mode-map
         ("M-s" . swiper-isearch-toggle))
  :hook ((after-init . ivy-mode)
         (ivy-mode . counsel-mode))
  :init
  (setq enable-recursive-minibuffers t) ; Allow commands in minibuffers
  (setq ivy-height 12
        ivy-use-selectable-prompt t
        ivy-use-virtual-buffers t    ; Enable bookmarks and recentf
        ivy-fixed-height-minibuffer t
        ivy-count-format "(%d/%d) "
        ivy-ignore-buffers '("\\` " "\\`\\*tramp/" "\\`\\*xref" "\\`\\*helpful "
                             "\\`\\*.+-posframe-buffer\\*" "\\` ?\\*company-.+\\*")
        ivy-on-del-error-function #'ignore
        ivy-initial-inputs-alist nil)
  ;; Use orderless regex strategy
  (setq ivy-re-builders-alist '((t . ivy--regex-ignore-order)))
  ;; Set minibuffer height for different commands
  (setq ivy-height-alist '((counsel-evil-registers . 5)
                           (counsel-yank-pop . 8)
                           (counsel-git-log . 4)
                           (swiper . 15)
                           (counsel-projectile-ag . 15)
                           (counsel-projectile-rg . 15)))
  (setq swiper-action-recenter t)
  (setq counsel-find-file-at-point t
        counsel-preselect-current-file t
        counsel-yank-pop-separator "\n────────\n")
  (add-hook 'counsel-grep-post-action-hook #'recenter)
  ;; Use the faster search tools
  (when (executable-find "rg")
    (setq counsel-grep-base-command "rg -S --no-heading --line-number --color never '%s' '%s'"))
  (when (executable-find "fd")
    (setq counsel-fzf-cmd
          "fd --type f --hidden --follow --exclude .git --color never '%s'"))
  :config
  (with-no-warnings
    ;; persist views
    (with-eval-after-load 'savehist
      (add-to-list 'savehist-additional-variables 'ivy-views))
    ;; Highlight the selected item
    (defun my-ivy-format-function (cands)
      "Transform CANDS into a string for minibuffer."
      (if (display-graphic-p)
          (ivy-format-function-line cands)
        (ivy-format-function-arrow cands)))
    (setf (alist-get 't ivy-format-functions-alist) #'my-ivy-format-function)
    ;; Pre-fill search keywords
    ;; @see https://www.reddit.com/r/emacs/comments/b7g1px/withemacs_execute_commands_like_marty_mcfly/
    (defvar my-ivy-fly-commands
      '(query-replace-regexp
        flush-lines keep-lines ivy-read
        swiper swiper-backward swiper-all
        swiper-isearch swiper-isearch-backward
        lsp-ivy-workspace-symbol lsp-ivy-global-workspace-symbol
        counsel-grep-or-swiper counsel-grep-or-swiper-backward
        counsel-grep counsel-ack counsel-ag counsel-rg counsel-pt))
    (defvar my-ivy-fly-back-commands
      '(self-insert-command
        ivy-forward-char ivy-delete-char delete-forward-char kill-word kill-sexp
        end-of-line mwim-end-of-line mwim-end-of-code-or-line mwim-end-of-line-or-code
        yank ivy-yank-word ivy-yank-char ivy-yank-symbol counsel-yank-pop))
    (defvar-local my-ivy-fly--travel nil)
    (defun my-ivy-fly-back-to-present ()
      (cond ((and (memq last-command my-ivy-fly-commands)
                  (equal (this-command-keys-vector) (kbd "M-p")))
             ;; repeat one time to get straight to the first history item
             (setq unread-command-events
                   (append unread-command-events
                           (listify-key-sequence (kbd "M-p")))))
            ((or (memq this-command my-ivy-fly-back-commands)
                 (equal (this-command-keys-vector) (kbd "M-n")))
             (unless my-ivy-fly--travel
               (delete-region (point) (point-max))
               (when (memq this-command '(ivy-forward-char
                                          ivy-delete-char delete-forward-char
                                          kill-word kill-sexp
                                          end-of-line mwim-end-of-line
                                          mwim-end-of-code-or-line
                                          mwim-end-of-line-or-code))
                 (insert (ivy-cleanup-string ivy-text))
                 (when (memq this-command '(ivy-delete-char
                                            delete-forward-char
                                            kill-word kill-sexp))
                   (beginning-of-line)))
               (setq my-ivy-fly--travel t)))))
    (defun my-ivy-fly-time-travel ()
      (when (memq this-command my-ivy-fly-commands)
        (insert (propertize
                 (save-excursion
 		           (set-buffer (window-buffer (minibuffer-selected-window)))
 		           (ivy-thing-at-point))
                 'face 'shadow))
        (add-hook 'pre-command-hook 'my-ivy-fly-back-to-present nil t)
        (beginning-of-line)))
    (add-hook 'minibuffer-setup-hook #'my-ivy-fly-time-travel)
    (add-hook 'minibuffer-exit-hook
              (lambda ()
                (remove-hook 'pre-command-hook 'my-ivy-fly-back-to-present t)))
    ;;
    ;; Improve search experience of `swiper' and `counsel'
    ;;
    (defun my-ivy-switch-to-swiper (&rest _)
      "Switch to `swiper' with the current input."
      (swiper ivy-text))
    (defun my-ivy-switch-to-swiper-isearch (&rest _)
      "Switch to `swiper-isearch' with the current input."
      (swiper-isearch ivy-text))
    (defun my-ivy-switch-to-swiper-all (&rest _)
      "Switch to `swiper-all' with the current input."
      (swiper-all ivy-text))
    (defun my-ivy-switch-to-rg-dwim (&rest _)
      "Switch to `rg-dwim' with the current input."
      (ivy-quit-and-run (rg-dwim default-directory)))
    (defun my-ivy-switch-to-counsel-rg (&rest _)
      "Switch to `counsel-rg' with the current input."
      (counsel-rg ivy-text default-directory))
    (defun my-ivy-switch-to-counsel-git-grep (&rest _)
      "Switch to `counsel-git-grep' with the current input."
      (counsel-git-grep ivy-text default-directory))
    (defun my-ivy-switch-to-counsel-find-file (&rest _)
      "Switch to `counsel-find-file' with the current input."
      (counsel-find-file ivy-text))
    (defun my-ivy-switch-to-counsel-fzf (&rest _)
      "Switch to `counsel-fzf' with the current input."
      (counsel-fzf ivy-text default-directory))
    (defun my-ivy-switch-to-counsel-git (&rest _)
      "Switch to `counsel-git' with the current input."
      (counsel-git ivy-text))
    (defun my-ivy-switch-to-list-bookmarks (&rest _)
      "Switch to `list-bookmarks'."
      (ivy-quit-and-run (call-interactively #'list-bookmarks)))
    (defun my-ivy-switch-to-list-colors (&rest _)
      "Switch to `list-colors-display'."
      (ivy-quit-and-run (list-colors-display)))
    (defun my-ivy-switch-to-list-packages (&rest _)
      "Switch to `list-packages'."
      (ivy-quit-and-run (list-packages)))
    (defun my-ivy-switch-to-list-processes (&rest _)
      "Switch to `list-processes'."
      (ivy-quit-and-run (list-processes)))
    (defun my-ivy-copy-library-path (lib)
      "Copy the full path of LIB."
      (let ((path (find-library-name lib)))
        (kill-new path)
        (message "Copied path: \"%s\"." path)))
    ;; @see https://emacs-china.org/t/swiper-swiper-isearch/9007/12
    (defun my-swiper-toggle-counsel-rg ()
      "Toggle `counsel-rg' and `swiper'/`swiper-isearch' with the current input."
      (interactive)
      (ivy-quit-and-run
        (if (memq (ivy-state-caller ivy-last) '(swiper swiper-isearch))
            (my-ivy-switch-to-counsel-rg)
          (my-ivy-switch-to-swiper-isearch))))
    (bind-key "<C-return>" #'my-swiper-toggle-counsel-rg swiper-map)
    (bind-key "<C-return>" #'my-swiper-toggle-counsel-rg counsel-ag-map)
    (with-eval-after-load 'rg
      (defun my-swiper-toggle-rg-dwim ()
        "Toggle `rg-dwim' with the current input."
        (interactive)
        (ivy-quit-and-run
          (rg-dwim default-directory)))
      (bind-key "<M-return>" #'my-swiper-toggle-rg-dwim swiper-map)
      (bind-key "<M-return>" #'my-swiper-toggle-rg-dwim counsel-ag-map))
    (defun my-swiper-toggle-swiper-isearch ()
      "Toggle `swiper' and `swiper-isearch' with the current input."
      (interactive)
      (ivy-quit-and-run
        (if (eq (ivy-state-caller ivy-last) 'swiper-isearch)
            (swiper ivy-text)
          (swiper-isearch ivy-text))))
    (bind-key "<s-return>" #'my-swiper-toggle-swiper-isearch swiper-map)
    (defun my-counsel-find-file-toggle-fzf ()
      "Toggle `counsel-fzf' with the current `counsel-find-file' input."
      (interactive)
      (ivy-quit-and-run
        (counsel-fzf (or ivy-text "") default-directory)))
    (bind-key "<C-return>" #'my-counsel-find-file-toggle-fzf counsel-find-file-map)
    (defun my-counsel-toggle ()
      "Toggle `counsel' commands and original commands."
      (interactive)
      (pcase (ivy-state-caller ivy-last)
        ('counsel-bookmark (my-ivy-switch-to-list-bookmarks))
        ('counsel-colors-emacs (my-ivy-switch-to-list-colors))
        ('counsel-colors-web (my-ivy-switch-to-list-colors))
        ('counsel-list-processes (my-ivy-switch-to-list-processes))
        ('counsel-package (my-ivy-switch-to-list-packages))
        (_ (ignore))))
    (bind-key "<C-return>" #'my-counsel-toggle ivy-minibuffer-map)
    ;; More actions
    (ivy-add-actions
     #'swiper-isearch
     '(("r" my-ivy-switch-to-counsel-rg "rg")
       ("d" my-ivy-switch-to-rg-dwim "rg dwim")
       ("s" my-ivy-switch-to-swiper "swiper")
       ("a" my-ivy-switch-to-swiper-all "swiper all")))
    (ivy-add-actions
     #'swiper
     '(("r" my-ivy-switch-to-counsel-rg "rg")
       ("d" my-ivy-switch-to-rg-dwim "rg dwim")
       ("s" my-ivy-switch-to-swiper-isearch "swiper isearch")
       ("a" my-ivy-switch-to-swiper-all "swiper all")))
    (ivy-add-actions
     #'swiper-all
     '(("g" my-ivy-switch-to-counsel-git-grep "git grep")
       ("r" my-ivy-switch-to-counsel-rg "rg")
       ("d" my-ivy-switch-to-rg-dwim "rg dwim")
       ("s" my-swiper-toggle-swiper-isearch "swiper isearch")
       ("S" my-ivy-switch-to-swiper "swiper")))
    (ivy-add-actions
     #'counsel-rg
     '(("s" my-ivy-switch-to-swiper-isearch "swiper isearch")
       ("S" my-ivy-switch-to-swiper "swiper")
       ("a" my-ivy-switch-to-swiper-all "swiper all")
       ("d" my-ivy-switch-to-rg-dwim "rg dwim")))
    (ivy-add-actions
     #'counsel-git-grep
     '(("s" my-ivy-switch-to-swiper-isearch "swiper isearch")
       ("S" my-ivy-switch-to-swiper "swiper")
       ("r" my-ivy-switch-to-rg-dwim "rg")
       ("d" my-ivy-switch-to-rg-dwim "rg dwim")
       ("a" my-ivy-switch-to-swiper-all "swiper all")))
    (ivy-add-actions
     #'counsel-find-file
     '(("g" my-ivy-switch-to-counsel-git "git")
       ("z" my-ivy-switch-to-counsel-fzf "fzf")))
    (ivy-add-actions
     #'counsel-git
     '(("f" my-ivy-switch-to-counsel-find-file "find file")
       ("z" my-ivy-switch-to-counsel-fzf "fzf")))
    (ivy-add-actions
     'counsel-fzf
     '(("f" my-ivy-switch-to-counsel-find-file "find file")
       ("g" my-ivy-switch-to-counsel-git "git")))
    (ivy-add-actions
     'counsel-find-library
     '(("p" my-ivy-copy-library-path "copy path")))
    (ivy-add-actions
     'counsel-load-library
     '(("p" my-ivy-copy-library-path "copy path")))
    (ivy-add-actions
     #'counsel-bookmark
     '(("l" my-ivy-switch-to-list-bookmarks "list")))
    (ivy-add-actions
     #'counsel-colors-emacs
     '(("l" my-ivy-switch-to-list-colors "list")))
    (ivy-add-actions
     #'counsel-colors-web
     '(("l" my-ivy-switch-to-list-colors "list")))
    (ivy-add-actions
     #'counsel-package
     '(("l" my-ivy-switch-to-list-packages "list packages")))
    (ivy-add-actions
     #'counsel-list-processes
     '(("l" my-ivy-switch-to-list-processes "list")))))
 ;; Autocompletado de proyectos en counsel (projectile)
 (use-package counsel-projectile
  :defer t
  :straight t
  :bind*
  ("C-x p" . counsel-projectile)
  :hook (counsel-mode . counsel-projectile-mode)
  :init (setq counsel-projectile-grep-initial-input '(ivy-thing-at-point)))
 ;; Enhance M-x
 (use-package amx
  :defer t
  :straight t
  :bind (("M-x" . amx)
         ("<menu>" . amx))
  :init (setq amx-history-length 20))
 ;; Avy integration
 (use-package ivy-avy
  :defer t
  :straight t
  :bind (:map ivy-minibuffer-map
              ("C-'" . ivy-avy)))
 (use-package ivy
  :defer t
  :straight t
  :hook (after-init . ivy-mode)
  :config
  (setq ivy-use-virtual-buffers nil))
 (use-package ivy-rich
  :defer t
  :straight t
  :ensure t
  :hook ((counsel-projectile-mode . ivy-rich-mode) ; MUST after `counsel-projectile'
         (ivy-rich-mode . ivy-rich-project-root-cache-mode)
         (ivy-rich-mode . (lambda ()
                            "Use abbreviate in `ivy-rich-mode'."
                            (setq ivy-virtual-abbreviate
                                  (or (and ivy-rich-mode 'abbreviate) 'name)))))
  :init
  ;; For better performance
  (setq ivy-rich-parse-remote-buffer nil))
 ;; Iconos en Ivy (allthe icons)
 (use-package all-the-icons-ivy-rich
  :defer t
  :straight t
  :ensure t
  :hook (ivy-mode . all-the-icons-ivy-rich-mode)
  :config
  (setq all-the-icons-ivy-rich-color-icon t))
 ;; Integrate yasnippet
 (use-package ivy-yasnippet
  :defer t
  :straight t
  :bind ("C-c C-y" . ivy-yasnippet))
 (provide 'base-ivy)
 ;;; base-ivy.el ends here
--- a/configs/base-keys.el
+++ b/configs/base-keys.el
@ -1,41 +0,0 @@
 ;;; base-keys.el --- Archivo de configuración de atajos   -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Aquí se configuran los atajos globales.
 ;; Es posible que haya otros, ya que muchos se configuran
 ;; directamente en los paquetes/extensiones y dependen de los mismos.
 ;;; Code:
 (global-set-key (kbd "C-x C-z") nil)                      ; Unbind C-x C-z (don't minimize)
 (global-set-key (kbd "C-z") 'undo)                        ; Unbind C-z y hacerlo funcionar para deshacer cambios
 (global-set-key (kbd "C-S-z") 'undo-redo)                 ; Rehacer cambios con C-S-z
 (global-set-key (kbd "C-S-a") 'mark-whole-buffer)         ; Seleccionar todo con CTRL+SHIFT+a.
 (global-set-key (kbd "C-x c c")
                'comment-or-uncomment-region)             ; Comentar/descomentar en lote
 (global-set-key (kbd "C-<f11>") 'toggle-frame-maximized)  ; Maximizar / restaurar
 ;; Cambios rápidos de major modes
 (global-set-key (kbd "C-x m") nil)                        ; Unbind mail on C-x m
 (global-set-key (kbd "C-x mh") 'html-mode)
 (global-set-key (kbd "C-x mj") 'js-mode)
 (global-set-key (kbd "C-x mp") 'php-mode)
 (global-set-key (kbd "C-x mr") 'rust-mode)
 ;; Atajos de windmove
 (global-set-key (kbd "C-x <left>") 'windmove-left)
 (global-set-key (kbd "C-x <right>") 'windmove-right)
 (global-set-key (kbd "C-x <up>") 'windmove-up)
 (global-set-key (kbd "C-x <down>") 'windmove-down)
 ;; Meta atajos (atajos de atajos)
 (global-set-key (kbd "C-c l d") "\C-a\C- \C-n\M-w\C-y") ; Duplicar línea
 (provide 'base-keys)
 ;;; base-keys.el ends here
--- a/configs/base-lsp.el
+++ b/configs/base-lsp.el
@ -1,106 +0,0 @@
 ;;; base-lsp.el --- Languaje server protocol. 	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;; Code:
 ;; Performace tuning
 ;; @see https://emacs-lsp.github.io/lsp-mode/page/performance/
 (setq read-process-output-max (* 1024 1024)) ;; 1MB
 (setenv "LSP_USE_PLISTS" "true")
 (use-package lsp-mode
  :defer t
  :straight t
  :diminish
  :commands (lsp-enable-which-key-integration
                lsp-format-buffer
                lsp-organize-imports
                lsp-install-server)
  :hook ((prog-mode . (lambda ()
                        (unless (derived-mode-p 'emacs-lisp-mode 'lisp-mode 'makefile-mode)
                          (lsp-deferred))))
         (markdown-mode . lsp-deferred)
         (lsp-mode . lsp-enable-which-key-integration))
  :custom
  (lsp-headerline-breadcrumb-enable nil)
  :init (setq lsp-keymap-prefix "C-c l"
              lsp-keep-workspace-alive nil
              lsp-signature-auto-activate nil
              lsp-modeline-code-actions-enable nil
              lsp-modeline-diagnostics-enable nil
              lsp-modeline-workspace-status-enable nil
              lsp-headerline-breadcrumb-enable nil
              lsp-enable-file-watchers nil
              lsp-enable-folding nil
              lsp-enable-symbol-highlighting nil
              lsp-enable-text-document-color nil
              lsp-enable-indentation nil
              lsp-enable-on-type-formatting nil)
   :config
   (with-no-warnings
       ;; Disable `lsp-mode' in `git-timemachine-mode'
       (defun my-lsp--init-if-visible (fn &rest args)
         (unless (bound-and-true-p git-timemachine-mode)
           (apply fn args)))
       (advice-add #'lsp--init-if-visible :around #'my-lsp--init-if-visible)
       ;; Enable `lsp-mode' in sh/bash/zsh
       (defun my-lsp-bash-check-sh-shell (&rest _)
         (and (eq major-mode 'sh-mode)
              (memq sh-shell '(sh bash zsh))))
       (advice-add #'lsp-bash-check-sh-shell :override #'my-lsp-bash-check-sh-shell)
       ;; Only display icons in GUI
       (defun my-lsp-icons-get-symbol-kind (fn &rest args)
         (and (icon-displayable-p) (apply fn args)))
       (advice-add #'lsp-icons-get-by-symbol-kind :around #'my-lsp-icons-get-symbol-kind)
       (defun my-lsp-icons-get-by-file-ext (fn &rest args)
         (and (icon-displayable-p) (apply fn args)))
       (advice-add #'lsp-icons-get-by-file-ext :around #'my-lsp-icons-get-by-file-ext)
       (defun my-lsp-icons-all-the-icons-material-icon (icon-name face fallback &optional feature)
         (if (and (icon-displayable-p)
                  (lsp-icons--enabled-for-feature feature))
             (all-the-icons-material icon-name
                                     :face face)
           (propertize fallback 'face face)))
       (advice-add #'lsp-icons-all-the-icons-material-icon
                   :override #'my-lsp-icons-all-the-icons-material-icon))
  )
 ;; Interface para lsp
 (use-package lsp-ui
  :defer t
  :straight t
  :bind (("<f1>" . lsp-ui-doc-glance))
  :hook (lsp-mode . lsp-ui-mode)
  :init
  (setq lsp-ui-sideline-show-diagnostics nil
        lsp-ui-sideline-ignore-duplicate t
        lsp-ui-doc-delay 0.1
        lsp-ui-imenu-colors `(,(face-foreground 'font-lock-keyword-face)
                              ,(face-foreground 'font-lock-string-face)
                              ,(face-foreground 'font-lock-constant-face)
                              ,(face-foreground 'font-lock-variable-name-face)))
  ;; Set correct color to borders
  (defun my-lsp-ui-doc-set-border ()
    "Set the border color of lsp doc."
    (setq lsp-ui-doc-border
          (if (facep 'posframe-border)
              (face-background 'posframe-border nil t)
            (face-foreground 'shadow nil t))))
  (my-lsp-ui-doc-set-border)
  (add-hook 'after-load-theme-hook #'my-lsp-ui-doc-set-border t)
  )
 (provide 'base-lsp)
 ;;; base-lsp.el ends here
--- a/configs/base-org.el
+++ b/configs/base-org.el
@ -1,172 +0,0 @@
 ;;; base-config.el --- Configuración de org-mode   -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;; Code:
 (defun kj/org-hook ()
  "Configuración para el hook de 'org-mode'."
  (display-line-numbers-mode 0)
  (variable-pitch-mode 1)
  (visual-line-mode 1)
  (visual-fill-column-mode 1)
  ;; Configuración de fonts
  ;; (set-face-attribute (car face) nil :font "Cantarell" :weight 'regular :height (cdr face))
  ;; 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 nil :inherit 'fixed-pitch)
  (set-face-attribute 'org-code nil   :inherit '(shadow fixed-pitch))
  (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)
  ;; Tachar los elementos "DONE"
  (set-face-attribute 'org-done nil :strike-through t)
  (set-face-attribute 'org-headline-done nil
                      :strike-through t
                      :foreground "light gray")
  )
 (use-package org
  :defer t
  :ensure t
  :straight (:type built-in)
  :bind (("C-c a" . org-agenda)
         ("C-c c" . org-capture))
  :hook
  (org-mode . kj/org-hook)
  :config
  (setq company-dabbrev-ignore-case nil) ; Hacer el autocompletado case-sensitive.
  (setq org-ellipsis " ▾")
  (setq org-hide-emphasis-markers t)
  (setq org-startup-folded 'content)
  (setq org-agenda-start-with-log-mode t)
  (setq org-log-done 'time)
  (setq org-log-into-drawer t)
  (setq org-cycle-separator-lines 2)
  ;; Identación
  (setq org-startup-indented t)
  (setq org-src-preserve-indentation nil)
  (setq org-edit-src-content-indentation 0)
  (setq org-src-tab-acts-natively t)
  ;; Palabras claves del To Do de org-mode
  (setq org-todo-keywords
        ;;'((sequence "☐" "✔" "⌛" "❌")))
        '((sequence "TODO(t)" "DOING(n)" "WAITING(w)" "|" "DONE(d!)" "CANCELED(c!)")))
  (setq org-todo-keyword-faces
        '(("TODO" . "#ff6464")
          ("DOING" . "yellow")
          ("DONE" . "green")
          ("WAITING" . "orange")
          ("CANCELED" . "#aaa"))
        )
  ;; Embellecer los checkbox
  ;; (add-hook 'org-mode-hook (lambda ()
  ;; "Beautify Org Checkbox Symbol"
  ;; (push '("[ ]" . "☐") prettify-symbols-alist)
  ;; (push '("[X]" . "☑" ) prettify-symbols-alist)
  ;; (push '("[-]" . "❍" ) prettify-symbols-alist)
  ;; (prettify-symbols-mode)))
  ;; Tachar los checkbox marcados como terminados
  (defface org-checkbox-done-text
  '((t (:foreground "#71696A" :strike-through t)))
  "Face for the text part of a checked org-mode checkbox.")
  (font-lock-add-keywords
   'org-mode
   `(("^[ \t]*\\(?:[-+*]\\|[0-9]+[).]\\)[ \t]+\\(\\(?:\\[@\\(?:start:\\)?[0-9]+\\][ \t]*\\)?\\[\\(?:X\\|\\([0-9]+\\)/\\2\\)\\][^\n]*\n\\)"
      1 'org-checkbox-done-text prepend))
   'append)
  ;; Archivos a usarse en org-agenda
  (setq org-agenda-files
        '("~/Documentos/ORG/Agenda/Ideas.org"
          "~/Documentos/ORG/Agenda/IdeasTwitch.org"
          "~/Documentos/ORG/Agenda/Proyectos.org"
          "~/Documentos/ORG/Agenda/Tareas.org")
        )
  ;; Archivos entre los que se moverán las tareas
  (setq org-refile-targets
        '(("Archivo.org" :maxlevel . 1)
          ("Proyectos.org" :maxlevel . 1)
          ("IdeasTwitch.org" :maxlevel . 1)
          ("Ideas.org" :maxlevel . 1)
          ("Tareas.org" :maxlevel . 1)))
  ;; Guardar los archivos cuando se muevan tareas entre ellos
  (advice-add 'org-refile :after 'org-save-all-org-buffers)
  (setq org-capture-templates
        `(("t" "Tareas / Projectos")
          ("tt" "Tareas" entry (file+olp "~/Documentos/ORG/Agenda/Tareas.org")
           "* TODO %?\n  %U\n  %a\n  %i" :empty-lines 1)
          ("tp" "Proyectos" entry (file+olp "~/Documentos/ORG/Agenda/Proyectos.org")
           "* TODO %?\n  %U\n  %a\n  %i" :empty-lines 1)
          ("i" "Ideas")
          ("ii" "Ideas General" entry
           (file+olp "~/Documentos/ORG/Agenda/ideas.org")
           "* TODO %?\n   %a\n  %i" :empty-lines 1)
          ("it" "Ideas Twitch" entry
           (file+olp "~/Documentos/ORG/Agenda/IdeasTwitch.org")
           "* TODO %?\n   %a\n  %i" :empty-lines 1)
          )
        )
  )
 (use-package org-bullets
  :defer t
  :straight t
  :hook
  (org-mode . org-bullets-mode))
 (use-package visual-fill-column
  :straight t
  :config
  ;; Tamaño de la columna
  (setq-default visual-fill-column-width 150)
  ;; Centrar el texto
  (setq-default visual-fill-column-center-text t)
  )
 (use-package org-roam
  :defer t
  :straight t
  :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)
  :custom
  (org-roam-directory "~/Documentos/ORG/Notas")
  (org-roam-completion-everywhere t)
  :config
  (org-roam-setup))
 (use-package org-roam-ui
  :defer t
  :straight t
  :ensure t
  :config
  (setq org-roam-ui-sync-theme t
        org-roam-ui-follow t
        org-roam-ui-update-on-save t
        org-roam-ui-open-on-start t))
 (provide 'base-org)
 ;;; base-org.el ends here
--- a/configs/base.el
+++ b/configs/base.el
@ -1,145 +0,0 @@
 ;;; base.el --- Configuración base de emacs	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Configuración base de Emacs, no incluye extensiones,
 ;; pero si el theme y los fonts.
 ;;; Code:
 ;; Native compilation
 (when (and (fboundp 'native-comp-available-p)
           (native-comp-available-p))
  (progn
    (setq native-comp-async-report-warnings-errors nil)
    (setq comp-deferred-compilation t)
    (setq package-native-compile t)
    ))
 ;; Instalar straight.el (reemplpazando package.el)
 (defvar bootstrap-version)
 (let ((bootstrap-file
      (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
      (bootstrap-version 5))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
        "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
        'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))
 ;; Initialize package sources
 ;; (require 'package)
 ;; (setq package-archives '(("melpa" . "https://melpa.org/packages/")
 ;;                          ("org" . "https://orgmode.org/elpa/")
 ;;                          ("elpa" . "https://elpa.gnu.org/packages/")))
 ;; (package-initialize)
 ;; Actualizar repositorios si aún no esta actualizados
 ;; (unless package-archive-contents
 ;;   (package-refresh-contents))
 ;; Instalar use-package si no está instalado
 (straight-use-package 'use-package)
 ;; Theme
 (use-package dracula-theme
  :straight t
  :config
  (load-theme 'dracula t)
  (set-face-attribute 'default nil :font "Fira Code Retina" :height 112) ; Font
 )
 ;; Instalar use-package en caso de no tenerlo
 ;;(unless (package-installed-p 'use-package)
 ;;  (package-install 'use-package))
 (defconst private-dir  (expand-file-name "private" user-emacs-directory))
 (defconst temp-dir (format "%s/cache" private-dir)
  "Hostname-based elisp temp directories.")
 ;; UTF-8 please
 (set-charset-priority 'unicode)
 (setq locale-coding-system   'utf-8)   ; pretty
 (set-terminal-coding-system  'utf-8)   ; pretty
 (set-keyboard-coding-system  'utf-8)   ; pretty
 (set-selection-coding-system 'utf-8)   ; please
 (prefer-coding-system        'utf-8)   ; with sugar on top
 (setq default-process-coding-system '(utf-8-unix . utf-8-unix))
 ;; Emacs customizations
 (menu-bar-mode 0)                               ; Quitar menús.
 (tool-bar-mode 0)                               ; Quitar toolbar.
 (scroll-bar-mode -1)                            ; Quitar scrollbar.
 (tooltip-mode -1)                               ; Disable tooltips.
 (global-display-line-numbers-mode)              ; Mostar número de línea.
 (show-paren-mode 1)                             ; Habilitar resaltado de brackets.
 ;;(cua-mode t)                                    ; Usar CTRL+X, CTRL+C, CTRL+V y CTRL+Z para cortar, copiar, pegar y deshacer.
 (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).
 global-hl-line-mode 1                          ; Resaltar línea actual por defecto.
 tags-revert-without-query 1                    ; Recargar tags (ctags) sin pedir confirmación.
 )
 ;; Backups enabled, use nil to disable
 (setq
 history-length                     1000
 backup-inhibited                   nil
 make-backup-files                  nil
 auto-save-default                  nil
 auto-save-list-file-name           (concat temp-dir "/autosave")
 create-lockfiles                   nil
 backup-directory-alist            `((".*" . ,(concat temp-dir "/backup/")))
 auto-save-file-name-transforms    `((".*" ,(concat temp-dir "/auto-save-list/") t)))
 ;; Configuración cuando es un server
 (defun setup-daemon ()
  "Carga la configuración del modo daemon."
  (message "Corriendo en modo daemon.")
  (set-face-attribute 'default nil :font "Fira Code Retina" :height 112)
  ;; Set the fixed pitch face
  ;;(set-face-attribute 'fixed-pitch nil :font "Fira Code Retina")
  ;; Set the variable pitch face
  ;;(set-face-attribute 'variable-pitch nil :font "Cantarell" :weight 'regular)
  ;; Abrir primero el dashboard
  (setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
  ;; Cerrar buffers al cerrar emacsclient
  (add-hook 'delete-frame-functions
            (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 'window-setup-hook 'toggle-frame-maximized t)
 (load custom-file)
 (provide 'base)
 ;;; base.el ends here
--- 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
@ -0,0 +1,133 @@
 ;;; init-base.el --- Configuración base de emacs	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Configuración general de Emacs.
 ;;; Code:
 (require 'init-functions)
 ;; Native compilation
 (when (and (fboundp 'native-comp-available-p)
           (native-comp-available-p))
  (progn
    (setq native-comp-async-report-warnings-errors nil)
    (setq comp-deferred-compilation t)
    (setq package-native-compile t)
    ))
 ;; Custom configs file
 (setq custom-file (concat user-emacs-directory ".custom.el"))
 ;; Garbage Collector Magic Hack
 (use-package gcmh
  :diminish
  :hook (emacs-startup . gcmh-mode)
  :init
  (setq gcmh-idle-delay 'auto
        gcmh-auto-idle-delay-factor 10
        gcmh-high-cons-threshold #x1000000)) ; 16MB
 ;; Guardar la posición del cursor en un archivo para volver allí cuando se lo vuelva a abrir.
 (use-package saveplace
  :ensure nil
  :hook (after-init . save-place-mode))
 ;; Recentf - Guarda registro de los archivos abiertos recientemente
 (use-package recentf
  :ensure nil
  :bind (("C-x C-r" . recentf-open-files))
  :hook (after-init . recentf-mode)
  :init (setq recentf-max-saved-items 300
              recentf-exclude
              '("\\.?cache" ".cask" "url" "COMMIT_EDITMSG\\'" "bookmarks"
                "\\.\\(?:gz\\|gif\\|svg\\|png\\|jpe?g\\|bmp\\|xpm\\)$"
                "\\.?ido\\.last$" "\\.revive$" "/G?TAGS$" "/.elfeed/"
                "^/tmp/" "^/var/folders/.+$" "^/ssh:" "/persp-confs/"
                (lambda (file) (file-in-directory-p file package-user-dir))))
  :config
  (push (expand-file-name recentf-save-file) recentf-exclude)
  (add-to-list 'recentf-filename-handlers #'abbreviate-file-name))
 ;; Guarda el historial del minibuffer
 (use-package savehist
  :ensure nil
  :hook (after-init . savehist-mode)
  :init (setq enable-recursive-minibuffers t ; Allow commands in minibuffers
              history-length 1000
              savehist-additional-variables '(mark-ring
                                              global-mark-ring
                                              search-ring
                                              regexp-search-ring
                                              extended-command-history)
              savehist-autosave-interval 300))
 ;; Misc.
 (use-package simple
  :ensure nil
  :hook ((after-init . size-indication-mode)
         (before-save . delete-trailing-whitespace)
         (text-mode . visual-line-mode))
  :init
  (setq column-number-mode t
        line-number-mode t
        kill-whole-line t               ; Kill line including '\n' (C-k)
        line-move-visual nil
        track-eol t                     ; Keep cursor at end of lines. Require line-move-visual is nil.
        set-mark-command-repeat-pop t)  ; Repeating C-SPC after popping mark pops it again
  ;; Visualize TAB, (HARD) SPACE, NEWLINE
  (setq-default show-trailing-whitespace nil ; Don't show trailing whitespace by default
                cursor-type 'bar)            ; Usar la barrita como cursor
  (setq show-trailing-whitespace t))
 ;; UTF-8 please
 (when (fboundp 'set-charset-priority)
  (set-charset-priority 'unicode))
 (set-language-environment "UTF-8")
 (set-default-coding-systems 'utf-8)
 (set-buffer-file-coding-system 'utf-8)
 (set-clipboard-coding-system 'utf-8)
 (set-file-name-coding-system 'utf-8)
 (set-keyboard-coding-system 'utf-8)
 (set-next-selection-coding-system 'utf-8)
 (set-selection-coding-system 'utf-8)
 (set-terminal-coding-system 'utf-8)
 (setq locale-coding-system 'utf-8)
 (setq system-time-locale "C")
 ;; Misc
 (if (boundp 'use-short-answers)
    (setq use-short-answers t)
  (fset 'yes-or-no-p 'y-or-n-p))
 (setq-default major-mode 'text-mode
              fill-column 80
              tab-width 4
              indent-tabs-mode nil)     ; Permanently indent with spaces, never with TABs
 (setq visible-bell t
      inhibit-compacting-font-caches t  ; Don’t compact font caches during GC
      delete-by-moving-to-trash t       ; Deleting files go to OS's trash folder
      make-backup-files nil             ; Forbide to make backup files
      auto-save-default nil             ; Disable auto sav
      inhibit-splash-screen t
      uniquify-buffer-name-style 'post-forward-angle-brackets ; Show path if names are same
      adaptive-fill-regexp "[ t]+|[ t]*([0-9]+.|*+)[ t]*"
      adaptive-fill-first-line-regexp "^* *$"
      sentence-end "\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*"
      sentence-end-double-space nil
      word-wrap-by-category t)
 ;; Async
 (use-package async
  :functions (async-bytecomp-package-mode dired-async-mode)
  :init
  (async-bytecomp-package-mode 1)
  (dired-async-mode 1))
 (provide 'init-base)
 ;;; init-base.el ends here
--- a/configs/init-completion.el
+++ b/configs/init-completion.el
@ -0,0 +1,135 @@
 ;;; init-completion.el --- Autocompletado con corfu  -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Archivo de configuración específico para el paquete corfu.
 ;; Corfu, de manera resumida, es el que nos muestra el autocompletado
 ;; en Emacs, tanto para código como para otro tipo de textos.
 ;;
 ;; Este paquete viene a ser una alternativa a Company, por lo
 ;; que no se deberían activar los 2 al mismo tiempo.
 ;;; Code:
 ;; childframe con los cantidatos de autocompletado
 (use-package corfu
  :ensure (:files (:defaults "extensions/*")
                  :includes (corfu-info corfu-history))
  :hook ((elpaca-after-init . global-corfu-mode)
         (global-corfu-mode . corfu-popupinfo-mode))
  :bind (:map corfu-map
              ("<escape>" . corfu-quit)
              ("<SPC>"    . corfu-insert-separator))
  :custom-face
  (corfu-border ((t (:inherit region :background unspecified))))
  :custom
  (corfu-auto t)
  :config
  (global-corfu-mode)
  (setq corfu-popupinfo-delay 0
        corfu-auto-delay 0
        corfu-auto-prefix 2
        corfu-cycle t
        corfu-quit-at-boundary t
        corfu-preview-current nil
        corfu-quit-no-match t)
  (when (< emacs-major-version 29)
    (advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent)
    (advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify))
  (corfu-history-mode 1)
  (savehist-mode 1)
  (add-to-list 'savehist-additional-variables 'corfu-history)
  )
 ;; Cambia la forma de mostrar y buscar sugerencias (afecta a corfu, pero también a otros como vertico).
 (use-package orderless
  :after corfu
  :custom
  (completion-styles '(orderless))      ; Use orderless
  (completion-category-defaults nil)    ; I want to be in control!
  (setq completion-ignore-case  t)
  (completion-category-overrides '((file (styles basic partial-completion orderless))))
  (orderless-matching-styles
   '(orderless-literal
     orderless-prefixes
     orderless-initialism
     orderless-regexp
     orderless-flex                       ; Basically fuzzy finding
     ;; orderless-strict-leading-initialism
     ;; orderless-strict-initialism
     ;; orderless-strict-full-initialism
     ;; orderless-without-literal          ; Recommended for dispatches instead
     ))
  )
 ;; Set de funciones de para las sugerencias de corfu.
 (use-package cape
  :ensure (:host github :repo "minad/cape")
  :after corfu
  :hook (eglot-managed-mode . (lambda()
                                (setq completion-at-point-functions
                                      (list (cape-capf-super
                                             #'eglot-completion-at-point
                                             #'cape-abbrev
                                             #'cape-dabbrev
                                             #'cape-history
                                             #'cape-dict
                                             #'cape-file
                                             #'cape-keyword)))))
  :bind (("C-c c f" . cape-file)
         ("C-c c l" . cape-line))
  :init
  (setq text-mode-ispell-word-completion nil)
  ;; (add-to-list 'completion-at-point-functions #'cape-line)     ;; Completar línea actual en función de lo que dice otras líneas de buffer.
  ;; (add-to-list 'completion-at-point-functions #'cape-tex)      ;; Completar Latex (caracteres unicode).
  (add-to-list 'completion-at-point-functions #'cape-dabbrev)  ;; Completar desde otras la palabras del buffer.
  (add-to-list 'completion-at-point-functions #'cape-abbrev)   ;; Completar desde una abreviaciónes configuradas con add-global-abbrev (añadir abreviación global) o add-mode-abbrev (abreviación para el modo actual).
  (add-to-list 'completion-at-point-functions #'cape-history)  ;; Completar desde el historial de altocompletado
  (add-to-list 'completion-at-point-functions #'cape-dict)     ;; Completar desde un diccionario (por defecto toma el de linux que está en /usr/share/dict/words).
  (add-to-list 'completion-at-point-functions #'cape-file)     ;; Completar rutas de archivos.
  (add-to-list 'completion-at-point-functions #'cape-keyword)  ;; Completar desde keyword del lenguaje.
  (advice-add 'eglot-completion-at-point :around #'cape-wrap-buster)
  )
 ;; Hacer que corfu funcione en la terminal
 (unless (display-graphic-p)
  (use-package corfu-terminal
    :after corfu
    :ensure (:repo "https://codeberg.org/akib/emacs-corfu-terminal.git")
    :init
    (corfu-terminal-mode +1))
  )
 ;; A few more useful configurations...
 (use-package emacs
  :ensure nil
  :custom
  ;; TAB cycle if there are only few candidates
  ;; (completion-cycle-threshold 3)
  ;; Enable indentation+completion using the TAB key.
  ;; `completion-at-point' is often bound to M-TAB.
  (tab-always-indent 'complete)
  ;; Emacs 30 and newer: Disable Ispell completion function. As an alternative,
  ;; try `cape-dict'.
  (text-mode-ispell-word-completion nil)
  ;; Emacs 28 and newer: Hide commands in M-x which do not apply to the current
  ;; mode.  Corfu commands are hidden, since they are not used via M-x. This
  ;; setting is useful beyond Corfu.
  (read-extended-command-predicate #'command-completion-default-include-p))
 ;; Iconos en corfu
 (use-package nerd-icons-corfu
  :after corfu
  :init (add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter))
 (provide 'init-completion)
 ;;; init-completion.el ends here
--- a/configs/init-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-evil.el
+++ b/configs/init-evil.el
@ -0,0 +1,137 @@
 ;;; init-evil.el --- VIM dentro de emacs  -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; En este archivo está toda la configuración relacionada
 ;; con el paquete Evil.
 ;;
 ;; Evil es un paquete para Emacs, que básicamente nos
 ;; permite tener VIM dentro de Emacs.
 ;;; Code:
 (use-package evil
  :hook ((elpaca-after-init . evil-mode)
         (git-timemachine-mode . evil-emacs-state))
  :init
  (setq evil-want-keybinding nil)
  ;; Habilitar atajos de de tecla de emacs en insert state
  (setq evil-disable-insert-state-bindings t)
  :config
  ;; Configuraciones básicas
  ;; (setq evil-default-state 'emacs) ;; Modo por defecto en emacs
  ;; (setq evil-default-state 'insert) ;; Modo por defecto en emacs
  (setq evil-emacs-state-cursor 'bar) ;; Cursor de emacs state en bar
  ;; (setq evil-normal-state-cursor 'bar) ;; Cursor de normal state en bar en lugar de box
  (evil-set-leader 'motion (kbd "SPC")) ;; Leader key
  (evil-set-undo-system 'undo-redo)
  ;; Arreglar el problemita con corfu-quit y el cambio de modos
  (evil-define-key 'emacs 'global (kbd "<escape>") '(lambda ()
                                                      "Call `corfu-quit' and then return to Normal State."
                                                      (interactive)
                                                      (call-interactively 'corfu-quit)
                                                      (evil-normal-state)))
  ;; (evil-define-key 'normal 'global (kbd "<escape>") 'corfu-quit)
  ;; Cambiar a mode emacs con escape
  ;; (evil-define-key 'emacs 'global (kbd "<escape>") 'evil-normal-state)
  ;; Cambiar Insert state por emacs state.
  (defalias 'evil-insert-state 'evil-emacs-state)
  ;; Variales locales (todos los estados o solo los estados de VIM)
  (setq all-states '(normal insert visual replace operator motion emacs))
  (setq vim-states '(normal insert visual replace operator motion))
  ;; Cambiar entre modo emacs y evil (Mi pripio evil toggle)
  ;; (evil-define-key vim-states 'global (kbd "C-'") 'evil-emacs-state)
  ;; (evil-define-key 'emacs 'global (kbd "C-'") 'evil-normal-state)
  ;; Cambiar C-z a deshacer
  (evil-define-key all-states 'global (kbd "C-z") 'undo)
  ;; Cambiar U para hacer redo
  (evil-define-key 'normal 'global (kbd "U") 'undo-redo)
  (evil-define-key 'normal 'global (kbd "C-S-z") 'undo-redo)
  (evil-define-key 'normal 'global (kbd "M-.") 'xref-find-definitions)
  ;; Arreglar yank-pop en normal mode
  (evil-define-key 'normal 'global (kbd "M-y") 'consult-yank-pop)
  ;; Re-bindear keys a como funcionan en emacs.
  (evil-define-key 'normal 'global (kbd "C-p") 'previous-line)
  (evil-define-key 'normal 'global (kbd "C-n") 'next-line)
  (evil-define-key 'normal 'global (kbd "C-e") 'move-end-of-line)
  ;; Navegación entre frames
  (evil-define-key 'motion 'global (kbd "<leader>o") 'other-window)
  ;; Habilitar el scrolear con C-v como en emacs en evil
  (evil-define-key 'motion 'global (kbd "C-v") 'scroll-up-command)
  ;; Añadir nueva linea sin salir del modo normal
  (evil-define-key 'motion 'global (kbd "<leader><RET>") 'newline)
  ;; Abrir historial del kill-ring/portapapeles
  (evil-define-key vim-states 'global (kbd "<leader>y") 'consult-yank-pop)
  ;; Expand region desde motion states
  (evil-define-key 'motion 'global (kbd "<leader>+") 'er/expand-region)
  ;; Indentado en motion modes.
  (evil-define-key 'motion 'global (kbd "<tab>") 'indent-for-tab-command)
  ;; Atajos con leader key para frames
  (evil-define-key 'motion 'global (kbd "<leader>0") 'delete-window)
  (evil-define-key 'motion 'global (kbd "<leader>1") 'delete-other-windows)
  (evil-define-key 'motion 'global (kbd "<leader>2") 'split-window-below)
  (evil-define-key 'motion 'global (kbd "<leader>3") 'split-window-right)
  (evil-define-key 'motion 'global (kbd "<leader>k") 'kill-buffer)
  (evil-define-key 'motion 'global (kbd "<leader>wu") 'winner-undo)
  (evil-define-key 'motion 'global (kbd "<leader>wr") 'winner-redo)
  ;; Cambios de modos
  (evil-define-key 'normal 'global (kbd "<leader>mh") 'html-mode)
  (evil-define-key 'normal 'global (kbd "<leader>mj") 'js-mode)
  (evil-define-key 'normal 'global (kbd "<leader>mp") 'php-ts-mode)
  (evil-define-key 'normal 'global (kbd "<leader>mr") 'rust-mode)
  (evil-define-key 'normal 'global (kbd "<leader>mw") 'web-mode)
  ;; Otros atajos
  (evil-define-key 'motion 'global (kbd "<leader>b") 'switch-to-buffer)             ;; Cambiar de buffer
  (evil-define-key 'motion 'global (kbd "<leader>p") 'project-find-file)            ;; Archivos del proyecto (o abrir proyecto si no hay alguno)
  (evil-define-key 'motion 'global (kbd "<leader>cp") 'project-switch-project)     ;; Cambiar proyecto
  (evil-define-key 'motion 'global (kbd "<leader>f") 'find-file)                   ;; Abrir archivo
  (evil-define-key 'motion 'global (kbd "<leader>xr") 'consult-recent-file)        ;; Lista de archivos recientes
  (evil-define-key 'motion 'global (kbd "<leader>rg") 'consult-ripgrep)            ;; Búsqueda rápida con ripgrep
  (evil-define-key 'motion 'global (kbd "<leader>gi") 'imenu)                      ;; imenu
  (evil-define-key 'motion 'global (kbd "<leader>gg") 'goto-line)                  ;; Ir a la línea.
  ;; Iniciar en normal state solo en modos específicos
  (setq evil-default-state 'emacs) ;; Modo por defecto en emacs
  (evil-set-initial-state 'prog-mode 'normal)
  (evil-set-initial-state 'org-mode 'normal)
  (evil-set-initial-state 'text-mode 'normal)
  (evil-set-initial-state 'csv-mode 'normal)
  (evil-set-initial-state 'fundamental-mode 'normal)
  (evil-set-initial-state 'dashboard-mode 'normal)
  (evil-set-initial-state 'dired 'normal)
  (evil-set-initial-state 'vterm-mode 'emacs)
  (evil-set-initial-state 'magit-mode 'emacs)
  (evil-set-initial-state 'git-commit-mode 'emacs)
  )
 ;; Funciones y atajos de teclas especiales para evil cuando estamo en org-mode.
 ;; Por ejemplo, para que evil-open-below funcione similar a org-return cuando
 ;; estamos dentro de una lista.
 (use-package evil-org
  :after org
  :hook (org-mode . evil-org-mode))
 ;; Similar a Vimtutor, pero para evil.
 (use-package evil-tutor)
 (provide 'init-evil)
 ;;; init-evil.el ends here
--- a/configs/init-functions.el
+++ b/configs/init-functions.el
@ -0,0 +1,175 @@
 ;;; init-functions.el --- Configuración de org-mode	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Aqui se encuentran funciones sueltas de Emacs.
 ;;; Code:
 ;; Permite cambiar la transparencia de emacs.
 (defun transparency (value)
  "Change the transparency of the frame window, setting VALUE from 0 to 100."
  (interactive "nTransparency Value 0 - 100 opaque:")
  (set-frame-parameter nil 'alpha-background value))
 ;; Comentar línea o región
 (defun comment-or-uncomment-region-or-line ()
    "Comments or uncomments the region or the current line."
    (interactive)
    (let (beg end)
        (if (region-active-p)
            (setq beg (region-beginning) end (region-end))
            (setq beg (line-beginning-position) end (line-end-position)))
        (comment-or-uncomment-region beg end)
        ;;(next-line) ;; saltar a la siguiente línea
        ))
 ;; Duplicar la línea actual
 (defun duplicate-current-line (&optional n)
  "Duplicate current line, make more than 1 copy given a numeric (N) argument."
  (interactive "p")
  (save-excursion
    (let ((nb (or n 1))
    	  (current-line (thing-at-point 'line)))
      ;; when on last line, insert a newline first
      (when (or (= 1 (forward-line 1)) (eq (point) (point-max)))
    	(insert "\n"))
      ;; now insert as many time as requested
      (while (> n 0)
    	(insert current-line)
    	(decf n)))))
 ;; Obtener el nombre del proyecto desde project.el
 (defun kj/project-name (&optional project)
  "Return the name for PROJECT.
 If PROJECT is not specified, assume current project root."
  (when-let* ((root (or project (kj/project-root)))) ;; <-- ¡Aquí está el cambio!
    (file-name-nondirectory
     (directory-file-name
      (file-name-directory root)))))
 ;; Obtener la raíz del proyecto desde project.el
 (defun kj/project-root ()
  "Return the current project root."
  (when-let* ((project (project-current)))
    (project-root project)))
 ;; Cambia entre ocultar o no la barra de título cuando está maximizado
 (defun toggle-hide-title-bar()
  "Toggle hide title bar when the frame is maximed."
  (interactive)
  (if (and (boundp 'title-bar-maximixed) title-bar-maximixed)
      (progn
        (remove-hook 'window-size-change-functions 'frame-hide-title-bar-when-maximized)
        (setq title-bar-maximixed nil))
    (progn
      (add-hook 'window-size-change-functions 'frame-hide-title-bar-when-maximized)
      (setq title-bar-maximixed t)))
  )
 ;; Creando un hook para luego de que el theme ha cargado
 (defvar after-load-theme-hook nil
  "Hook run after a color theme is loaded using `load-theme'.")
 (defadvice load-theme (after run-after-load-theme-hook activate)
  "Run `after-load-theme-hook'."
  (run-hooks 'after-load-theme-hook))
 ;; Devuelve si el archivo es muy grande o no\
 (defun too-long-file-p ()
  "Check whether the file is too long."
  (or (> (buffer-size) 500000)
      (and (fboundp 'buffer-line-statistics)
           (> (car (buffer-line-statistics)) 10000))))
 ;; Renombrar el archivo actual
 (defun rename-this-file (new-name)
  "Renames both current buffer and file it's visiting to NEW-NAME."
  (interactive (list (read-string "New name: "
                                  (file-name-nondirectory
                                   (buffer-file-name)))))
  (let ((name (buffer-name))
        (filename (buffer-file-name)))
    (unless filename
      (error "Buffer '%s' is not visiting a file!" name))
    (progn
      (when (file-exists-p filename)
        (rename-file filename new-name 1))
      (set-visited-file-name new-name)
      (rename-buffer new-name))))
 ;; Copiar el nombre del archivo actual
 (defun copy-filename ()
  "Copy the current buffer file name to the clipboard."
  (interactive)
  (let ((filename (if (equal major-mode 'dired-mode)
                      default-directory
                    (buffer-file-name))))
    (if filename
        (progn
          (kill-new filename)
          (message "Copied '%s'" filename))
      (warn "Current buffer is not attached to a file!"))))
 (defun copy-basename ()
  "Copy the current buffer basename to the clipboard."
  (interactive)
  (let ((filename (if (equal major-mode 'dired-mode)
                      default-directory
                    (file-name-nondirectory (buffer-file-name)))))
    (if filename
        (progn
          (kill-new filename)
          (message "Copied '%s'" filename))
      (warn "Current buffer is not attached to a file!"))))
 ;; Verifica si se puede levantar un childframe
 (defun childframe-workable-p ()
  "Whether childframe is workable."
  (and (not noninteractive)
       (not emacs-basic-display)
       (or (display-graphic-p)
           (featurep 'tty-child-frames))
       (eq (frame-parameter (selected-frame) 'minibuffer) 't)))
 (defun font-installed-p (font-name)
  "Check if font with FONT-NAME is available."
  (find-font (font-spec :name font-name)))
 (defun insert-filename ()
  "Insert the full path file name into the current buffer."
  (interactive)
  (insert (buffer-file-name)))
 (defun insert-basename ()
  "Insert the filename (without path) into the current buffer."
  (interactive)
  (insert (file-name-nondirectory (buffer-file-name))))
 (defun sort-lines-by-length (reverse beg end)
  "Sort lines by length."
  (interactive "P\nr")
  (save-excursion
    (save-restriction
      (narrow-to-region beg end)
      (goto-char (point-min))
      (let ;; To make `end-of-line' and etc. to ignore fields.
          ((inhibit-field-text-motion t))
        (sort-subr reverse 'forward-line 'end-of-line nil nil
                   (lambda (l1 l2)
                     (apply #'< (mapcar (lambda (range) (- (cdr range) (car range)))
                                        (list l1 l2)))))))))
 (defun corfu-auto-toggle()
  "Toggle corfu autocomplete."
  (interactive)
  (global-corfu-mode 0)
  (setq corfu-auto (not corfu-auto))
  (global-corfu-mode 1)
  )
 (provide 'init-functions)
 ;;; init-functions.el ends here.
--- a/configs/init-highlight.el
+++ b/configs/init-highlight.el
@ -0,0 +1,164 @@
 ;; init-highlight.el --- Initialize highlighting configurations.	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;
 ;; Highlighting configurations.
 ;;
 ;;; Code:
 ;; Highlight the current line
 (use-package hl-line
  :ensure nil
  :hook (((dashboard-mode eshell-mode shell-mode term-mode vterm-mode) .
          (lambda () (setq-local global-hl-line-mode nil)))
         ;; (after-init . global-hl-line-mode)
  ))
 ;; Highlight matching parens
 (use-package paren
  :ensure nil
  :functions childframe-workable-p
  :custom-face
  (show-paren-match ((((class color) (background light))
                      (:box (:line-width (-1 . -1) :color "gray73")))
                     (((class color) (background dark))
                      (:box (:line-width (-1 . -1) :color "gray56")))))
  :hook (after-init . show-paren-mode)
  :init (setq show-paren-when-point-inside-paren t
              show-paren-when-point-in-periphery t)
  :config
  (setq blink-matching-paren-highlight-offscreen t
        show-paren-context-when-offscreen
        (if (childframe-workable-p) 'child-frame 'overlay))
  (with-no-warnings
    ;; Display matching line for off-screen paren.
    (defun display-line-overlay (pos str &optional face)
      "Display line at POS as STR with FACE.
 FACE defaults to inheriting from default and highlight."
      (let ((ol (save-excursion
                  (goto-char pos)
                  (make-overlay (line-beginning-position)
                                (line-end-position)))))
        (overlay-put ol 'display str)
        (overlay-put ol 'face
                     (or face '(:inherit highlight)))
        ol))
    (defvar-local show-paren--off-screen-overlay nil)
    (defun show-paren-off-screen (&rest _args)
      "Display matching line for off-screen paren."
      (when (overlayp show-paren--off-screen-overlay)
        (delete-overlay show-paren--off-screen-overlay))
      ;; Check if it's appropriate to show match info,
      (when (and (overlay-buffer show-paren--overlay)
                 (not (or cursor-in-echo-area
                          executing-kbd-macro
                          noninteractive
                          (minibufferp)
                          this-command))
                 (and (not (bobp))
                      (memq (char-syntax (char-before)) '(?\) ?\$)))
                 (= 1 (logand 1 (- (point)
                                   (save-excursion
                                     (forward-char -1)
                                     (skip-syntax-backward "/\\")
                                     (point))))))
        ;; Rebind `minibuffer-message' called by `blink-matching-open'
        ;; to handle the overlay display.
        (cl-letf (((symbol-function #'minibuffer-message)
                   (lambda (msg &rest args)
                     (let ((msg (apply #'format-message msg args)))
                       (setq show-paren--off-screen-overlay
                             (display-line-overlay
                              (window-start) msg ))))))
          (blink-matching-open))))
    (advice-add #'show-paren-function :after #'show-paren-off-screen)))
 ;; Resalta los escapes de secuencia
 (use-package highlight-escape-sequences
  :hook (prog-mode . hes-mode)
  :config
  (setq hes-mode-alist
        `((c-mode                . ,hes-c/c++/objc-escape-sequence-re)
          (c++-mode              . ,hes-c/c++/objc-escape-sequence-re)
          (objc-mode             . ,hes-c/c++/objc-escape-sequence-re)
          (go-mode               . ,hes-c/c++/objc-escape-sequence-re)
          (php-mode              . ,hes-c/c++/objc-escape-sequence-re)
          (php-ts-mode           . ,hes-c/c++/objc-escape-sequence-re)
          (java-mode             . ,hes-java-escape-sequence-re)
          (clojure-mode          . ,hes-java-escape-sequence-re)
          (js-mode               . ,hes-js-escape-sequence-re)
          (js2-mode              . ,hes-js-escape-sequence-re)
          (ruby-mode             . ,hes-ruby-escape-sequence-keywords)
          (lisp-mode             . ,hes-elisp-escape-sequence-re)
          (lisp-interaction-mode . ,hes-elisp-escape-sequence-re)
          (emacs-lisp-mode       . ,hes-elisp-escape-sequence-re))
        )
  )
 ;; Resalta todas las ocurrencias del contenido seleccionado
 (use-package region-occurrences-highlighter
  :diminish
  :bind (:map region-occurrences-highlighter-nav-mode-map
              ("M-n" . region-occurrences-highlighter-next)
              ("M-p" . region-occurrences-highlighter-prev))
  :hook (elpaca-after-init . global-region-occurrences-highlighter-mode))
 ;; Highlight indentions
 (use-package indent-bars
  :custom
  (indent-bars-color '(highlight :face-bg t :blend 0.225))
  (indent-bars-highlight-current-depth '(:face default :blend 0.225))
  (indent-bars-color-by-depth nil)
  (indent-bars-pattern ".")
  (indent-bars-treesit-support t)
  (indent-bars-no-descend-string t)
  (indent-bars-treesit-ignore-blank-lines-types '("module"))
  (indent-bars-prefer-character t)
  (indent-bars-treesit-scope '((python function_definition class_definition for_statement
 				                       if_statement with_statement while_statement)))
  ;; :hook ((prog-mode yaml-mode) . indent-bars-mode)
  :config (require 'indent-bars-ts))
 ;; Colorize color names in buffers
 (use-package colorful-mode
  :diminish
  :hook (after-init . global-colorful-mode)
  :init (setq colorful-use-prefix t)
  :config (dolist (mode '(html-mode php-mode help-mode helpful-mode))
            (add-to-list 'global-colorful-modes mode)))
 ;; Highlight brackets according to their depth
 (use-package rainbow-delimiters)
 ;; Resaltar palabras clave como TODO, FIXME, etc. en comentarios del código.
 (use-package hl-todo
  :autoload hl-todo-flymake hl-todo-search-and-highlight
  :functions rg rg-read-files rg-project
  :bind (:map hl-todo-mode-map
              ([C-f3] . hl-todo-occur))
  :hook (elpaca-after-init . global-hl-todo-mode)
  :init (setq hl-todo-require-punctuation t
              hl-todo-highlight-punctuation ":")
  :config
  (add-to-list 'hl-todo-keyword-faces '("BUG" . "#d99600"))
  ;; Integrate into flymake
  (with-eval-after-load 'flymake
    (add-hook 'flymake-diagnostic-functions #'hl-todo-flymake))
   ;; Integrate into magit
  (with-eval-after-load 'magit
    (add-hook 'magit-log-wash-summary-hook
              #'hl-todo-search-and-highlight t)
    (add-hook 'magit-revision-wash-message-hook
              #'hl-todo-search-and-highlight t))
  )
 (provide 'init-highlight)
 ;;; init-highlight.el ends here
--- a/configs/init-keys.el
+++ b/configs/init-keys.el
@ -0,0 +1,47 @@
 ;;; init-keys.el --- Archivo de configuración de atajos   -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Aquí se configuran los atajos de teclas generales.
 ;; Los atajos de teclas relacionados con paquetes en
 ;; específico estarán en el archivo donde se esté
 ;; configurando dicho paquete o dentro del paquete
 ;; mismo, para aquellos que vengan con atajos ya
 ;; configurados desde su instalación.
 ;;; Code:
 (global-set-key (kbd "C-x C-z") nil)                      ; Unbind C-x C-z (don't minimize)
 (global-set-key (kbd "C-z") 'undo)                        ; Unbind C-z y hacerlo funcionar para deshacer cambios
 (global-set-key (kbd "C-S-z") 'undo-redo)                 ; Rehacer cambios con C-S-z
 (global-set-key (kbd "C-S-c")
                'comment-or-uncomment-region-or-line)     ; Comentar/descomentar línea o selección
 (global-set-key (kbd "C-<f11>") 'toggle-frame-maximized)  ; Maximizar / restaurar
 (global-set-key (kbd "C-S-d") 'duplicate-current-line)    ; Duplicar línea
 (global-set-key (kbd "<mouse-3>") 'context-menu-open)     ; Abrir menú contextal al hacer clic derecho
 ;; Cambios rápidos de major modes
 (global-set-key (kbd "C-x m") nil)                        ; Unbind mail on C-x m
 (global-set-key (kbd "C-x mh") '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 mw") 'web-mode)
 ;; Saltar entre párrafos
 (define-key global-map "\M-[" 'backward-paragraph)
 (define-key global-map "\M-]" 'forward-paragraph)
 ;; Insertar nombre del archivo
 (global-set-key (kbd "C-c ff") 'insert-filename)
 (global-set-key (kbd "C-c fb") 'insert-basename)
 (global-set-key (kbd "C-c fcf") 'copy-filename)
 (global-set-key (kbd "C-c fcb") 'copy-basename)
 ;; Deactivar el abrir *messages* al cliquear en el minibuffer
 (define-key minibuffer-inactive-mode-map [mouse-1] #'ignore)
 (provide 'init-keys)
 ;;; init-keys.el ends here
--- 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
@ -0,0 +1,125 @@
 ;;; init-minibuffer.el --- Ayuditas y autocompletado del minibufer  -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Aquí se encuentran todos los paquetes que tienen como
 ;; objetivo mejorar el minibuffer de Emacs.
 ;;; Code:
 ;; Reemplazo para counsel
 (use-package consult
  :bind (("C-x p"   . project-find-file)
         ("C-S-s"   . consult-line)
         ("C-c r g" . consult-ripgrep)
         ("C-S-r"   . consult-ripgrep)
         ;; ("C-S-s"   . isearch-forward)
         ("M-m"     . consult-mode-command)
         ("C-c h"   . consult-history)
         ("C-c k"   . consult-kmacro)
         ([remap Info-search]        . consult-info)
         ([remap imenu]              . consult-imenu)
         ([remap recentf-open-files] . consult-recent-file)
         ("C-x M-." . consult-complex-command)     ;; orig. repeat-complex-command
         ("C-c p b" . consult-project-buffer)      ;; orig. project-switch-to-buffer
         ("C-c p p" . project-switch-project)
         ;; Consult search
         ("C-c p f" . consult-find)                  ;; Búsqueda de archivos en todo el projecto incluso en carpetas
         ("C-c p l" . consult-line-multi)            ;; Búsqueda en todos los buffers del projecto abiertos
         ;; Custom M-# bindings for fast register access
         ("C-'"   . consult-register-load)
         ("M-'"   . consult-register-store)        ;; orig. abbrev-prefix-mark (unrelated)
         ;; 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 i" . consult-imenu)
         ("M-g I" . consult-imenu-multi)
         ;; Minibuffer history
         :map minibuffer-local-map
         ("<escape>" . minibuffer-keyboard-quit) ;; Cacelar minibuffer con escape (más rápido que C-g)
         ("C-<return>" . newline) ;; Insertar nueva línea estando en el minibufer (Mas rápido que C-q C-j)
         ("C-S-s" . (lambda ()
                      "Insert the current symbol."
                      (interactive)
                      (insert (save-excursion
 		                        (set-buffer (window-buffer (minibuffer-selected-window)))
 		                        (or (thing-at-point 'symbol t) ""))))) ;; Al presionar por segunda ves C-s busca el símbolo actual.
         )
  ;; Enable automatic preview at point in the *Completions* buffer. This is
  ;; relevant when you use the default completion UI.
  :hook (completion-list-mode . consult-preview-at-point-mode)
  ;; The :init configuration is always executed (Not lazy)
  :init
  ;; Optionally configure the register formatting. This improves the register
  ;; preview for `consult-register', `consult-register-load',
  ;; `consult-register-store' and the Emacs built-ins.
  (setq register-preview-delay 0.5
        register-preview-function #'consult-register-format)
  ;; Optionally tweak the register preview window.
  ;; This adds thin lines, sorting and hides the mode line of the window.
  (advice-add #'register-preview :override #'consult-register-window)
  ;; Use Consult to select xref locations with preview
  (with-eval-after-load 'xref
    (setq xref-show-xrefs-function #'consult-xref
          xref-show-definitions-function #'consult-xref))
  :config
  ;; Optionally configure preview. The default value
  ;; is 'any, such that any key triggers the preview.
  ;; (setq consult-preview-key 'any)
  (setq consult-preview-key "M-.")
  ;; (setq consult-preview-key '("S-<down>" "S-<up>"))
  ;; For some commands and buffer sources it is useful to configure the
  ;; :preview-key on a per-command basis using the `consult-customize' macro.
  (consult-customize
   consult-goto-line
   consult-theme :preview-key '(:debounce 0.4 any))
  ;; Optionally configure the narrowing key.
  ;; Both < and C-+ work reasonably well.
  (setq consult-narrow-key "<") ;; "C-+"
  ;; Optionally make narrowing help available in the minibuffer.
  ;; You may want to use `embark-prefix-help-command' or which-key instead.
  (define-key consult-narrow-map (vconcat consult-narrow-key "?") #'consult-narrow-help))
 ;; Descripciones en el minibufer
 (use-package marginalia
  :hook (vertico-mode . marginalia-mode))
 ;; Todolist de todo el projecto desde consult.
 (use-package consult-todo
  :demand t
  :bind ("C-c t" . consult-todo))
 ;; UI para completado del minibuffer
 (use-package vertico
  :bind (:map vertico-map
              ("RET" . vertico-directory-enter)
              ("DEL" . vertico-directory-delete-char)
              ("TAB" . minibuffer-complete)
              ("M-DEL" . vertico-directory-delete-word))
  :hook ((elpaca-after-init . vertico-mode)
         (rfn-eshadow-update-overlay . vertico-directory-tidy))
  :config
  (setq read-file-name-completion-ignore-case t
        read-buffer-completion-ignore-case t
        completion-ignore-case t)
  )
 (provide 'init-minibuffer)
 ;;; init-minibuffer.el ends here
--- a/configs/init-org.el
+++ b/configs/init-org.el
@ -0,0 +1,288 @@
 ;;; init-config.el --- Configuración de org-mode   -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Aquí se encuentran todas las configuraciones relacionadas a org-mode.
 ;;
 ;; org-mode es un de los reclamos más potentes de Emacs. Aunque solo es
 ;; un formato de texto enrriquecido, básicamente algo similar a
 ;; markdown, Emacs es el que lo ha llevado muy bien y probalemente el que
 ;; mejor lo soporta.
 ;;
 ;; Cabe mencionar que este modo es también el predefinido para todo un
 ;; ecosistema dentro de Emacs, como es el caso de la agenda o la base de
 ;; conocimientos org-roam.
 ;;; Code:
 (defun kj/org-hook ()
  "Configuración para el hook de 'org-mode'."
  (display-line-numbers-mode 0)
  (visual-line-mode 1)
  (visual-fill-column-mode 1)
  ;; Configuracin para Systanx Highlight en porg-blocks
  (add-to-list 'org-src-lang-modes (cons "html" 'mhtml))
  (setq org-fontify-quote-and-verse-blocks t) ;; Permitir configuración de bloques quote y verse.
  (set-face-attribute 'org-table nil   :inherit '(shadow fixed-pitch))
  (set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch))
  (set-face-attribute 'org-special-keyword nil :inherit '(font-lock-comment-face fixed-pitch))
  (set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-face fixed-pitch))
  (set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch)
  ;; Tachar los elementos "DONE"
  (set-face-attribute 'org-done nil :strike-through t)
  (set-face-attribute 'org-headline-done nil
                      :strike-through t
                      :foreground "light gray")
  ;; Embellecer las prioridades
  (setq org-highest-priority ?A
        org-default-priority ?B
        org-lowest-priority  ?D) ;; Cambiar prioridades de A,B,C a A,B,C,D
  (push '("[#A]" . "⚡" ) prettify-symbols-alist)
  (push '("[#B]" . "🔥" ) prettify-symbols-alist)
  (push '("[#C]" . "🐢" ) prettify-symbols-alist)
  (push '("[#D]" . "☕" ) prettify-symbols-alist)
  ;; (push '("#+begin_quote" . "❝" ) prettify-symbols-alist)
  ;; (push '("#+end_quote" . "❞" ) prettify-symbols-alist)
  ;; (push '("#+begin_export" . "📤" ) prettify-symbols-alist)
  ;; (push '("#+end_export" . "⎯" ) prettify-symbols-alist)
  ;; (push '("#+begin_comment" . "📝" ) prettify-symbols-alist)
  ;; (push '("#+end_comment" . "⎯" ) prettify-symbols-alist)
  ;; (push '("#+begin_src" . "❯" ) prettify-symbols-alist)
  ;; (push '("#+end_src" . "⎯" ) prettify-symbols-alist)
  ;; (push '("#+begin_example" . "🦉" ) prettify-symbols-alist)
  ;; (push '("#+end_example" . "⎯" ) prettify-symbols-alist)
  (prettify-symbols-mode)
  ;; Habilitar evaluación de lenguajes en org-mode (babel)
  (org-babel-do-load-languages 'org-babel-load-languages
                               (append org-babel-load-languages
                                       '(
                                         (C . t)
                                         (R . t)
                                         (awk . t)
                                         (calc . t)
                                         (clojure . t)
                                         (go . t)
                                         (haskell . t)
                                         (java . t)
                                         (js . t)
                                         (php . t)
                                         (python . t)
                                         (rust . t)
                                         (translate . t)
                                         (shell . t)
                                         (sql . t)
                                         )))
  ;; No solicitar confirmación para evaluar
  (setq org-confirm-babel-evaluate nil)
  )
 ;; org-mode
 (use-package org
  :ensure nil
  :hook
  (org-mode . kj/org-hook)
  :config
  (setq org-ellipsis " ▾")
  (setq org-hide-emphasis-markers t)
  ;;(setq org-startup-folded 'content)
  (setq org-agenda-start-with-log-mode t)
  (setq org-log-done 'time)
  (setq org-log-into-drawer t)
  (setq org-cycle-separator-lines -1)
  ;; Indentación
  (setq org-startup-indented t)
  (setq org-src-preserve-indentation nil)
  (setq org-edit-src-content-indentation 0)
  (setq org-src-tab-acts-natively t)
  ;; Palabras claves del To Do de org-mode
  (setq org-todo-keywords
        ;;'((sequence "☐" "✔" "⌛" "❌")))
        '((sequence "TODO(t)" "DOING(n)" "WAITING(w)" "|" "DONE(d!)" "CANCELED(c!)")))
  (setq org-todo-keyword-faces
        '(("TODO" . "#ff6464")
          ("DOING" . "yellow")
          ("DONE" . "green")
          ("HOLD" . "orange")
          ("CANCELED" . "#aaa"))
        )
  ;; Tachar los checkbox marcados como terminados
  (defface org-checkbox-done-text
  '((t (:foreground "#71696A" :strike-through t)))
  "Face for the text part of a checked org-mode checkbox.")
  (font-lock-add-keywords
   'org-mode
   `(("^[ \t]*\\(?:[-+*]\\|[0-9]+[).]\\)[ \t]+\\(\\(?:\\[@\\(?:start:\\)?[0-9]+\\][ \t]*\\)?\\[\\(?:X\\|\\([0-9]+\\)/\\2\\)\\][^\n]*\n\\)"
      1 'org-checkbox-done-text prepend))
   'append)
  ;; Archivos a usarse en org-agenda
  (setq org-agenda-files
        '("~/Documentos/ORG/Agenda/Tareas.org")
        )
  ;; Archivos entre los que se moverán las tareas
  (setq org-refile-targets
        '(("Archivo.org" :maxlevel . 1)
          ("Tareas.org" :maxlevel . 1)))
  ;; Guardar los archivos cuando se muevan tareas entre ellos
  (advice-add 'org-refile :after 'org-save-all-org-buffers)
  ;; Configuración de imágenes
  (setq org-startup-with-inline-images t) ;; Mostrar por defecto las imágenes
  (setq org-display-remote-inline-images 'cache) ;; Mostrar imágenes remotas
  (setq org-image-actual-width 512)
  )
 ;; Org-yt para soportar embebidos.
 (use-package org-yt
  :after org
  :ensure (:host github :repo "TobiasZawada/org-yt")
  :config
  (defun org-http-image-data-fn (protocol link _description)
    "Interpret LINK as an URL to an image file."
    (when (and (image-type-from-file-name link)
               (not (eq org-display-remote-inline-images 'skip)))
      (if-let (buf (url-retrieve-synchronously (concat protocol ":" link)))
          (with-current-buffer buf
            (goto-char (point-min))
            (re-search-forward "\r?\n\r?\n" nil t)
            (buffer-substring-no-properties (point) (point-max)))
        (message "Download of image \"%s\" failed" link)
        nil)))
  (org-link-set-parameters "http"  :image-data-fun #'org-http-image-data-fn)
  (org-link-set-parameters "https" :image-data-fun #'org-http-image-data-fn)
  )
 ;; Los head "*" se ven como puntos
 (use-package org-bullets
  :hook
  (org-mode . org-bullets-mode)
  :config
  (setq org-bullets-bullet-list '("◉"
                                  "○"
                                  "●"
                                  "◈"
                                  "◇"
                                  "◆"
                                  "✸"
                                  "✳"))
  )
 ;; Mejora visualmente varias cosas de org
 (use-package org-modern
  :hook ((org-mode . org-modern-mode)
         (org-agenda . org-modern-mode))
  :config
  ;; Me gustan varias cosas por defecto, así que desactivo aquí varias de las "mejoras"
  (setq org-modern-table nil                ;; Mejora visual de las tablas
        org-modern-table-vertical 1         ;; Grosor de las líneas verticales de las tablas
        org-modern-table-horizontal 0.2     ;; Grosor de las líneas horizontales de las tablas
        org-modern-priority nil             ;; Mejora de las prioridades (Arriba ya las puse bonitas con prettyfy-symbols, así que mejor está desactivado)
        org-modern-todo nil                 ;; Mejora visual a las lista de tareas
        org-modern-progress nil             ;; Mejora visual a las estadísticas de completado de uan tarea (ej: [50%] o [5/9])
        org-modern-checkbox nil             ;; Mejora de los checkboxes (a mi parecer se ven más feos, los por defecto ya están bonitos).
        org-modern-keyword nil              ;; Oculta el "#+" en los keywords de org
        org-modern-block-name nil           ;; Mejora visual para los org blocks (bloques de código, ejemplo, citas, etc.)
        org-modern-star nil                 ;; Lista de bullets a usar en los headers (falla si se activa junto a org-bullets).
        org-modern-list nil)
  )
 (use-package visual-fill-column
  :after (org)
  :config
  ;; Tamaño de la columna
  (setq-default visual-fill-column-width 150)
  ;; Centrar el texto
  (setq-default visual-fill-column-center-text t
                visual-fill-column-adjust-for-text-scale nil
                visual-fill-column-enable-sensible-window-split t)
  )
 ;; Segundo cerebro: Base de conocimientos en formato Zettelkasten
 (use-package org-roam
  :bind ("<f3>" . org-roam-node-find)
  :init
  (setq org-roam-v2-ack t)
  (setq org-roam-completion-system 'ivy)
  :custom
  (org-roam-directory "~/Documentos/ORG/Notas")
  (org-roam-completion-everywhere t)
  :config
  (org-roam-setup))
 ;; Interface web para navegar en mi base de conocimientos.
 (use-package org-roam-ui
  :config
  (setq org-roam-ui-sync-theme t
        org-roam-ui-follow t
        org-roam-ui-update-on-save t
        org-roam-ui-open-on-start t))
 ;; Continúa el formato de la lista cuando presionas enter.
 (use-package org-autolist
  :hook (org-mode . org-autolist-mode))
 ;; Org babel para PHP
 (use-package ob-php)
 ;; Org babel para GO
 (use-package ob-go)
 ;; Org babel para Rust
 (use-package ob-rust)
 ;; Org babel para traducciones (mediante google translate)
 (use-package ob-translate)
 ;; Autocompletado para los headers de los bloques
 (use-package corg
  :ensure (:host github :repo "isamert/corg.el"))
 ;; Org mode en modo presentación
 (use-package org-present
  :after (org)
  :config
  (add-hook 'org-present-mode-hook
            (lambda ()
              (org-display-inline-images)
              (org-present-hide-cursor)
              (org-present-read-only)
              ))
  (add-hook 'org-present-mode-quit-hook
            (lambda ()
              ;; (org-remove-inline-images)
              (org-present-show-cursor)
              (org-present-read-write)))
  (add-hook 'org-present-after-navigate-functions
            (lambda ()
              ;; Show only top-level headlines
              (org-overview)
              ;; Unfold the current entry
              (org-show-entry)
              ;; Show only direct subheadings of the slide but don't expand them
              (org-show-children)
              ))
  )
 ;; Mostrar los caracteres ocultos de org mode al pasar con el cursor.
 (use-package org-appear
  ;; :hook (org-mode . org-appear-mode)
  )
 (provide 'init-org)
 ;;; init-org.el ends here
--- a/configs/init-package.el
+++ b/configs/init-package.el
@ -0,0 +1,78 @@
 ;;; init-package.el --- Initialize package configurations.	-*- lexical-binding: t -*-
 ;;; Commentary:
 ;;
 ;; Emacs Package management configurations.
 ;;
 ;;; Code:
 ;; Configuración de repositorios de paquetes
 (defvar elpaca-installer-version 0.11)
 (defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
 (defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
 (defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
 (defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
                              :ref nil :depth 1 :inherit ignore
                              :files (:defaults "elpaca-test.el" (:exclude "extensions"))
                              :build (:not elpaca--activate-package)))
 (let* ((repo  (expand-file-name "elpaca/" elpaca-repos-directory))
       (build (expand-file-name "elpaca/" elpaca-builds-directory))
       (order (cdr elpaca-order))
       (default-directory repo))
  (add-to-list 'load-path (if (file-exists-p build) build repo))
  (unless (file-exists-p repo)
    (make-directory repo t)
    (when (<= emacs-major-version 28) (require 'subr-x))
    (condition-case-unless-debug err
        (if-let* ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*"))
                  ((zerop (apply #'call-process `("git" nil ,buffer t "clone"
                                                  ,@(when-let* ((depth (plist-get order :depth)))
                                                      (list (format "--depth=%d" depth) "--no-single-branch"))
                                                  ,(plist-get order :repo) ,repo))))
                  ((zerop (call-process "git" nil buffer t "checkout"
                                        (or (plist-get order :ref) "--"))))
                  (emacs (concat invocation-directory invocation-name))
                  ((zerop (call-process emacs nil buffer nil "-Q" "-L" "." "--batch"
                                        "--eval" "(byte-recompile-directory \".\" 0 'force)")))
                  ((require 'elpaca))
                  ((elpaca-generate-autoloads "elpaca" repo)))
            (progn (message "%s" (buffer-string)) (kill-buffer buffer))
          (error "%s" (with-current-buffer buffer (buffer-string))))
      ((error) (warn "%s" err) (delete-directory repo 'recursive))))
  (unless (require 'elpaca-autoloads nil t)
    (require 'elpaca)
    (elpaca-generate-autoloads "elpaca" repo)
    (let ((load-source-file-function nil)) (load "./elpaca-autoloads"))))
 (add-hook 'after-init-hook #'elpaca-process-queues)
 (elpaca `(,@elpaca-order))
 ;; Install use-package support
 (elpaca elpaca-use-package
  ;; Enable use-package :ensure support for Elpaca.
  (elpaca-use-package-mode))
 ;; Should set before loading `use-package'
 (setq use-package-always-ensure t
      use-package-always-defer t
      use-package-expand-minimally t
      use-package-enable-imenu-support t)
 ;; Required by `use-package'
 (use-package diminish :ensure t)
 ;; Update GPG keyring for GNU ELPA
 (use-package gnu-elpa-keyring-update)
 ;; Update packages
 (unless (fboundp 'package-upgrade-all)
  (use-package auto-package-update
    :init
    (setq auto-package-update-delete-old-versions t
          auto-package-update-hide-results t)
    (defalias 'package-upgrade-all #'auto-package-update-now)))
 (provide 'init-package)
 ;;; init-package.el ends here
--- a/configs/init-prog.el
+++ b/configs/init-prog.el
@ -0,0 +1,190 @@
 ;; init-prog.el --- Initialize programming configurations.	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;
 ;; General programming configurations.
 ;;
 ;;; Code:
 ;; Mostrar la ayuda de eldoc/documentación en un childframe
 (use-package eldoc-box
  :defer t
  :bind ("<f1>" . eldoc-box-help-at-point))
 ;; Cambiar fácilmente entre naming conventions (camel, pascal, kebab, snake, etc.)
 (use-package string-inflection)
 ;; Code folding indicators using Tree-sitter
 (use-package treesit-fold-indicators
  :ensure treesit-fold
  :hook (after-init . global-treesit-fold-indicators-mode)
  :init (setq treesit-fold-indicators-priority -1))
 ;; Cross-referencing commands
 (use-package xref
  :autoload xref-show-definitions-completing-read
  :bind (("M-g ." . xref-find-definitions)
         ("M-g ," . xref-go-back))
  :init
  ;; Use faster search tool
  (when (executable-find "rg")
    (setq xref-search-program 'ripgrep))
  ;; Select from xref candidates in minibuffer
  (setq xref-show-definitions-function #'xref-show-definitions-completing-read
        xref-show-xrefs-function #'xref-show-definitions-completing-read))
 ;; Code styles
 ;; (use-package editorconfig
 ;;   :diminish
 ;;   :hook (elpaca-after-init . editorconfig-mode))
 ;; Correr el código desde el buffer de emacs
 (use-package quickrun
  :bind (("C-<f5>" . quickrun)
         ("C-S-<f5>"  . quickrun-region)))
 ;; Busqueda rápida con ripgrep
 (use-package rg
  :bind (:map rg-global-map
         ("c" . rg-dwim-current-dir)
         ("f" . rg-dwim-current-file)
         ("m" . rg-menu))
  :config
  (setq rg-group-result t
        rg-show-columns t)
  (cl-pushnew '("tmpl" . "*.tmpl") rg-custom-type-aliases))
 ;; Tree-sitter :)
 (use-package treesit
  :ensure nil
  :commands (treesit-install-language-grammar nf/treesit-install-all-languages)
  :config
  (setq treesit-language-source-alist
        '((bash       . ("https://github.com/tree-sitter/tree-sitter-bash"))
          (c          . ("https://github.com/tree-sitter/tree-sitter-c"))
          (cpp        . ("https://github.com/tree-sitter/tree-sitter-cpp"))
          (css        . ("https://github.com/tree-sitter/tree-sitter-css"))
          (go         . ("https://github.com/tree-sitter/tree-sitter-go"))
          (haskell    . ("https://github.com/tree-sitter/tree-sitter-haskell"))
          (html       . ("https://github.com/tree-sitter/tree-sitter-html"))
          (java       . ("https://github.com/tree-sitter/tree-sitter-java"))
          (javascript . ("https://github.com/tree-sitter/tree-sitter-javascript"))
          (jsdoc      . ("https://github.com/tree-sitter/tree-sitter-jsdoc"))
          (json       . ("https://github.com/tree-sitter/tree-sitter-json"))
          (julia      . ("https://github.com/tree-sitter/tree-sitter-julia"))
          (lua        . ("https://github.com/Azganoth/tree-sitter-lua"))
          (make       . ("https://github.com/alemuller/tree-sitter-make"))
          (python     . ("https://github.com/tree-sitter/tree-sitter-python"))
          (php        . ("https://github.com/tree-sitter/tree-sitter-php" "master" "php/src"))
          (phpdoc     . ("https://github.com/claytonrcarter/tree-sitter-phpdoc"))
          (ruby       . ("https://github.com/tree-sitter/tree-sitter-ruby"))
          (rust       . ("https://github.com/tree-sitter/tree-sitter-rust"))
          (sql        . ("https://github.com/m-novikov/tree-sitter-sql"))
          (toml       . ("https://github.com/tree-sitter/tree-sitter-toml"))
          (tsx        . ("https://github.com/tree-sitter/tree-sitter-typescript" "master" "tsx/src"))
          (typescript . ("https://github.com/tree-sitter/tree-sitter-typescript" "master" "typescript/src"))
          (zig        . ("https://github.com/GrayJack/tree-sitter-zig"))))
  (defun nf/treesit-install-all-languages ()
    "Install all languages specified by `treesit-language-source-alist'."
    (interactive)
    (let ((languages (mapcar 'car treesit-language-source-alist)))
      (dolist (lang languages)
 	    (treesit-install-language-grammar lang)
 	    (message "`%s' parser was installed." lang)
 	    (sit-for 0.75)))))
 ;; Browse devdocs.io documents using EWW
 (use-package devdocs
  :autoload (devdocs--installed-docs devdocs--available-docs)
  :commands (devdocs-install devdocs-lookup)
  :bind (:map prog-mode-map
              ("M-<f1>" . devdocs-dwim))
  :init
  (setq devdocs-data-dir (expand-file-name "devdocs" user-emacs-directory))
  (defun devdocs-dwim()
    "Look up a DevDocs documentation entry.
 Install the doc if it's not installed."
    (interactive)
    ;; Install the doc if it's not installed
    (lambda (slug)
      (unless (member slug (let ((default-directory devdocs-data-dir))
                             (seq-filter #'file-directory-p
                                         (when (file-directory-p devdocs-data-dir)
                                           (directory-files "." nil "^[^.]")))))
        (mapc
         (lambda (doc)
           (when (string= (alist-get 'slug doc) slug)
             (devdocs-install doc)))
         (devdocs--available-docs))))
    ;; Lookup the symbol at point
    (devdocs-lookup nil (thing-at-point 'symbol t))))
 ;; ---------------------------------------------------------------------------
 ;; Miscellaneous Programming Modes
 ;; ---------------------------------------------------------------------------
 (use-package cmake-mode)
 (use-package nginx-mode) ; Modo para leer archivos de configuración de nginx
 (use-package sql
  :ensure nil
  :hook (sql-interactive-mode . toggle-truncate-lines)
  :config
  (setq sql-mysql-login-params (append sql-mysql-login-params '(port))) ;; request port also
  (setq sql-user "root")        ;; user por defecto
  (setq sql-server "127.0.0.1") ;; host por defecto
  (setq sql-port 3306)          ;; puerto por defecto para mysql
  )
 ;; Major mode para archivos CSV
 (use-package csv-mode
  ;; :hook ((csv-mode . csv-align-mode)
  ;;        (csv-mode . csv-header-line))
  )
 ;; Modo markdown
 (use-package markdown-mode)
 ;; Modo para edición de arc docker compose
 (use-package docker-compose-mode)
 ;; Modo para la edición de archivos Dockerfile (y building desde emacs)
 (use-package dockerfile-mode
  :config
  ;; Suelo tener podman siempre en lugar de docker, así que lo definimos como el comando a usar
  (setq dockerfile-mode-command "podman"))
 ;; Configuración para project.el
 (use-package project
  :ensure nil
  :config
  ;; Colocamos un título del frame más bonito y útil que el por defecto
  (setq frame-title-format
        '(
          (:eval
           (let ((project-name (kj/project-name)))
             (unless (null project-name)
               (format "[%s] " project-name))))
          "%b"
          " - Emacs")
        )
  )
 (use-package prettier
  :diminish
  :defines prettier-pre-warm
  :hook ((js-base-mode css-mode sgml-mode web-mode) . prettier-mode)
  :init (setq prettier-pre-warm 'none))
 (use-package subword
  :ensure nil
  :init
  (global-subword-mode 1))
 (provide 'init-prog)
 ;;; init-prog.el ends here
--- a/configs/init-theme.el
+++ b/configs/init-theme.el
@ -0,0 +1,33 @@
 ;;; init-theme.el --- Carga del theme -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Desde aquí se puede cambiar la configuración de themes es posible
 ;; activar o desactivar los themes comentando o descomentando las
 ;; líneas que lo configuran.
 ;;; Code:
 ;; Theme dracula (https://draculatheme.com/) // aún lo tengo en l config porque a Ney le gusta
 (use-package dracula-theme)
 ;; El theme más cercano a adwaita dark que he encontrado
 (use-package adwaita-dark-theme)
 ;; Themes modus, vienen integrado en emacs en master (~v30)
 (use-package modus-themes)
 ;; Themes ef
 (use-package ef-themes
  :init
  (load-theme 'ef-dream t))
 ;; Los themes que recomiendo:
 ;; Oscuros: adwaita-dark y ef-dream
 ;; Claros: modus-operandi-tinted y ef-day
 (provide 'init-theme)
 ;;; init-theme.el ends here
--- a/configs/init-ui.el
+++ b/configs/init-ui.el
@ -0,0 +1,128 @@
 ;; init-ui.el --- Better lookings and appearances.	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;
 ;; Visual (UI) configurations for better lookings and appearances.
 ;;
 ;;; Code:
 ;; Optimization
 (setq idle-update-delay 1.0)
 (setq-default cursor-in-non-selected-windows nil)
 (setq highlight-nonselected-windows nil)
 (setq fast-but-imprecise-scrolling t)
 (setq redisplay-skip-fontification-on-input t)
 ;; Sidebar a la derecha con los archivos
 (use-package dired-sidebar
  :hook (dired-mode . hl-line-mode)
  :bind ([f9] . dired-sidebar-toggle-sidebar)
  :commands (dired-sidebar-toggle-sidebar)
  :config
  (setq dired-sidebar-theme 'nerd
        dired-sidebar-window-fixed nil
        ;; dired-sidebar-should-follow-file t
        ;; dired-sidebar-follow-file-idle-delay 0.5
        ))
 ;; Show line numbers
 (use-package display-line-numbers
  :ensure nil
  :hook ((prog-mode
          conf-mode toml-ts-mode
          yaml-mode yaml-ts-mode)
         . display-line-numbers-mode)
  :init (setq display-line-numbers-width-start t))
 ;; Suppress GUI features
 (setq use-file-dialog nil
      use-dialog-box nil
      inhibit-startup-screen t
      inhibit-startup-echo-area-message user-login-name
      inhibit-default-init t
      initial-scratch-message nil)
 (unless (daemonp)
  (advice-add #'display-startup-echo-area-message :override #'ignore))
 ;; Display dividers between windows
 (setq window-divider-default-places t
      window-divider-default-bottom-width 1
      window-divider-default-right-width 1)
 (add-hook 'window-setup-hook #'window-divider-mode)
 ;; Mouse & Smooth Scroll
 ;; Scroll one line at a time (less "jumpy" than defaults)
 (when (display-graphic-p)
  (setq mouse-wheel-scroll-amount '(1 ((shift) . hscroll))
        mouse-wheel-scroll-amount-horizontal 1
        mouse-wheel-progressive-speed nil))
 (setq scroll-step 1
      scroll-margin 0
      scroll-conservatively 100000
      auto-window-vscroll nil
      scroll-preserve-screen-position t)
 ;; Smooth scrolling
 (use-package ultra-scroll
  :hook (elpaca-after-init . ultra-scroll-mode))
 ;; Use fixed pitch where it's sensible
 (use-package mixed-pitch
  :diminish)
 ;; Display ugly ^L page breaks as tidy horizontal lines
 (use-package page-break-lines
  :diminish
  :hook (elpaca-after-init . global-page-break-lines-mode)
  :config (dolist (mode '(dashboard-mode emacs-news-mode))
            (add-to-list 'page-break-lines-modes mode)))
 ;; La línea bonita esa de abajo
 (use-package doom-modeline
  :init
  (doom-modeline-mode)
  (setq doom-modeline-project-detection 'auto
        doom-modeline-buffer-file-name-style 'relative-from-project
        doom-modeline-major-mode-color-icon t
        doom-modeline-buffer-modification-icon t
        doom-modeline-indent-info nil
        doom-modeline-persp-name t))
 (use-package hide-mode-line
  :autoload turn-off-hide-mode-line-mode
  :hook (((eat-mode
           eshell-mode shell-mode
           term-mode vterm-mode
           embark-collect-mode lsp-ui-imenu-mode
           pdf-annot-list-mode) . turn-on-hide-mode-line-mode)))
 ;; A minor-mode menu for mode-line
 (use-package minions
  :hook (elpaca-after-init . minions-mode))
 ;; Iconos bonitos para varias cosas
 (use-package nerd-icons)
 ;; nerd-icons en ibuffer
 (use-package nerd-icons-ibuffer
  :hook (ibuffer-mode . nerd-icons-ibuffer-mode))
 ;; Nerd icons para vertico
 (use-package nerd-icons-completion
  :hook (vertico-mode . nerd-icons-completion-mode))
 ;; Usar nerd-icons en dired
 (use-package nerd-icons-dired
  :after nerd-icons
  :hook (dired-mode . nerd-icons-dired-mode))
 (provide 'init-ui)
 ;;; init-ui.el ends here
--- a/configs/init-utils.el
+++ b/configs/init-utils.el
@ -0,0 +1,209 @@
 ;; init-utils.el --- Initialize ultilities.	-*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;;
 ;; Some usefule Utilities.
 ;;
 ;;; Code:
 ;; Mejora del reemplazo
 (use-package anzu
  :bind (([remap query-replace] . anzu-query-replace)
         ([remap query-replace-regexp] . anzu-query-replace-regexp)))
 ;; Intercamiar buffers de lugar
 (use-package buffer-move
  :bind (("M-S-<up>" . buf-move-up)
         ("M-S-<down>" . buf-move-down)
         ("M-S-<left>" . buf-move-left)
         ("M-S-<right>" . buf-move-right))
  )
 ;; Cuando inicias un atajo de teclas te muestra las posibilidades
 (use-package which-key
  :diminish
  :init (setq which-key-max-description-length 30
              which-key-lighter nil
              which-key-show-remaining-keys t)
  :hook ( elpaca-after-init . which-key-mode))
 ;; Process
 (use-package proced
  :ensure nil
  :init
  (setq-default proced-format 'verbose)
  (setq proced-auto-update-flag t
        proced-auto-update-interval 3
        proced-enable-color-flag t))
 ;; Paquete para exportar buffers de emacs a HTML
 (use-package htmlize)
 ;; eww
 (use-package eww
  :ensure nil
  :init
  ;; Install: npm install -g readability-cli
  (when (executable-find "readable")
    (setq eww-retrieve-command '("readable"))))
 ;; Restaurar el estado de los frames
 (use-package winner
  :ensure nil
  :bind (("s-u" . winner-undo)
         ("s-U" . winner-redo))
  :config
  (winner-mode))
 ;; Moverme entre frames
 (use-package windmove
  :ensure nil
  :bind (("s-K" . windmove-up)
         ("s-J" . windmove-down)
         ("s-H" . windmove-left)
         ("s-L" . windmove-right)
         ("s-O" . other-window)))
 ;; Terminal
 (use-package vterm
  :config
  (setq tramp-histfile-override nil)                  ;; Dejamos que se use el history por defecto del servidor remoto
  (setq vterm-tramp-shells '(("ssh" "/bin/bash")
                             ("sshx" "/bin/bash")
                             ("docker" "/bin/bash")
                             ("podman" "/bin/bash"))) ;; Tanto docker como podman usarán bash cuado se contecte mediante tramp
  )
 ;; Multiple vterm
 (use-package multi-vterm
  :bind (("<f5>" . multi-vterm-dedicated-toggle)
         ("C-x tt" . multi-vterm-dedicated-toggle)
         ("C-x tf" . multi-vterm)
         ("C-x tp" . multi-vterm-project)
         ;;("<tab>" . vterm-send-tab)
         ))
 ;; Mecanografía
 (use-package speed-type
  :hook
  (speed-type-mode . (lambda ()
                       (corfu-mode 0)
                       (display-line-numbers-mode 0)
                       (visual-line-mode 1)
                       (visual-fill-column-mode 1)))
  :diminish
  :config
  (setq speed-type-gb-book-list '(66867 66866 66591 57303 15725 24536)
        speed-type-min-chars 300
        speed-type-max-chars 600))
 ;; Mostrar lo que se está presionando en pantalla
 (use-package keypression
  :config
  (setq keypression-use-child-frame t
        keypression-fade-out-delay 1.0
        keypression-frame-justify 'keypression-left-justified
        keypression-cast-command-name t
        keypression-cast-command-name-format "%s  %s"
        keypression-combine-same-keystrokes t
        keypression-x-offset 50
        keypression-y-offset 100
        keypression-font-face-attribute '(:width normal :height 180 :weight bold))
  )
 ;; Un bonito y sencillo panel de inicio
 (use-package dashboard
  ;; :init
  ;; (dashboard-setup-startup-hook)
  :diminish dashboard-mode
  :custom-face
  (dashboard-heading ((t (:inherit (font-lock-string-face bold)))))
  (dashboard-items-face ((t (:weight normal))))
  (dashboard-no-items-face ((t (:weight normal))))
  :config
  (setq dashboard-set-file-icons t
        dashboard-set-heading-icons t
        dashboard-set-file-icons t
        dashboard-week-agenda nil
        dashboard-agenda-time-string-format "%Y-%m-%d %H:%M")
  (setq dashboard-startup-banner
        (expand-file-name "duck.svg" user-emacs-directory))
  (setq dashboard-items '(
                          ;; (recents . 10)
                          (agenda . 10)
                          ))
  )
 ;; Hydra - Permite crear conjuntos de atajos.
 (use-package hydra
  :defines posframe-border-width
  :functions childframe-workable-p
  :hook (emacs-lisp-mode . hydra-add-imenu)
  )
 ;; Pretty-Hydra - Su nombre ya indica lo que hace
 (use-package pretty-hydra
  :bind ("<f6>" . toggles-hydra/body)
  :hook (emacs-lisp-mode . (lambda ()
                             (add-to-list
                              'imenu-generic-expression
                              '("Hydras"
                                "^.*(\\(pretty-hydra-define\\) \\([a-zA-Z-]+\\)"
                                2))))
  :init
  (cl-defun pretty-hydra-title (title &optional icon-type icon-name
                                      &key face height v-adjust)
    "Add an icon in the hydra title."
    (let ((face (or face 'mode-line-emphasis))
          (height (or height 1.2))
          (v-adjust (or v-adjust 0.0)))
      (concat
       (when (and icon-type icon-name)
         (let ((f (intern (format "nerd-icons-%s" icon-type))))
           (when (fboundp f)
             (concat
              (apply f (list icon-name :face face :height height :v-adjust v-adjust))
              " "))))
       (propertize title 'face face))))
  ;; Global toggles
  (with-no-warnings
    (pretty-hydra-define toggles-hydra (:title (pretty-hydra-title "Toggles" 'faicon "nf-fa-toggle_on")
                                               :color pink :quit-key ("q" "C-g"))
      ("Basic"
       (("n" (cond ((fboundp 'display-line-numbers-mode)
                    (display-line-numbers-mode (if display-line-numbers-mode -1 1)))
                   ((fboundp 'gblobal-linum-mode)
                    (global-linum-mode (if global-linum-mode -1 1))))
         "line number"
         :toggle (or (bound-and-true-p display-line-numbers-mode)
                     (bound-and-true-p global-linum-mode)))
        ("a" global-aggressive-indent-mode "aggressive indent" :toggle t)
        ("d" global-hungry-delete-mode "hungry delete" :toggle t)
        ("e" electric-pair-mode "electric pair" :toggle t)
        ("s" prettify-symbols-mode "pretty symbol" :toggle t)
        ("h" display-time-mode "time" :toggle t)
        ("i" indent-bars-mode "indent bars" :toggle t))
       "Highlight"
       (("l" global-hl-line-mode "line" :toggle t)
        ("p" show-paren-mode "brackets pairs" :toggle t)
        ("b" global-blamer-mode "Git blamer" :toggle t)
        ("r" rainbow-delimiters-mode "rainbow brackets" :toggle t)
        ("w" global-display-fill-column-indicator-mode "fill column indicator" :toggle t)
        ("t" global-hl-todo-mode "todo" :toggle t))
       "Program"
       (("F" flymake-mode "flymake" :toggle t)
        ("f" flyspell-mode "spell check" :toggle t)
        ("u" subword-mode "subword" :toggle t)
        ("v" global-diff-hl-mode "gutter" :toggle t)
        ("V" diff-hl-flydiff-mode "live gutter" :toggle t)
        ("M" diff-hl-margin-mode "margin gutter" :toggle t)
        ("D" diff-hl-dired-mode "dired gutter" :toggle t))
       ))))
 (provide 'init-utils)
 ;;; init-utils.el ends here
--- a/configs/init-vc.el
+++ b/configs/init-vc.el
@ -0,0 +1,150 @@
 ;;; init-vc.el --- Configuración del control de versiones  -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Archivo de configuración específico para el control de versiones.
 ;;
 ;; Puedes que hoy en día la norma es usar git para este trabajo,
 ;; la gran mayoría de configuraciones son justamente para el mismo.
 ;;; Code:
 ;; Mostrar el commit de la línea actual
 (use-package blamer
  :ensure t
  :bind ("C-c i" . blamer-show-posframe-commit-info))
 ;; Resolver diferencias entre 2 archivos o versiones del mismo.
 (use-package ediff
  :ensure nil
  :config
  (setq ediff-diff-options "")
  (setq ediff-custom-diff-options "-u")
  (setq ediff-window-setup-function 'ediff-setup-windows-plain)
  (setq ediff-split-window-function 'split-window-vertically))
 ;; Marca a la izq. si una linea ha sido agregada, editada o eliminada desde el último commit.
 (use-package diff-hl
  :custom (diff-hl-draw-borders nil)
  :autoload diff-hl-flydiff-mode
  :custom-face
  (diff-hl-change ((t (:inherit custom-changed :foreground unspecified :background unspecified))))
  (diff-hl-insert ((t (:inherit diff-added :background unspecified))))
  (diff-hl-delete ((t (:inherit diff-removed :background unspecified))))
  :bind (:map diff-hl-command-map
              ("SPC" . diff-hl-mark-hunk))
  :hook ((elpaca-after-init . global-diff-hl-mode)
         (elpaca-after-init . global-diff-hl-show-hunk-mouse-mode)
         (dired-mode . diff-hl-dired-mode))
  :config
  ;; Highlight on-the-fly
  (diff-hl-flydiff-mode 1)
  ;; Set fringe style
  (setq-default fringes-outside-margins t)
  (with-no-warnings
    (unless (display-graphic-p)
      ;; Fall back to the display margin since the fringe is unavailable in tty
      (diff-hl-margin-mode 1)
      ;; Avoid restoring `diff-hl-margin-mode'
      (with-eval-after-load 'desktop
        (add-to-list 'desktop-minor-mode-table
                     '(diff-hl-margin-mode nil))))
    ;; Integration with magit
    (with-eval-after-load 'magit
      (add-hook 'magit-pre-refresh-hook #'diff-hl-magit-pre-refresh)
      (add-hook 'magit-post-refresh-hook #'diff-hl-magit-post-refresh))))
 ;; Visitar rápidamente viejas versiones de un archivo rápidamente
 (use-package git-timemachine
  :custom-face
  (git-timemachine-minibuffer-author-face ((t (:inherit success :foreground unspecified))))
  (git-timemachine-minibuffer-detail-face ((t (:inherit warning :foreground unspecified))))
  :bind (:map vc-prefix-map
         ("t" . git-timemachine))
  :hook ((git-timemachine-mode . (lambda ()
                                   "Improve `git-timemachine' buffers."
                                   ;; Display different colors in mode-line
                                   (if (facep 'mode-line-active)
                                       (face-remap-add-relative 'mode-line-active 'custom-state)
                                     (face-remap-add-relative 'mode-line 'custom-state))
                                   ;; Highlight symbols in elisp
                                   (and (derived-mode-p 'emacs-lisp-mode)
                                        (fboundp 'highlight-defined-mode)
                                        (highlight-defined-mode t))
                                   ;; Display line numbers
                                   (and (derived-mode-p 'prog-mode 'yaml-mode)
                                        (fboundp 'display-line-numbers-mode)
                                        (display-line-numbers-mode t))))
         (before-revert . (lambda ()
                            (when (bound-and-true-p git-timemachine-mode)
                              (user-error "Cannot revert the timemachine buffer"))))))
 ;; Generador automatizado de archivos de licencia
 (use-package license-templates)
 ;; Magia para git
 (use-package magit
  :config
  (setq magit-diff-refine-hunk 'all))
 ;; Todolist en magit de todos los archivos del projecto.
 (use-package magit-todos
  :after magit-status
  :commands magit-todos-mode
  :init
  (setq magit-todos-nice (if (executable-find "nice") t nil))
  (magit-todos-mode 1))
 ;; Modo para resolución de confictos
 (use-package smerge-mode
  :ensure nil
  :config
  (defhydra hydra-smerge (:color pink
                                 :hint nil)
    "
 ^Move^       ^Keep^               ^Diff^                 ^Other^
 ^^-----------^^-------------------^^---------------------^^-------
 _n_ext       _b_ase               _<_: upper/base        _C_ombine
 _p_rev       _u_pper              _=_: upper/lower       _r_esolve
 ^^           _l_ower              _>_: base/lower        _k_ill current
 ^^           _a_ll                _R_efine
 ^^           _RET_: current       _E_diff
 "
    ("n" smerge-next)
    ("p" smerge-prev)
    ("b" smerge-keep-base)
    ("u" smerge-keep-upper)
    ("l" smerge-keep-lower)
    ("a" smerge-keep-all)
    ("RET" smerge-keep-current)
    ("\C-m" smerge-keep-current)
    ("<" smerge-diff-base-upper)
    ("=" smerge-diff-upper-lower)
    (">" smerge-diff-base-lower)
    ("R" smerge-refine)
    ("E" smerge-ediff)
    ("C" smerge-combine-with-next)
    ("r" smerge-resolve)
    ("k" smerge-kill-current)
    ("q" nil "cancel" :color blue))
  )
 (use-package transient)
 ;; Mostrar el último commit que modificó la linea actual
 (use-package vc-msg
  :bind (("C-c C-v" . vc-msg-show))
  )
 (provide 'init-vc)
 ;;; init-vc.el ends here
--- a/configs/lang-go.el
+++ b/configs/lang-go.el
@ -5,11 +5,11 @@
 ;;; Commentary:
 ;; Archivo de configuración para el lenguaje GO
 ;;; Code:
-(use-package go-mode
+(use-package go-mode)
  :straight t
  :defer t)
 (provide 'lang-go)
 ;;; lang-go.el ends here
--- a/configs/lang-html.el
+++ b/configs/lang-html.el
@ -0,0 +1,31 @@
 ;;; lang-html.el --- Configuración para el lenguaje HTML -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Archivo de configuración para el lenguaje HTML
 ;;; Code:
 (use-package web-mode
  :config
  (setq web-mode-markup-indent-offset 2
        web-mode-css-indent-offset 2
        web-mode-code-indent-offset 2
        web-mode-enable-current-element-highlight t
        web-mode-enable-current-column-highlight t)
  )
 (use-package css-mode
  :ensure nil
  :config
  (setq css-indent-offset 2))
 (use-package auto-rename-tag
  :ensure (:host github :repo "jcs-elpa/auto-rename-tag"))
 (provide 'lang-html)
 ;;; lang-html.el ends here
--- a/configs/lang-js.el
+++ b/configs/lang-js.el
@ -5,21 +5,22 @@
 ;;; Commentary:
 ;; Archivo de configuración para el lenguaje Javascript
 ;;; Code:
 (use-package js
-  :defer t
+  :ensure nil
  :straight t
  :mode
  ("\\.js$" . js-mode)
  :init
  (add-to-list 'auto-mode-alist '("\\.tsx\\'" . tsx-ts-mode))
  (add-to-list 'auto-mode-alist '("\\.ts\\'"  . typescript-ts-mode))
  :config
  (setq js-indent-level 2))
 ;; json-mode
 (use-package json-mode
  :defer t
  :straight t
  :ensure t
  :mode
  ("\\.json$" . json-mode)
  :config
--- a/configs/lang-php.el
+++ b/configs/lang-php.el
@ -5,21 +5,46 @@
 ;;; Commentary:
 ;; Archivo de configuración para el lenguaje PHP
 ;;; Code:
-(use-package php-mode
+(use-package php-ts-mode
-  :defer t
+  :mode "\\.php\\'"
-  :straight t
+  :ensure nil)
-  :hook ((php-mode .  (lambda ()
+
-                       (local-set-key (kbd "C-c d b") 'php-doc-block) ;; atajo para docblock
+(use-package php-mode)
                       (company-mode t) ; habilita company mode
                       ))
         ;;(php-mode . lsp)
         )
  )
 (use-package php-doc-block
-  :straight (php-doc-block :type git :host github :repo "moskalyovd/emacs-php-doc-block")
+  :after php-ts-mode
  :bind ("C-c d b" . php-doc-block)
  :ensure (:host github :repo "moskalyovd/emacs-php-doc-block")
  )
 ;; Consola REPL para php. Similar a "php -a" pero con extras
 (use-package psysh)
 ;; Composer
 (use-package composer)
 ;; PHPUnit
 (use-package phpunit)
 (use-package php-cs-fixer
  :custom
  (php-cs-fixer-rules-level-part-options (list (json-encode '(("@PSR12" . t)
                                                              ("ordered_imports" . (("sort_algorithm" . "alpha")))
                                                              ("concat_space" . (("spacing" . "one")))
                                                              ("whitespace_after_comma_in_array" . t)
                                                              ("align_multiline_comment" . t)
                                                              ("no_unused_imports" . t)
                                                              ("phpdoc_align" . t)
                                                              ("phpdoc_indent" . t)
                                                              ("no_useless_return" . t)
                                                              ("return_assignment" . t)
                                                              ("trailing_comma_in_multiline" . t)))))
  (php-cs-fixer-rules-fixer-part-options '())
  ;; :hook (before-save . php-cs-fixer-before-save)
  )
 (provide 'lang-php)
--- a/configs/lang-rust.el
+++ b/configs/lang-rust.el
@ -1,28 +1,19 @@
-;;; lang-rust.el --- Configuración para el lenguaje PHP  -*- lexical-binding: t -*-
+;;; lang-rust.el --- Configuración para el lenguaje Rust -*- lexical-binding: t -*-
 ;; Author: kj <webmaster@outcontrol.net>
 ;; URL: https://git.kj2.me/kj/confi-emacs-actual
 ;;; Commentary:
 ;; Archivo de configuración para el lenguaje Rust
 ;;; Code:
 (use-package rust-mode
-  :defer t
+  :init
-  :straight t
+  (setq rust-mode-treesitter-derive t)
  :ensure t
  :config
  (setq rust-format-on-save t))
 (use-package rustic
  :defer t
  :straight t
  :ensure t
  :config
  ;;(setq rustic-lsp-server 'rls)
  ;;(setq rustic-lsp-client 'lsp)
  ;;(setq rustic-lsp-client nil)
  (push 'rustic-clippy flycheck-checkers))
 (provide 'lang-rust)
 ;;; lang-rust.el ends here
--- a/duck-small.png
+++ b/duck-small.png
--- a/duck.svg
+++ b/duck.svg
--- a/early-init.el
+++ b/early-init.el
@ -20,24 +20,57 @@
 ;;
 ;;; 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 ()
+;; Prevent unwanted runtime compilation for gccemacs (native-comp) users;
-  (let ((expected-value (get 'gc-cons-percentage 'value-during-init))
+;; packages are compiled ahead-of-time when they are installed and site files
-        (value-to-restore (get 'gc-cons-percentage 'original-value-before-init)))
+;; are compiled when gccemacs is installed.
-    (when (and value-to-restore (equal gc-cons-percentage expected-value))
+(setq native-comp-deferred-compilation nil ;; obsolete since 29.1
-      (message "Setting `gc-cons-percentage' back to starting value %s" value-to-restore)
+      native-comp-jit-compilation nil)
-      (setq gc-cons-percentage value-to-restore))))
+
-(add-hook 'after-init-hook #'restore-gc-cons-percentage-after-init)
+;; 'use-package' is builtin since 29.
-(setq gc-cons-percentage (get 'gc-cons-percentage 'value-during-init))
+;; 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)
 ;; (push '(ns-transparent-titlebar . t) default-frame-alist)
 ;; Resizing the Emacs frame can be a terribly expensive part of changing the
 ;; font. By inhibiting this, we easily halve startup times with fonts that are
 ;; larger than the system default.
 (setq frame-inhibit-implied-resize t
      frame-resize-pixelwise t)
 ;; Recommended by
 ;; https://github.com/raxod502/straight.el#getting-started to prevent
-;; pacakge.el stepping on straight's toes.
+;; pacakge.el stepping on elpaca toes.
 (setq package-enable-at-startup nil)
 ;; Cache eln (native-comp)
 (setq native-compile-target-directory (expand-file-name "private/cache/eln" user-emacs-directory))
 ;;; early-init.el ends here
--- a/emacs-client-runner.sh
+++ b/emacs-client-runner.sh
@ -1,21 +0,0 @@
 #!/bin/bash
 # start emacs server if not is running
 systemctl --user status emacs > /dev/null 2>&1 || systemctl --user start emacs > /dev/null 2>&1
 # if args is -nw or -t run on terminal
 if [ "$1" == "-t" ] || [ "$1" == "-nw" ]; then
    emacsclient -t
    exit
 fi
 # if no args open new frame
 if [ $# -eq 0 ]; then
    emacsclient -c -n
    emacsclient --eval "(progn (select-frame-set-input-focus (selected-frame)))"
    exit
 fi
 emacsclient -e "(frames-on-display-list \"$DISPLAY\")" &>/dev/null
 emacsclient -c -n "$*"
--- a/init.el
+++ b/init.el
@ -9,51 +9,58 @@
 ;;; Code:
-;; Mejorar el tiempo de carga
+;; Optimize Garbage Collection for Startup
 (setq gc-cons-threshold most-positive-fixnum)
 ;; Optimize `auto-mode-alist`
 (setq auto-mode-case-fold nil)
-(unless (or (daemonp) noninteractive)
+(unless (or (daemonp) noninteractive init-file-debug)
-  (let ((old-file-name-handler-alist file-name-handler-alist))
+  ;; Temporarily suppress file-handler processing to speed up startup
-    ;; If `file-name-handler-alist' is nil, no 256 colors in TUI
+  (let ((default-handlers file-name-handler-alist))
-    ;; @see https://emacs-china.org/t/spacemacs-centaur-emacs/3802/839
+    (setq file-name-handler-alist nil)
-    (setq file-name-handler-alist
+    ;; Recover handlers after startup
          (unless (display-graphic-p)
            '(("\\(?:\\.tzst\\|\\.zst\\|\\.dz\\|\\.txz\\|\\.xz\\|\\.lzma\\|\\.lz\\|\\.g?z\\|\\.\\(?:tgz\\|svgz\\|sifz\\)\\|\\.tbz2?\\|\\.bz2\\|\\.Z\\)\\(?:~\\|\\.~[-[:alnum:]:#@^._]+\\(?:~[[:digit:]]+\\)?~\\)?\\'" . jka-compr-handler))))
    (add-hook 'emacs-startup-hook
              (lambda ()
                "Recover file name handlers."
                (setq file-name-handler-alist
-                      (delete-dups (append file-name-handler-alist
+                      (delete-dups (append file-name-handler-alist default-handlers))))
-                                           old-file-name-handler-alist)))))))
+              101)))
-(setq gc-cons-threshold most-positive-fixnum
+;; Función para añadir 'config' a la ruta de carga código elisp de emacs
-      gc-cons-percentage 0.5)
+(defun update-load-path (&rest _)
-(add-hook 'emacs-startup-hook
+  "Update the `load-path` to prioritize personal configurations."
-          (lambda ()
+    (push (expand-file-name "configs" user-emacs-directory) load-path))
            "Recover GC values after startup."
            (setq gc-cons-threshold 800000
                  gc-cons-percentage 0.1)))
-;; Cargar configuraciones
+;; Nos aseguramos de que ejecute 'update-load-path' antes de 'package-initialize'
 (advice-add #'package-initialize :after #'update-load-path)
-(add-to-list 'load-path (concat user-emacs-directory "configs"))
+;; Ahora lo corremos implícitamente
 (update-load-path)
 ;; Paquetes base
-(require 'base)
+(require 'init-package)
-(require 'base-extensions)
+(require 'init-base)
-(require 'base-functions)
+(require 'init-utils)
-(require 'base-org)
+(require 'init-ui)
-(require 'base-lsp)
+(require 'init-editor)
-(require 'base-company)
+(require 'init-prog)
-(require 'base-ctags)
+(require 'init-highlight)
-(require 'base-ivy)
+(require 'init-theme)
-(require 'base-keys)
+(require 'init-ai)
 (require 'init-vc)
 (require 'init-org)
 (require 'init-lsp)
 (require 'init-completion)
 (require 'init-minibuffer)
 ;; (require 'init-evil)
 (require 'init-keys)
 ;; Lenguajes
 (require 'lang-php)
 (require 'lang-js)
 (require 'lang-go)
 (require 'lang-rust)
 (require 'lang-html)
 (provide 'init)
 ;;; init.el ends here
--- a/readme.md
+++ b/readme.md
@ -1,69 +0,0 @@
 # Configuración de Emacs actual
 Esta configuración para emacs se podría decir que es la heredera de mi [configuración de emacs inicial](https://git.kj2.me/kj/confi-emacs-inicial), la cual ya llevaba tiempo necesitando una manita de gato para arreglar y mejorar algunas cosas que me resultan cómodas para el uso, ademas de comenzar a utilizar `evil-mode`. Esta configuración bien podría haber sido una rama de la inicial, pero he decidido hacer uno nuevo y si es neceario hacer aquí las ramas.
 ## Instalación
 Si deseas clonar mi configuración, puedes clonar este repositorio:
 `git clone --depth 1 https://git.kj2.me/kj/confi-emacs-actual.git ~/.emacs.d`
 Instalación de fonts y libvterm:
 `sudo apt install fonts-firacode fonts-cantarell libvterm cmake`
 Al igual que la versión anterior, puede ser necesario ejecutar el siguiente comando en el minibuffer para tener bien los íconos de neotree:
 `all-the-icons-install-fonts`
 Y eso sería todo.
 ## Dependencias espefícicas
 Algunos lenguajes, ya sea para hacer uso de flycheck, lsp o autocompletado, pueden requerir que instales algunas cosas en específico.
 - *Javascript*: Necesita de al menos [deno](https://deno.land/) para LSP y [node](https://nodejs.org/es/) para flycheck, aunque creo que con deno puede bastar para ambos.
 - *PHP*: Requiere instalar php-cli (`apt install php-cli`) para flycheck.
 - *GO*: Necesita etener instalado [go](https://go.dev/) para linter (gofmt) y [gopls](https://github.com/golang/tools/tree/master/gopls) para LSP.
 - *Rust*: Necesita clippy para flycheck y LSP. Pare este útimo igual es posible usar [rust-analyzer](https://rust-analyzer.github.io).
 ## Usar el modo daemon
 El modo daemon permite a emacs cargar mucho más rápido, puesto que con ello evitas volver a cargar la configuración cada vez que abres un nuevo archivo. Si quieres aprender mas sobre esto, puedes revisarlo en la [documentación de emacs](https://www.emacswiki.org/emacs/EmacsAsDaemon).
 Para iniciar el daemon, puedes hacerlo desde la terminal ejecutando:
 `sudo systemctl --user start emacs`
 Del mismo modo, igual es recomendable habilitar el autoinicio de este servicio junto con el sistema:
 `sudo systemctl --user enable emacs`
 Finalmente, para abrirlo, es necesaria la usar `emacsclient` en lugar de `emacs`, para hacer que eso suceda en todo el sistema se puede realizar el siguiente hack copiando el archivo `emacs-client-runner.sh` a `/usr/local/bin/` con el nombre `emacs` de la siguiente manera:
 `sudo cp ~/.emacs.d/emacs-client-runner.sh /usr/local/bin/emacs`
 **🔴 Advertencia:** Esto reemplazará emacs por emacsclient, si deseas usar emacs podrás hacerlo mediante: `/bin/emacs`
 **Extra:** Con este hack, para abrir emacs en modo terminal puedes ejecutar: `emacsclient -t`, `emacs -t` o `emacs -nw`.
 ## Consideraciones
 - Toda la configuración la he realizado en los archivos que están en los archivos de la carpeta config, el archivo `init.el` solo los llama y no guarda nada más aparte de eso.
 - Se puede activar/desactivar `cua-mode` (`configs/base.el`, línea 49) activado para poder copiar, cortar, pegar y deshacer cambios con las combinaciones típicas en lugar de las de emacs.
 - Con F9 puedes abrir y cerrar neotree.
 - Con C-F11 puedes maximizar/restaurar.
 - Con C-F6 se generan/regenera el archivo TAGs.
 - Con C-F5 se abre una terminal en la carpeta del archivo actual.
 - Con M-c se puede comentar / descomentar un región.
 - Por defecto he configurado que al presionar TAB se usen 2 espacios en su lugar.
 - Cuando usas `C-s` (buscar), busca el texto actualmente seleccionado.
 Recuerda que si alguna cosa no te gusta, puedes cambiarla a gusto. Esta configuración fue hecha para mi uso personal y puede que tenga cosas que solo a mi me parecen cómodas/útiles.
 ## Contacto
 Si se tiene alguna pregunta o quieres comentarme alguna corrección, puesto que este git no está abierto a registro, puedes contactarme mediante:
 E-mail: webmaster@outcontol.net
 Telegram: [https://t.me/keyjay](https://t.me/keyjay)
--- a/readme.org
+++ b/readme.org
@ -0,0 +1,62 @@
 #+TITLE: Configuración Emacs
 #+AUTHOR: KJ
 #+OPTIONS: toc:nil
 Esta es mi configuración de Emacs personal y está hecha principalmente para funcionar con *Emacs compilado desde el código*, ya que es así como yo lo uso.
 * Instalación
 Si deseas clonar mi configuración, puedes clonar este repositorio:
 #+begin_src bash
 git clone --depth 1 https://git.kj2.me/kj/confi-emacs-actual.git ~/.emacs.d
 #+end_src
 Si no ves los íconos bien dentro de Emacs, puedes ejecutar el comando dentro de Emacs (M-x)
 #+begin_src elisp
 nerd-icons-install-fonts
 #+end_src
 * Compilación de Emacs
 Si quieres instalar Emacs tal cual lo tengo yo, esta es la configuración de compilación que actualmente uso:
 #+begin_src bash
 git clone https://git.savannah.gnu.org/git/emacs.git
 cd emacs
 ./autogen.sh
 ./configure  --prefix=/usr --sysconfdir=/etc --libexecdir=/usr/lib --localstatedir=/var    --mandir=/usr/share/man --with-gameuser=:games --with-modules --without-libotf --without-m17n-flt --without-gconf --with-native-compilation=yes --with-native-compilation=aot --with-xinput2 --with-pgtk --with-tree-sitter --without-compress-install --with-mailutils
 make -j16
 make check
 sudo make install
 #+end_src
 Las dependencias para compilar pueden cambiar según tu distribución, por lo que queda en tus manos el ajustar lo que sea necesario.
 Como ayuda lo más que puedo dar es que en las distros basadas en Debian puedes usar =apt build-dep emacs= mientras que en las basadas en RHEL (solo lo he probado en Fedora) puedes usar =dnf builddep emacs=. En el caso de las basadas Arch puedes usar AUR.
 * Dependencias
 Normalmente no es usual el tener dependencias reales para que emacs funcione, pero para el funcionamiendo adecuado y sin errores, lo mejor es tener instalado:
 - cmake
 - libvterm
 ** Languaje Server Protocol (LSP)
 Esta configuración por defecto utiliza [[https://github.com/joaotavora/eglot][eglot]] para LSP con los servidores por defecto. Puedes revisar su documentación para ver lo que necesitas instalar para usar el LSP del lenguaje que necesites.
 Finalmente, recomiendo instalar [[https://github.com/blahgeek/emacs-lsp-booster][emacs-lsp-booster]], la mejora es nimia en general, pero en proyectos grandes esa pequeña mejora es bastante notoria.
 * Atajos de teclas personalizados
 Tengo varios atajos reconfigurados, por lo que recomiento revisar primero que nada el archivo [[./configs/init-keys.el][init-keys.el]] el resto de configuraciones está principalmente en los archivos [[./configs/init-minibuffer.el][init-minibuffer.el]] e [[file:configs/init-editor.el][init-editor.el]], dudo que las uses todas y yo mismo no las uso, por lo que con el tiempo las voy eliminando y a veces agrego alguna extra. Con que revises el primer archivo y sepas que =consult-project= está en =C-x p= ya estás servido.
 * Contacto
 Si se tiene alguna pregunta o quieres comentarme alguna corrección, puesto que este git no está abierto a registro, puedes contactarme mediante:
 *Correo*: webmaster@outcontrol.net
 *Telegram*: [[https://t.me/keyjay][@keyjay]]