diff --git a/pkgs/anoia/init.fnl b/pkgs/anoia/init.fnl index d49dfe5..0b2f79e 100644 --- a/pkgs/anoia/init.fnl +++ b/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) @@ -69,6 +75,8 @@ { : assoc : base64url + : basename + : dirname : dup : file-exists? : hash