feat: add command to copy project-relative filename

configs/init-functions.el

@@ -102,6 +102,20 @@ If PROJECT is not specified, assume current project root."
           (message "Copied '%s'" filename))
       (warn "Current buffer is not attached to a file!"))))
 
+;; Copia el nombre del archivo actual pero usando como raiz la raiz del proyecto
+(defun copy-project-filename ()
+  "Copy the current buffer file name relative to project root to the clipboard."
+  (interactive)
+  (let ((filename (if (equal major-mode 'dired-mode)
+                      default-directory
+                    (buffer-file-name))))
+    (if-let* ((root (kj/project-root))
+              (rel-name (file-relative-name filename root)))
+        (progn
+          (kill-new rel-name)
+          (message "Copied '%s'" rel-name))
+      (warn "Couldn't determine project-relative filename!"))))
+
 (defun copy-basename ()
   "Copy the current buffer basename to the clipboard."
   (interactive)