liminix

commit 5695c47496f815b0c66ee342f2c167da746b6eee
parent e3ec5147103f3e9214c77c23170dcbe3ed95035a
Author: Daniel Barlow <dan@telent.net>
Date:   Fri, 23 Aug 2024 23:27:29 +0100

add dig to anoia

Diffstat:
M
pkgs/anoia/init.fnl
 | 
7
+++++++
M
pkgs/watch-outputs/watch-outputs.fnl
 | 
8
+-------

2 files changed, 8 insertions(+), 7 deletions(-)
diff --git a/pkgs/anoia/init.fnl b/pkgs/anoia/init.fnl
@@ -62,6 +62,12 @@
  (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 ]}))))
 
+(fn dig [tree path]
+  (match path
+    [el & more] (dig (. tree el) more)
+    [el] (. tree el)
+    [] tree))
+
 (local
  base64-indices
  (doto [
@@ -103,6 +109,7 @@
  : assoc
  : base64url
  : basename
+ : dig
  : dirname
  : dup
  : file-exists?
diff --git a/pkgs/watch-outputs/watch-outputs.fnl b/pkgs/watch-outputs/watch-outputs.fnl
@@ -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 { : view } (require :fennel))
 (local { : kill } (require :lualinux))
@@ -22,12 +22,6 @@
                                 :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]
   (accumulate [changed? false
                _ path (ipairs paths)]