ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 04:48:00 +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 (slav %p i.t.path)
?: =(ship our.bol) ?: =(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 -] :- =- [%pass /fixdm %agent [our.bol %chat-view] %poke %chat-view-action -]
!> ^- action:store !> ^- action:store
[%delete path] [%delete path]
=/ new-dm /(scot %p our.bol)/(crip (weld "dm--" (trip (scot %p ship))))
=/ mailbox=(unit mailbox:store) (chat-scry path) =/ mailbox=(unit mailbox:store) (chat-scry path)
?~ mailbox ?~ mailbox
~ ~
@ -412,8 +418,8 @@
%- crip %- crip
(zing [(trip (scot %p our.bol)) " <-> " (trip (scot %p ship)) ~]) (zing [(trip (scot %p our.bol)) " <-> " (trip (scot %p ship)) ~])
'' ''
/(scot %p our.bol)/(crip (weld "dm--" (trip (scot %p ship)))) new-dm
/(scot %p our.bol)/(crip (weld "dm--" (trip (scot %p ship)))) new-dm
[%invite (silt ~[ship])] [%invite (silt ~[ship])]
(silt ~[ship]) (silt ~[ship])
%.y %.y
@ -422,7 +428,7 @@
:: ::
=- [%pass /fixdm %agent [our.bol %chat-store] %poke %chat-action -] =- [%pass /fixdm %agent [our.bol %chat-store] %poke %chat-action -]
!> ^- action:store !> ^- action:store
[%messages envelopes.u.mailbox] [%messages new-dm envelopes.u.mailbox]
== ==
:: ::
++ poke-json ++ poke-json