urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-01 14:42:02 +03:00
Code Issues Packages Projects Releases Wiki Activity

chat-hook: append messages to new dm

Browse Source
This commit is contained in:
Logan Allen 2020-07-24 15:50:21 -07:00
parent 1578103128
commit 49dc81f7d1
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkg/arvo/app/chat-hook.hoon
View File

@ -399,10 +399,16 @@
~
=/ =ship (slav %p i.t.path)
?: =(ship our.bol)
:: local dm, no need to do cleanup
~
?: ?=(^ (groups-of-chat path))
:: correctly initialized, no need to do cleanup
::
~
:- =- [%pass /fixdm %agent [our.bol %chat-view] %poke %chat-view-action -]
!> ^- action:store
[%delete path]
=/ new-dm /(scot %p our.bol)/(crip (weld "dm--" (trip (scot %p ship))))
=/ mailbox=(unit mailbox:store) (chat-scry path)
?~ mailbox
~
@ -412,8 +418,8 @@
%- crip
(zing [(trip (scot %p our.bol)) " <-> " (trip (scot %p ship)) ~])
''
/(scot %p our.bol)/(crip (weld "dm--" (trip (scot %p ship))))
/(scot %p our.bol)/(crip (weld "dm--" (trip (scot %p ship))))
new-dm
new-dm
[%invite (silt ~[ship])]
(silt ~[ship])
%.y
@ -422,7 +428,7 @@
::
=- [%pass /fixdm %agent [our.bol %chat-store] %poke %chat-action -]
!> ^- action:store
[%messages envelopes.u.mailbox]
[%messages new-dm envelopes.u.mailbox]
==
::
++ poke-json