dan/liminix
1
0
Fork 5
Code

add dig to anoia

Browse Source
This commit is contained in:
Daniel Barlow 2024-08-23 23:27:29 +01:00
parent e3ec514710
commit 5695c47496
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/anoia/init.fnl
View File

@ -62,6 +62,12 @@
(assert (not (table= {:a [4 5 6 7] } {:a [4 5 6 7 8]}))) (assert (not (table= {:a [4 5 6 7] } {:a [4 5 6 7 8]})))
(assert (not (table= {:a [4 5 7 6] } {:a [4 5 6 7 ]})))) (assert (not (table= {:a [4 5 7 6] } {:a [4 5 6 7 ]}))))
(fn dig [tree path]
(match path
[el & more] (dig (. tree el) more)
[el] (. tree el)
[] tree))
(local (local
base64-indices base64-indices
(doto [ (doto [
@ -103,6 +109,7 @@
: assoc : assoc
: base64url : base64url
: basename : basename
: dig
: dirname : dirname
: dup : dup
: file-exists? : file-exists?

8
pkgs/watch-outputs/watch-outputs.fnl
View File

@ -1,4 +1,4 @@
(local { : system : assoc : split : table= } (require :anoia)) (local { : system : assoc : split : table= : dig } (require :anoia))
(local svc (require :anoia.svc)) (local svc (require :anoia.svc))
(local { : view } (require :fennel)) (local { : view } (require :fennel))
(local { : kill } (require :lualinux)) (local { : kill } (require :lualinux))
@ -22,12 +22,6 @@
:paths (split-paths paths) :paths (split-paths paths)
})) }))
(fn dig [tree path]
(match path
[el & more] (dig (. tree el) more)
[el] (. tree el)
[] tree))
(fn changed? [paths old-tree new-tree] (fn changed? [paths old-tree new-tree]
(accumulate [changed? false (accumulate [changed? false
_ path (ipairs paths)] _ path (ipairs paths)]