remove ship-based path building

This commit is contained in:
A Arroyo 2020-01-30 12:54:35 -08:00 committed by Logan Allen
parent c8f72996b4
commit 6fb731b5c1
2 changed files with 14 additions and 13 deletions

View File

@ -159,11 +159,10 @@
|= act=chat-action
^- (quip card _state)
?> ?=(%create -.act)
=/ pax [(scot %p ship.act) path.act]
?: (~(has by inbox) pax)
?: (~(has by inbox) path.act)
[~ state]
:- (send-diff pax act)
state(inbox (~(put by inbox) pax *mailbox))
:- (send-diff path.act act)
state(inbox (~(put by inbox) path.act *mailbox))
::
++ handle-delete
|= act=chat-action

View File

@ -198,22 +198,24 @@
~
?- -.act
%create
=/ pax [(scot %p our.bol) path.act]
:: we used to append /chat/(scot %p our) to paths
:: we're moving this logic into front end
:: to accomodate "slash paths" (chat circles not associated with groups)
%- zing
:~
:: if group doesn't exist, create it
?~ (group-scry pax)
:~ (group-poke [%bundle pax])
(group-poke [%add read.act pax])
?~ (group-scry path.act)
:~ (group-poke [%bundle path.act])
(group-poke [%add read.act path.act])
==
~
:~
:: if no group, create group
(chat-poke [%create our.bol path.act])
(chat-hook-poke [%add-owned pax security.act allow-history.act])
(chat-hook-poke [%add-owned path.act security.act allow-history.act])
==
(create-security pax security.act)
:~ (permission-hook-poke [%add-owned pax pax])
(create-security path.act security.act)
:~ (permission-hook-poke [%add-owned path.act path.act])
:: (permission-hook-poke [%add-owned group-write group-read])
==
==
@ -226,9 +228,9 @@
==
::
%join
=/ foreign-pax [(scot %p ship.act) path.act]
:: same as above, assume that the entire path is being passed
:~ (chat-hook-poke [%add-synced ship.act path.act ask-history.act])
(permission-hook-poke [%add-synced ship.act foreign-pax])
(permission-hook-poke [%add-synced ship.act path.act])
==
==
::