Move functions to the functions file.

configs/init-functions.el

@@ -66,5 +66,20 @@ Saves to a temp file and puts the filename in the kill ring."
       (delete-window (git-gutter:popup-buffer-window))
     (git-gutter:popup-hunk)))
 
+;; Obtener el nombre del proyecto desde project.el
+(defun kj/project-name (&optional project)
+  "Return the name for PROJECT.
+If PROJECT is not specified, assume current project root."
+  (when-let (root (or project (kj/project-root)))
+    (file-name-nondirectory
+     (directory-file-name
+      (file-name-directory root)))))
+
+;; Obtener la raíz del proyecto desde project.el
+(defun kj/project-root ()
+  "Return the current project root."
+  (when-let (project (project-current))
+    (project-root project)))
+
 (provide 'init-functions)
 ;;; init-functions.el ends here.

configs/init-packages.el

@@ -152,8 +152,8 @@
           (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 translator. Improve grammar and spelling.")
-          (chat . "Eres un LLM y un compañero de conversación. Responde de manera concisa y en español.")
+          (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.")
           )
         )
   )
@@ -266,20 +266,6 @@
   :defer t
   :ensure nil
   :config
-
-  (defun kj/project-name (&optional project)
-    "Return the name for PROJECT.
-If PROJECT is not specified, assume current project root."
-    (when-let (root (or project (kj/project-root)))
-      (file-name-nondirectory
-       (directory-file-name
-        (file-name-directory root)))))
-
-  (defun kj/project-root ()
-    "Return the current project root."
-    (when-let (project (project-current))
-      (project-root project)))
-
   ;; Colocamos un título del frame más bonito y útil que el por defecto
   (setq frame-title-format
         '(