From 324465bc18956e86410dad4be773a8b23150fe03 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Fri, 26 Apr 2024 17:37:28 +0100
Subject: [PATCH] devout: write uevent KEY=value format to clients

---
 pkgs/devout/devout.fnl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/pkgs/devout/devout.fnl b/pkgs/devout/devout.fnl
index baec6c4..3e63318 100644
--- 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)))