Compare commits

...

2 Commits

View File

@ -293,7 +293,7 @@
;; (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)))))
:working-dir local-pom-dir))))
(if (s-equals? local-pom-dir project-dir)
commands
(-concat commands
@ -304,7 +304,7 @@
(format "%s (root POM)"
(plist-get cmd :command-name)))
(plist-put :working-dir project-dir))))
commands))))
commands)))))
(defun get-cargo-commands (dir)
(when (executable-find "cargo")
@ -451,11 +451,13 @@
(let* ((project (projectile-project-root))
(project-name (f-filename project)))
(append (when (equal project-name "hummingbird-rails")
(list
(list :command-name "workbench start"
:command-line "./workbench/bin/start"
(->> (f-files (f-join project "workbench" "bin"))
(-filter (lambda (f) (not (s-starts-with? "_" (f-base f)))))
(-map (lambda (f)
(list :command-name (format "workbench %s" (f-base f))
:command-line f
:working-dir project
:runner 'run-command-runner-vterm))))))
:runner 'run-command-runner-vterm))))))))
:general
(leader-map "\"" #'run-command)