diff --git a/pkg/arvo/neo/cod/std/src/imp/message.hoon b/pkg/arvo/neo/cod/std/src/imp/message.hoon index 4977bc62c0..a57cb6c401 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 {}" + !! + =/ 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