liminix

commit 324465bc18956e86410dad4be773a8b23150fe03
parent b33249a0502b3f58d1c1e56ab9db08e4f6cad712
Author: Daniel Barlow <dan@telent.net>
Date:   Fri, 26 Apr 2024 17:37:28 +0100

devout: write uevent KEY=value format to clients

Diffstat:
M
pkgs/devout/devout.fnl
 | 
11
++++++++++-

1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/pkgs/devout/devout.fnl b/pkgs/devout/devout.fnl
@@ -21,6 +21,15 @@
           (k:lower) v)
       (tset :path (string.sub s (+ at 1) (- nl 1))))))
 
+(fn format-event [e]
+  (..
+   (string.format "%s@%s\0" e.action e.path)
+   (table.concat
+    (icollect [k v (pairs e)]
+      (string.format "%s=%s" (string.upper k) v ))
+    "\n")))
+
+
 (fn event-matches? [e terms]
   (accumulate [match? true
                name value (pairs terms)]
@@ -102,7 +111,7 @@
         (db:subscribe
          client
          (fn [e]
-           (ll.write client (view e)))
+           (ll.write client (format-event e)))
          (parse-terms s))
         true)
     (nil err) (do (print err) false)))