Add a find and delete command for orphan files

Author: Olical

fnl/nfnl/api.fnl

@@ -1,12 +1,56 @@
 (local {: autoload : define} (require :nfnl.module))
 (local core (autoload :nfnl.core))
+(local str (autoload :nfnl.string))
 (local compile (autoload :nfnl.compile))
 (local config (autoload :nfnl.config))
 (local notify (autoload :nfnl.notify))
 (local fs (autoload :nfnl.fs))
+(local gc (autoload :nfnl.gc))
 
 (local M (define :nfnl.api))
 
+(fn M.find-orphans []
+  "Find orphan Lua files that were compiled from a Fennel file that no longer exists. Display them with notify."
+  (let [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)
+            (notify.info "No orphan files detected.")
+            (notify.warn
+              "Orphan files detected, delete them with :NfnlDeleteOrphans.\n"
+              (->> orphan-files
+                   (core.map
+                     (fn [f]
+                       (.. " - " f)))
+                   (str.join "\n"))))
+        orphan-files)
+      (do
+        (notify.warn "No .nfnl.fnl configuration found.")
+        []))))
+
+(fn M.delete-orphans []
+  "Delete orphan Lua files that were compiled from a Fennel file that no longer exists."
+  (let [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)
+          (notify.info "No orphan files detected.")
+          (do
+            (notify.info
+              "Deleting orphan files:\n"
+              (->> orphan-files
+                   (core.map
+                     (fn [f]
+                       (.. " - " f)))
+                   (str.join "\n")))
+            (core.map os.remove orphan-files)))
+        orphan-files)
+      (do
+        (notify.warn "No .nfnl.fnl configuration found.")
+        []))))
+
 (fn M.compile-file [{: path : dir}]
   "Compiles a file into the matching Lua file. Returns the compilation result. Takes an optional `dir` key that changes the working directory.
 

fnl/nfnl/callback.fnl

@@ -77,7 +77,19 @@
             {:desc "Executes (nfnl.api/compile-all-files) which will, you guessed it, compile all of your files."
              :force true
              :complete "file"
-             :nargs "?"}))))))
+             :nargs "?"})
+
+          (vim.api.nvim_buf_create_user_command
+            ev.buf :NfnlFindOrphans
+            #(api.find-orphans)
+            {:desc "Executes (nfnl.api/find-orphans) which will find and display all Lua files that no longer have a matching Fennel file."
+             :force true})
+
+          (vim.api.nvim_buf_create_user_command
+            ev.buf :NfnlDeleteOrphans
+            #(api.delete-orphans)
+            {: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}))))))
 
 {: fennel-filetype-callback
  : supported-path?}