Fix #59 by looking up config from the project dir, not the cwd

Author: Olical

fnl/nfnl/api.fnl

@@ -9,14 +9,14 @@
 
 (local M (define :nfnl.api))
 
-(fn M.find-orphans [opts]
+(fn M.find-orphans [{: passive? : dir}]
   "Find orphan Lua files that were compiled from a Fennel file that no longer exists. Display them with notify. Set opts.passive? to true if you don't want it to tell you that there are no orphans."
-  (let [dir (vim.fn.getcwd)
+  (let [dir (or dir (vim.fn.getcwd))
         {: config : root-dir : cfg} (config.find-and-load dir)]
     (if config
       (let [orphan-files (gc.find-orphan-lua-files {: root-dir : cfg})]
         (if (core.empty? orphan-files)
-            (when (not (core.get opts :passive?))
+            (when (not passive?)
               (notify.info "No orphan files detected."))
             (notify.warn
               "Orphan files detected, delete them with :NfnlDeleteOrphans.\n"
@@ -30,9 +30,9 @@
         (notify.warn "No .nfnl.fnl configuration found.")
         []))))
 
-(fn M.delete-orphans []
+(fn M.delete-orphans [{: dir}]
   "Delete orphan Lua files that were compiled from a Fennel file that no longer exists."
-  (let [dir (vim.fn.getcwd)
+  (let [dir (or dir (vim.fn.getcwd))
         {: config : root-dir : cfg} (config.find-and-load dir)]
     (if config
       (let [orphan-files (gc.find-orphan-lua-files {: root-dir : cfg})]

fnl/nfnl/callback.fnl

@@ -24,7 +24,9 @@
        :source (nvim.get-buf-content-as-string (. ev :buf))})
 
     (when (cfg [:orphan-detection :auto?])
-      (api.find-orphans {:passive? true}))
+      (api.find-orphans
+        {:dir root-dir
+         :passive? true}))
 
     nil))
 
@@ -85,15 +87,19 @@
 
           (vim.api.nvim_buf_create_user_command
             ev.buf :NfnlFindOrphans
-            #(api.find-orphans)
+            #(api.find-orphans {:dir (core.first (core.get $ :fargs))})
             {:desc "Executes (nfnl.api/find-orphans) which will find and display all Lua files that no longer have a matching Fennel file."
-             :force true})
+             :force true
+             :complete "file"
+             :nargs "?"})
 
           (vim.api.nvim_buf_create_user_command
             ev.buf :NfnlDeleteOrphans
-            #(api.delete-orphans)
+            #(api.delete-orphans {:dir (core.first (core.get $ :fargs))})
             {:desc "Executes (nfnl.api/delete-orphans) deletes any orphan Lua files that no longer have their original Fennel file they were compiled from."
-             :force true}))))))
+             :force true
+             :complete "file"
+             :nargs "?"}))))))
 
 {: fennel-filetype-callback
  : supported-path?}