move rmtree to anoia library

2023-09-08 21:03:18 +01:00
parent eaa45906ff
commit 4e9227dff3
2 changed files with 21 additions and 18 deletions
--- a/pkgs/anoia/fs.fnl
+++ b/pkgs/anoia/fs.fnl
@@ -0,0 +1,20 @@
+(local lfs (require :lfs))
+
+(fn rmtree [pathname]
+  (case (lfs.symlinkattributes pathname)
+    nil true
+    {:mode "directory"}
+    (do
+      (each [f (lfs.dir pathname)]
+        (when (not (or (= f ".") (= f "..")))
+          (rmtree ( .. pathname "/" f)))
+        (lfs.rmdir pathname)))
+    {:mode "file"}
+    (os.remove pathname)
+    {:mode "link"}
+    (os.remove pathname)
+    unknown
+    (error (.. "can't remove " pathname " of kind \"" unknown.mode "\""))))
+
+
+{ : rmtree }