feat: mms-prototype 80% there

1 files changed, 23 insertions, 0 deletions

diff --git a/mms-prog.org b/mms-prog.org
index 9b45df0..4a22336 100644
--- a/mms-prog.org
+++ b/mms-prog.org
@@ -70,3 +70,26 @@ I use =consult= for the as-I-type propositions.
     "f f" '(lambda () (interactive) (consult-find)) :wk "File"
     ))
 #+end_src
+
+* Prototyping
+
+#+begin_src emacs-lisp
+  (defun mms-prototype-ruby (name)
+    (interactive "sWhatcha workin on? ")
+    (setq today (shell-command-to-string "echo -n $(date +%Y-%m-%d)"))
+    (setq dir (concat mms-tmp-dir "/" name "-rb-" today "/"))
+
+    (make-directory dir)
+    (copy-file "~/.emacs.d/templates/spike-ruby.rb" (concat dir "run.rb"))
+    (find-file (concat dir "run.rb"))
+
+    (evil-window-vsplit)
+    (eshell)
+    (evil-window-left)
+
+    )
+
+#+end_src
+
+#+RESULTS:
+: mms-prototype-ruby