Loading from templates mostly working.

spawnfest · Oct 28, 2023 · 6c6c449 · 6c6c449
1 parent b84b13c
commit 6c6c449
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/src/barista-routes.lfe b/src/barista-routes.lfe
@@ -14,7 +14,9 @@
 
 ;; fixme, error handling on file.
 (defun load-template (template-file)
-  (let (((tuple status contents) (: file read_file template-file)))
+  (let* ((priv-dir (: code priv_dir 'untitled))
+         (file-path (++ priv-dir "/" template-file))
+         ((tuple status contents) (: file read_file file-path)))
     (list contents )))
 
 (defun handle
@@ -26,7 +28,7 @@
                      "Cache-Control: no-cache"
                      "Cache-Control: no-store"
                      "\r\n"))
-          (body (load-template "/tmp/hello.txt")))
+          (body (load-template "hello.txt")))
      (lfe_io:format "headers: ~p~n" `(,headers))
      (lfe_io:format "body: ~p~n~n" `(,body))
      (barista:response 200 headers body))))

diff --git a/src/untitled-project.lfe b/src/untitled-project.lfe
@@ -7,5 +7,6 @@
 ;;; -----------
 
 (defun start ()
-  ;; FIXME: this should probably be ensure-all-started.
+  ;; FIXME: this should probably be ensure-all-started, or something.
+  (application:ensure_started  'untitled-project)
   (barista-server-app:start))