anoia.fs.mktree replaces mkdir

This uses lfs to make the tree in-process instead of
shelling out to the mkdir command

pkgs/anoia/fs.fnl

@@ -1,5 +1,17 @@
 (local lfs (require :lfs))
 
+(fn directory? [pathname]
+  (= (lfs.symlinkattributes pathname :mode) "directory"))
+
+(fn mktree [pathname]
+  (if (or (= pathname "") (= pathname "/"))
+      (error (.. "can't mkdir " pathname)))
+
+  (or (directory? pathname)
+      (let [parent (string.gsub pathname "/[^/]+/?$" "")]
+        (or (directory? parent) (mktree parent))
+        (assert (lfs.mkdir pathname)))))
+
 (fn rmtree [pathname]
   (case (lfs.symlinkattributes pathname)
     nil true
@@ -17,4 +29,4 @@
     (error (.. "can't remove " pathname " of kind \"" unknown.mode "\""))))
 
 
-{ : rmtree }
+{ : mktree : rmtree }

pkgs/anoia/init.fnl

@@ -13,7 +13,4 @@
 
 (fn system [s] (assert (os.execute s)))
 
-(fn mkdir [directory]
-  (os.execute (.. "mkdir -p " directory)))
-
-{ : merge : split : file-exists? : system : mkdir }
+{ : merge : split : file-exists? : system }