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).

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 . "# ")
+        '((markdown-mode . "# User\n\n")
-          (org-mode . "* ")
+          (org-mode . "* User\n\n")
-          (text-mode . "# "))
+          (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.")
+        '((default . "You are a large language model living in Emacs and a helpful assistant. Respond concisely in Spanish."))
-          (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.")
-          )
         )
-  )
+  (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-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-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,7 +30,22 @@
 ;; PHPUnit
 (use-package phpunit)
 
-(use-package php-cs-fixer)
+(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