From f48e74729994b406c77c192ea5188f3f128ae4da Mon Sep 17 00:00:00 2001 From: KJ Date: Thu, 18 Apr 2024 05:32:51 -0400 Subject: [PATCH] Move functions to the functions file. --- configs/init-functions.el | 15 +++++++++++++++ configs/init-packages.el | 14 -------------- 2 files changed, 15 insertions(+), 14 deletions(-) diff --git a/configs/init-functions.el b/configs/init-functions.el index 89552d9..cfde946 100644 --- a/configs/init-functions.el +++ b/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. diff --git a/configs/init-packages.el b/configs/init-packages.el index 8de35d7..4adbfc7 100644 --- a/configs/init-packages.el +++ b/configs/init-packages.el @@ -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 '(