pop-os/emacs: Add command to make a new Model

1 files changed, 27 insertions, 1 deletions

diff --git a/oni/home/config/pop-os/emacs.el b/oni/home/config/pop-os/emacs.el
index d7a88f7..aa2a01f 100644
--- a/oni/home/config/pop-os/emacs.el
+++ b/oni/home/config/pop-os/emacs.el
@@ -52,7 +52,8 @@
 
   ["Commands"
    ;; ("t" "Test" artisan-test-transient)
-   ("mm" "Make Migration" artisan-make-migration-transient)])
+   ("mm" "Make Migration" artisan-make-migration-transient)
+   ("mM" "Make Model" artisan-make-model-transient)])
 
 (defun artisan-punt-composer-install ()
   (interactive)
@@ -242,6 +243,31 @@ buffers.")
                                      t (rx "_" (literal name) ".php"))))
     (vc-register)))
 
+(transient-define-prefix artisan-make-model-transient ()
+  "Make model."
+
+  ["Arguments & Switches"]
+
+  ["Commands"
+   ("m" "Make" artisan-make-model)])
+
+(defun artisan-make-model (&optional name)
+  (interactive "MName: ")
+  (let* ((root (project-root (project-current)))
+         (default-directory (expand-file-name "chanced" root))
+         (bad-file-name (expand-file-name (format "chanced/app/%s.php" name) root))
+         (good-file-name (expand-file-name (format "common/app/Models/%s.php" name) root)))
+    (shell-command
+     (format "docker exec chanced-backend php artisan make:model %S" name))
+    (rename-file bad-file-name good-file-name)
+    (find-file good-file-name)
+    (save-excursion
+      (search-forward "namespace App;")
+      (kill-whole-line)
+      (insert "namespace App\\Models;\n")
+      (save-buffer))
+    (vc-register)))
+
 (require 'dashboard)
 (dashboard-setup-startup-hook)
 (run-with-idle-timer 300 t (lambda () (switch-to-buffer dashboard-buffer-name)))