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

Compare commits

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

2 Commits
9cbad56375 ... 911b009ee9

Author SHA1 Message Date
Jeremy Dormitzer
911b009ee9 Add all workbench scripts to hummingbird run-command recipe 2024-04-17 09:38:08 -04:00
Jeremy Dormitzer
7db3ff89f9 Fix run-command s-exp nesting 2024-04-17 09:37:56 -04:00
1 changed files with 19 additions and 17 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,11 +451,13 @@
(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")
(list (->> (f-files (f-join project "workbench" "bin"))
(list :command-name "workbench start" (-filter (lambda (f) (not (s-starts-with? "_" (f-base f)))))
:command-line "./workbench/bin/start" (-map (lambda (f)
:working-dir project (list :command-name (format "workbench %s" (f-base f))
:runner 'run-command-runner-vterm)))))) :command-line f
:working-dir project
:runner 'run-command-runner-vterm))))))))
:general :general
(leader-map "\"" #'run-command) (leader-map "\"" #'run-command)