anoia: add basename, dirname

default.nix

@@ -76,6 +76,7 @@ in {
       min-copy-closure
       fennelrepl
       lzma
+      lua
     ];
   };
 }

pkgs/anoia/init.fnl

@@ -18,6 +18,12 @@
     f (do (f:close) true)
     _ false))
 
+(fn basename [path]
+  (string.match path ".*/([^/]-)$"))
+
+(fn dirname [path]
+  (string.match path "(.*)/[^/]-$"))
+
 (fn system [s]
   (match (os.execute s)
     res (do (print (.. "Executed \"" s "\", exit code " (tostring res)))  res)
@@ -66,4 +72,15 @@
     (s:sub 1 (- (# s) pad))))
 
 
-{ : assoc : merge : split : file-exists? : system : hash : base64url : dup }
+{
+ : assoc
+ : base64url
+ : basename
+ : dirname
+ : dup
+ : file-exists?
+ : hash
+ : merge
+ : split
+ : system
+ }