diff --git a/emacs/.emacs.d/config/init-run-command.el b/emacs/.emacs.d/config/init-run-command.el index 0e12f46..e833ffc 100644 --- a/emacs/.emacs.d/config/init-run-command.el +++ b/emacs/.emacs.d/config/init-run-command.el @@ -293,18 +293,18 @@ ;; (format "%s#%s" test-class method)))) (list :command-name "test this method" :command-line (format "mvn test -DfailIfNoTests=false -Dtest=%s" test-method) - :working-dir local-pom-dir))))) - (if (s-equals? local-pom-dir project-dir) - commands - (-concat commands - (-map (lambda (cmd) - (when cmd - (-> (-copy cmd) - (plist-put :command-name - (format "%s (root POM)" - (plist-get cmd :command-name))) - (plist-put :working-dir project-dir)))) - commands)))) + :working-dir local-pom-dir)))) + (if (s-equals? local-pom-dir project-dir) + commands + (-concat commands + (-map (lambda (cmd) + (when cmd + (-> (-copy cmd) + (plist-put :command-name + (format "%s (root POM)" + (plist-get cmd :command-name))) + (plist-put :working-dir project-dir)))) + commands))))) (defun get-cargo-commands (dir) (when (executable-find "cargo")