Handle saving and compiling the uploaded user code.

priv/live.html

@@ -122,7 +122,7 @@ <h2>LFE Code </h2>
       </p>
 
       <p>
-        <button class="wide-button" hx-get="/livetest"> Test this code </button>
+        <a href="/go"> Test this code </a>
       </p>
 
 </div>

spawnfest-manifest.md

@@ -30,6 +30,7 @@ Note:
   - No AI was used in the making of this project. 
   - Github actions run tests ! 
   - Github actions builds (but doesn't publish) a container, thats on my list.
+  - compiler errors dont make it back to the user, this is a big one. 
 
 Barista isnt showing what happens to error 500s!  I had to bruteforce error conditions !
 

src/barista-routes.lfe

@@ -23,10 +23,9 @@
 (defun write-to-file (filename data)
   (file:write_file filename data ))
 
-
 ;;compile a file
 (defun compile-file (filename)
-  (: lfe-shell c filename))
+  (: lfe_comp file filename))
 
 ;; compile it.
 (defun compile-data (data)
@@ -86,14 +85,19 @@
 
  ('PUT #"/live-demo/user-lfe"
        (progn
-         (compile-data (barista-request:get-data req))
+         ;;         (logger:alert (barista-request:get-data req))
+         (logger:alert (maps:get "user-lfe" (barista-request:get-data req)))
+         (write-to-file "/tmp/user-demo.lfe" (maps:get "user-lfe" (barista-request:get-data req)))
+         (compile-file "/tmp/user-demo.lfe")
          (barista-response:ok (erlang:binary_to_list (template:load "template-lfe.html")))))
 
  ('GET #"/live-demo"
        (progn
          (barista-response:ok (erlang:binary_to_list (template:load "live.html")))))
 
-
+ ('GET #"/go"
+       (progn
+         (barista-response:ok (erlang:binary_to_list (template:load "user/live.html")))))
 
  ('GET #"/about"
        (progn