ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 07:28:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

chat-hook: on-migrate, configure permission-hook also

Browse Source 
Permissions for the new group need to be exposed to the members of those
new groups. This makes the on-migrate logic poke the permission-hook for
that.
This commit is contained in:
Fang 2020-02-21 23:56:44 +01:00
parent c3becc9f5f
commit e5525b7d9e
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,8 +2,8 @@
:: mirror chat data from foreign to local based on read permissions
:: allow sending chat messages to foreign paths based on write perms
::
/- *permission-store, *chat-hook, *invite-store,
*metadata-store, *permission-group-hook, *group-store
/- *permission-store, *chat-hook, *invite-store, *metadata-store,
*permission-hook, *group-store, *permission-group-hook ::TMP for upgrade
/+ *chat-json, *chat-eval, default-agent, verb, dbug
|%
+$ card card:agent:gall
@ -79,10 +79,8 @@
==
::
(create-group new-group who.newp)
::
:~ (record-group new-group chat)
(hookup-group new-group kind.newp)
==
(hookup-group new-group kind.newp)
[(record-group new-group chat)]~
==
::
++ unify-permissions
@ -147,11 +145,20 @@
::
++ hookup-group
|= [group=path =kind]
^- card
%^ make-poke %permission-group-hook
%permission-group-hook-action
!> ^- permission-group-hook-action
[%associate group [group^kind ~ ~]]
^- (list card)
:* %^ make-poke %permission-group-hook
%permission-group-hook-action
!> ^- permission-group-hook-action
[%associate group [group^kind ~ ~]]
::
=/ =ship (slav %p (snag 1 group))
?. =(our.bol ship) ~
:_ ~
%^ make-poke %permission-hook
%permission-hook-action
!> ^- permission-hook-action
[%add-owned group group]
==
::
++ record-group
|= [group=path chat=path]