lbailly/liminix
1
0
Fork 0
forked from DGNum/liminix
Code Pull requests 2 Activity Actions

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) f (do (f:close) true)
_ false)) _ false))
(fn basename [path]
(string.match path ".*/([^/]-)$"))
(fn dirname [path]
(string.match path "(.*)/[^/]-$"))
(fn system [s] (fn system [s]
(match (os.execute s) (match (os.execute s)
res (do (print (.. "Executed \"" s "\", exit code " (tostring res))) res) res (do (print (.. "Executed \"" s "\", exit code " (tostring res))) res)
@ -69,6 +75,8 @@
{ {
: assoc : assoc
: base64url : base64url
: basename
: dirname
: dup : dup
: file-exists? : file-exists?
: hash : hash