Add macher package

Integrates `gptel-magit` to provide AI assistance directly within
Magit. Disables `gptel-include-reasoning` as a temporary workaround
for an upstream issue (ragnard/gptel-magit#8).

.gitignore

@@ -36,3 +36,4 @@ workspace/
 /intelephense/
 /auto-save-list/
 /*.eld
+/.custom.el

configs/init-ai.el

@@ -5,7 +5,7 @@
 
 ;;; Commentary:
 
-;; Esta configuración para Inteligencia artifical en emacs, principalmente para el uso de chats.
+;; Configuración para Inteligencia artifical en Emacs.
 
 ;;; Code:
 
@@ -24,22 +24,17 @@
   ;;                                 "llava:latest"))
         gptel-default-mode 'org-mode
         gptel-prompt-prefix-alist
-        '((markdown-mode . "# ")
-          (org-mode . "* ")
-          (text-mode . "# "))
+        '((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 . "Eres un LLM que vive dentro de Emacs. Responde de manera concisa.")
-          (programming . "Eres un LLM y un programador profesional cuidadoso. Provee el código y solo el código como output sin ningún texto adicional, prompt o nota.")
-          (programming_tutor . "Eres un LLM y un programador profesional cuidadoso. Revisa el siguiente código y realiza sugerencias concisas en español para mejorarlo.")
-          (programming_explainer . "Eres un LLM y un programador profesional cuidadoso. Revisa el siguiente código y explica en español de manera concisa, su funcionamiento.")
-          (programming_describer . "Eres un LLM y un programador profesional cuidadoso. Revisa el siguiente código y explica en español su funcionamiento línea a línea.")
-          (writing . "Eres un LLM y un asistente de escritura. Responde de manera concisa.")
-          (grammarly . "You are a large language model and professional philologist. Improve grammar and spelling.")
-          (chat . "Eres un LLM y un compañero de conversación. Responde de manera concisa.")
-          (traductor . "Eres un traductor profesional. Traduce a español tomando en cuenta los posibles tecnicismos y nombres que no deberían traducirse.")
-          )
+        '((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)
@@ -48,5 +43,14 @@
          ("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

configs/init-base.el

@@ -20,6 +20,9 @@
     (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

configs/init-editor.el

@@ -148,7 +148,19 @@
           (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

configs/init-functions.el

@@ -102,7 +102,7 @@ If PROJECT is not specified, assume current project root."
       (rename-buffer new-name))))
 
 ;; Copiar el nombre del archivo actual
-(defun copy-file-name ()
+(defun copy-filename ()
   "Copy the current buffer file name to the clipboard."
   (interactive)
   (let ((filename (if (equal major-mode 'dired-mode)
@@ -114,6 +114,18 @@ If PROJECT is not specified, assume current project root."
           (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."
@@ -127,12 +139,12 @@ If PROJECT is not specified, assume current project root."
   "Check if font with FONT-NAME is available."
   (find-font (font-spec :name font-name)))
 
-(defun insert-full-filename ()
+(defun insert-filename ()
   "Insert the full path file name into the current buffer."
   (interactive)
   (insert (buffer-file-name)))
 
-(defun insert-filename-only ()
+(defun insert-basename ()
   "Insert the filename (without path) into the current buffer."
   (interactive)
   (insert (file-name-nondirectory (buffer-file-name))))

configs/init-keys.el

@@ -35,8 +35,10 @@
 (define-key global-map "\M-]" 'forward-paragraph)
 
 ;; Insertar nombre del archivo
-(global-set-key (kbd "C-c ff") 'insert-full-filename)
-(global-set-key (kbd "C-c fo") 'insert-filename-only)
+(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)

configs/init-lsp.el

@@ -85,17 +85,25 @@
 ;; Revisar por errores en el código
 (use-package flymake
   :ensure nil
-  :hook (prog-mode . (lambda ()
-                       (unless (derived-mode-p 'makefile-mode)
-                         (flymake-mode))))
+  ;; :hook (prog-mode . (lambda ()
+  ;;                      (unless (derived-mode-p 'makefile-mode)
+  ;;                        (flymake-mode))))
   :init
   (remove-hook 'flymake-diagnostic-functions 'flymake-proc-legacy-flymake)
   )
 
-;; Mostar los errores de flymake en un popup-tip
-(use-package flymake-diagnostic-at-point
-  :after flymake
-  :hook (flymake-mode . flymake-diagnostic-at-point-mode))
+(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

configs/init-prog.el

@@ -181,5 +181,10 @@ Install the doc if it's not installed."
   :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

configs/lang-php.el

@@ -30,5 +30,22 @@
 ;; PHPUnit
 (use-package phpunit)
 
+(use-package php-cs-fixer
+  :custom
+  (php-cs-fixer-rules-level-part-options (list (json-encode '(("@PSR12" . t)
+                                                              ("ordered_imports" . (("sort_algorithm" . "alpha")))
+                                                              ("concat_space" . (("spacing" . "one")))
+                                                              ("whitespace_after_comma_in_array" . t)
+                                                              ("align_multiline_comment" . t)
+                                                              ("no_unused_imports" . t)
+                                                              ("phpdoc_align" . t)
+                                                              ("phpdoc_indent" . t)
+                                                              ("no_useless_return" . t)
+                                                              ("return_assignment" . t)
+                                                              ("trailing_comma_in_multiline" . t)))))
+  (php-cs-fixer-rules-fixer-part-options '())
+  ;; :hook (before-save . php-cs-fixer-before-save)
+  )
+
 (provide 'lang-php)
 ;;; lang-php.el ends here