From c7ec802d2818f946af7049b04ba6dff5bd836856 Mon Sep 17 00:00:00 2001
From: bonbud-macryg <oarsman_phlox.0s@icloud.com>
Date: Tue, 30 Jul 2024 15:36:49 +0100
Subject: [PATCH] Fill notifications with message text

---
 pkg/arvo/neo/cod/std/src/imp/message.hoon | 30 ++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

diff --git a/pkg/arvo/neo/cod/std/src/imp/message.hoon b/pkg/arvo/neo/cod/std/src/imp/message.hoon
index 4977bc62c0e..a57cb6c401e 100644
--- a/pkg/arvo/neo/cod/std/src/imp/message.hoon
+++ b/pkg/arvo/neo/cod/std/src/imp/message.hoon
@@ -1 +1,29 @@
-~
\ No newline at end of file
+/@  message
+^-  kook:neo
+|%
+++  state  [%pro %message]
+++  poke   (sy %sig ~)
+++  kids   *kids:neo
+++  deps   *deps:neo
+++  form
+  ^-  form:neo
+  |_  [=bowl:neo =aeon:neo =stud:neo state-vase=vase]
+    +*  state  !<(message state-vase)
+    ++  init
+      |=  old=(unit pail:neo)
+      ^-  (quip card:neo pail:neo)
+      ?~  old
+        ~|  "No message contents for {<here.bowl>}"
+        !!
+      =/  new-message
+        !<(message q:(need old))
+      :_  [%message !>(new-message)]
+      :~  :-  #/[p/our.bowl]/home/notifications
+          [%poke [%notification !>([%.y now.bowl here.bowl contents.new-message])]]
+      ==
+    ++  poke
+      |=  [=stud:neo vaz=vase]
+      ^-  (quip card:neo pail:neo)
+      [~ [%message !>(state)]]
+  --
+--
\ No newline at end of file