Support %p placeholder for project name in command stringsfeature/1698-project-name-placeholder

Closes #1698

All project command strings (configure, compile, test, run, install,
package) now support %p as a placeholder that gets replaced with the
project name at execution time. This is useful for commands like
"docker exec %p make test" where the container name matches the
project name.

1 files changed, 10 insertions, 1 deletions

diff --git a/projectile.el b/projectile.el
index 6c5306b..3f0e5f7 100644
--- a/projectile.el
+++ b/projectile.el
@@ -3053,7 +3053,11 @@ files such as test/impl/other files as below:
     CUSTOM-FUNCTION accepts FILE as relative path from the project root and
     returns a plist containing :test, :impl or :other as key and the
     relative path/paths or predicate as value.  PREDICATE accepts a
-    relative path as the input."
+    relative path as the input.
+
+All command strings (CONFIGURE, COMPILE, INSTALL, PACKAGE, TEST, RUN)
+support `%p' as a placeholder that will be replaced with the project name
+at execution time."
   (setq projectile-project-types
         (cons `(,project-type .
                               ,(projectile--build-project-plist
@@ -5420,6 +5424,8 @@ by setting SHOW-PROMPT.  The prompt will be prefixed with PROMPT-PREFIX.
 If SAVE-BUFFERS is non-nil save all projectile buffers before
 running the command.
 
+The placeholder `%p' in COMMAND is replaced with the project name.
+
 The command actually run is returned."
   (let* ((project-root (projectile-acquire-root))
          (default-directory (projectile-compilation-dir))
@@ -5452,6 +5458,9 @@ The command actually run is returned."
       (setq compilation-save-buffers-predicate #'projectile-current-project-buffer-p))
     (unless (file-directory-p default-directory)
       (mkdir default-directory))
+    ;; Substitute placeholders: %p -> project name
+    (when (string-match-p "%p" command)
+      (setq command (string-replace "%p" (projectile-project-name project-root) command)))
     (projectile-run-compilation command use-comint-mode)
     command))