Add newlines to evals and support eval-file

Olical · Sep 14, 2024 · a0621d1 · a0621d1
1 parent 8ee786b
commit a0621d1
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 4 deletions.
diff --git a/fnl/conjure/client/fennel/nfnl.fnl b/fnl/conjure/client/fennel/nfnl.fnl
@@ -33,16 +33,23 @@
 
 (fn eval-str [opts]
   (let [eval (repl.new)
-        results (eval opts.code)
+        results (eval (.. opts.code "\n"))
         result-strs (core.map fennel.view results)
         lines (text.split-lines (str.join "\n" result-strs))]
     (log.append lines)))
 
+(fn eval-file [opts]
+  (set opts.code (core.slurp opts.file-path))
+
+  (when opts.code
+    (eval-str opts)))
+
 (comment
   (+ 10 20))
 
 {: comment-node?
  : form-node?
  : buf-suffix
  : comment-prefix
- : eval-str}
+ : eval-str
+ : eval-file}
diff --git a/lua/conjure/client/fennel/nfnl.lua b/lua/conjure/client/fennel/nfnl.lua