kj/confi-emacs-actual
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: kj:f48e74729994b406c77c192ea5188f3f128ae4da
Branches Tags
kj:master
kj:evil
..
compare: kj:0b3138b6c790d4d6ab65b7ecd5c5b745d40760b6
Branches Tags
kj:master
kj:evil

No commits in common. "f48e74729994b406c77c192ea5188f3f128ae4da" and "0b3138b6c790d4d6ab65b7ecd5c5b745d40760b6" have entirely different histories.
f48e747299 ... 0b3138b6c7

2 changed files with 16 additions and 17 deletions
Show Stats Expand all files Collapse all files

15
configs/init-functions.el
View File

@ -66,20 +66,5 @@ Saves to a temp file and puts the filename in the kill ring."
(delete-window (git-gutter:popup-buffer-window)) (delete-window (git-gutter:popup-buffer-window))
(git-gutter:popup-hunk))) (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) (provide 'init-functions)
;;; init-functions.el ends here. ;;; init-functions.el ends here.

18
configs/init-packages.el
View File

@ -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_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.") (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.") (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.") (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.") (chat . "Eres un LLM y un compañero de conversación. Responde de manera concisa y en español.")
) )
) )
) )
@ -266,6 +266,20 @@
:defer t :defer t
:ensure nil :ensure nil
:config :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 ;; Colocamos un título del frame más bonito y útil que el por defecto
(setq frame-title-format (setq frame-title-format
'( '(