pop-os/emacs: Add command to create Saloon requests

1 files changed, 17 insertions, 1 deletions

diff --git a/oni/home/config/pop-os/emacs.el b/oni/home/config/pop-os/emacs.el
index ab1f0ce..1a54f92 100644
--- a/oni/home/config/pop-os/emacs.el
+++ b/oni/home/config/pop-os/emacs.el
@@ -45,7 +45,8 @@
   ["Artisan"
    ("ac" "Run Command" artisan-chanced-run-command)
    ("am" "Migrate" artisan-chanced-migrate)
-   ("asc" "Create Saloon Connector" artisan-create-saloon-connector)]
+   ("asc" "Create Saloon Connector" artisan-create-saloon-connector)
+   ("asr" "Create Saloon Request" artisan-create-saloon-request)]
 
   ["Commands"
    ;; ("t" "Test" artisan-test-transient)
@@ -68,6 +69,21 @@ connector."
       (find-file good-file-name))
     (vc-register)))
 
+(defun artisan-create-saloon-request (integration name)
+  "Create a new saloon connector.
+INTEGRATION is the related integration. NAME is the name of the saloon
+connector."
+  (interactive "MIntegration: \nMName: ")
+  (let ((default-directory (expand-file-name "chanced" (project-root (project-current)))))
+    (shell-command (format "docker exec chanced-backend php artisan saloon:request %s %s" (shell-quote-argument integration) (shell-quote-argument name)))
+    (let* ((root (project-root (project-current)))
+           (bad-file-name (expand-file-name (format "chanced/app/Http/Integrations/%s/Requests/%s.php" integration name) root))
+           (good-file-name (expand-file-name (format "common/app/Http/Integrations/%s/Requests/%s.php" integration name) root)))
+      (mkdir (file-name-directory good-file-name) t)
+      (rename-file bad-file-name good-file-name)
+      (find-file good-file-name))
+    (vc-register)))
+
 (defun artisan-punt-composer-install ()
   (interactive)
   (let ((default-directory (expand-file-name "punt" (project-root (project-current)))))