jdormit/dotfiles
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: jdormit:911b009ee9e68e6cb4a8bf7e23fcd9de17ae8bf8
Branches Tags
jdormit:master
..
compare: jdormit:9cbad56375376251b1556d7e839c2d07db3dbab0
Branches Tags
jdormit:master

No commits in common. "911b009ee9e68e6cb4a8bf7e23fcd9de17ae8bf8" and "9cbad56375376251b1556d7e839c2d07db3dbab0" have entirely different histories.
911b009ee9 ... 9cbad56375

1 changed files with 17 additions and 19 deletions
Show Stats Expand all files Collapse all files

36
emacs/.emacs.d/config/init-run-command.el
View File

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