raboof/liminix
1
0
Fork 0
forked from dan/liminix
Code Pull Requests Activity

anoia: add basename, dirname

Browse Source
This commit is contained in:
Daniel Barlow 2024-04-10 19:34:09 +01:00
parent f4bf3029fa
commit b231664a06
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/anoia/init.fnl
View File

@ -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