Add all workbench scripts to hummingbird run-command recipe

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")
@@ -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"
-                       :working-dir project
-                       :runner 'run-command-runner-vterm))))))
+                (->> (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))))))))
 
   :general
   (leader-map "\"" #'run-command)