diff options
| author |  Tom Willemse | 2026-03-10 09:19:58 -0700 |
|---|---|---|
| committer | Tom Willemse | 2026-03-30 10:27:49 -0700 |
| commit | 7dd3388daf58981904d43cf6b5c065a10cf62174 (patch) | |
| tree | 09eebebcd2d4b6d4a55afcef0adb7debc0c4b442 | |
| parent | ae61059636e7416e66ca59c89983da84f6ebb3b3 (diff) | |
| download | new-dotfiles-7dd3388daf58981904d43cf6b5c065a10cf62174.tar.gz new-dotfiles-7dd3388daf58981904d43cf6b5c065a10cf62174.zip | |
pop-os/emacs: Allow ‘composer install’ to run for all projects
| -rw-r--r-- | oni/home/config/pop-os/emacs.el | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/oni/home/config/pop-os/emacs.el b/oni/home/config/pop-os/emacs.el index 59be01f..63cfcac 100644 --- a/oni/home/config/pop-os/emacs.el +++ b/oni/home/config/pop-os/emacs.el @@ -57,18 +57,24 @@ ;; ("t" "Test" artisan-test-transient) ("mm" "Make Migration" artisan-make-migration-transient) ("mM" "Make Model" artisan-make-model-transient) - ("mf" "Make Factory" artisan-make-factory-transient) - ("mFf" "Make Filament Form" artisan-make-filament-form-transient)]) + ("mf" "Make Factory" artisan-make-factory-transient)]) (defun artisan-punt-composer-install () (interactive) (let ((default-directory (expand-file-name "punt" (project-root (project-current))))) (async-shell-command "docker exec -it punt-backend composer install"))) -(defun artisan-chanced-composer-install () - (interactive) - (let ((default-directory (expand-file-name "chanced" (project-root (project-current))))) - (async-shell-command "docker exec -it chanced-backend composer install"))) +(defun artisan-chanced-composer-install (brand) + (interactive + (list (oni-read-brand))) + (mapcar (lambda (b) + (let ((default-directory (expand-file-name b (project-root (project-current)))) + (containers '(("chanced" . "chanced-backend") + ("punt" . "punt-backend") + ("filament" . "chanced-admin-panel")))) + (async-shell-command (format "docker exec -it %s composer install" (map-elt containers b)) + (get-buffer-create (format "*%s-composer*" (upcase b)))))) + (if (string= brand "all") '("chanced" "punt" "filament") (list brand)))) (defun artisan-punt-run-command (command) (interactive @@ -128,8 +134,11 @@ buffers.") (defun oni-read-brand () "Ask for Chanced or Punt." - (nth 1 (read-multiple-choice "Chanced or Punt? " '((?c "chanced" "Chanced") - (?p "punt" "Punt"))))) + (nth 1 (read-multiple-choice "Which application? " + '((?a "all" "All") + (?c "chanced" "Chanced") + (?p "punt" "Punt") + (?f "filament" "Filament"))))) (cl-defun artisan-run-test (name &key file filter stop-on-failure-p) (interactive |