2020-10-22 20:17:15 +03:00
|
|
|
/- spider,
|
|
|
|
|
graph=graph-store,
|
|
|
|
|
*metadata-store,
|
|
|
|
|
*group,
|
|
|
|
|
group-store,
|
|
|
|
|
inv=invite-store
|
2020-09-04 10:42:20 +03:00
|
|
|
/+ strandio, resource, graph-view
|
2020-09-02 08:18:07 +03:00
|
|
|
=>
|
|
|
|
|
|%
|
|
|
|
|
++ strand strand:spider
|
|
|
|
|
++ poke poke:strandio
|
|
|
|
|
++ poke-our poke-our:strandio
|
2020-09-04 10:51:28 +03:00
|
|
|
::
|
2020-09-02 08:18:07 +03:00
|
|
|
++ handle-group
|
2020-09-04 10:42:20 +03:00
|
|
|
|= [rid=resource =associated:graph-view]
|
2020-09-02 08:18:07 +03:00
|
|
|
=/ m (strand ,resource)
|
2020-09-04 10:42:20 +03:00
|
|
|
?: ?=(%group -.associated)
|
|
|
|
|
(pure:m rid.associated)
|
2020-09-02 08:18:07 +03:00
|
|
|
=/ =action:group-store
|
2020-09-04 10:42:20 +03:00
|
|
|
[%add-group rid policy.associated %&]
|
2020-09-02 08:18:07 +03:00
|
|
|
;< ~ bind:m (poke-our %group-store %group-action !>(action))
|
|
|
|
|
;< ~ bind:m
|
|
|
|
|
(poke-our %group-push-hook %push-hook-action !>([%add rid]))
|
|
|
|
|
(pure:m rid)
|
|
|
|
|
--
|
2020-09-04 10:51:28 +03:00
|
|
|
::
|
2020-09-02 08:18:07 +03:00
|
|
|
=, strand=strand:spider
|
|
|
|
|
^- thread:spider
|
|
|
|
|
|= arg=vase
|
|
|
|
|
=/ m (strand ,vase)
|
|
|
|
|
^- form:m
|
2020-12-02 01:38:02 +03:00
|
|
|
=+ !<([~ =action:graph-view] arg)
|
2020-09-02 08:18:07 +03:00
|
|
|
?> ?=(%create -.action)
|
|
|
|
|
;< =bowl:spider bind:m get-bowl:strandio
|
2020-10-22 20:17:15 +03:00
|
|
|
::
|
2020-09-02 08:18:07 +03:00
|
|
|
:: Add graph to graph-store
|
|
|
|
|
::
|
2020-09-11 06:08:16 +03:00
|
|
|
?. =(our.bowl entity.rid.action)
|
|
|
|
|
(strand-fail:strandio %bad-request ~)
|
2020-09-02 08:18:07 +03:00
|
|
|
=/ =update:graph
|
2020-11-12 23:40:12 +03:00
|
|
|
[%0 now.bowl %add-graph rid.action *graph:graph mark.action %.n]
|
2020-09-04 10:42:20 +03:00
|
|
|
;< ~ bind:m
|
|
|
|
|
(poke-our %graph-store graph-update+!>(update))
|
|
|
|
|
;< ~ bind:m
|
|
|
|
|
(poke-our %graph-push-hook %push-hook-action !>([%add rid.action]))
|
2020-10-22 20:17:15 +03:00
|
|
|
::
|
2020-09-02 08:18:07 +03:00
|
|
|
:: Add group, if graph is unmanaged
|
|
|
|
|
::
|
|
|
|
|
;< group=resource bind:m
|
|
|
|
|
(handle-group rid.action associated.action)
|
|
|
|
|
=/ group-path=path
|
|
|
|
|
(en-path:resource group)
|
2020-10-22 20:17:15 +03:00
|
|
|
::
|
2020-09-02 08:18:07 +03:00
|
|
|
:: Setup metadata
|
|
|
|
|
::
|
|
|
|
|
=/ =metadata
|
|
|
|
|
%* . *metadata
|
2020-09-22 20:44:52 +03:00
|
|
|
title title.action
|
|
|
|
|
description description.action
|
2020-09-02 08:18:07 +03:00
|
|
|
date-created now.bowl
|
2020-09-22 20:44:52 +03:00
|
|
|
creator our.bowl
|
|
|
|
|
module module.action
|
2020-09-02 08:18:07 +03:00
|
|
|
==
|
2020-10-22 20:17:15 +03:00
|
|
|
=/ =metadata-action
|
2020-09-15 23:25:58 +03:00
|
|
|
[%add group-path graph+(en-path:resource rid.action) metadata]
|
2020-10-22 20:17:15 +03:00
|
|
|
;< ~ bind:m
|
|
|
|
|
(poke-our %metadata-hook %metadata-action !>(metadata-action))
|
2020-09-02 08:18:07 +03:00
|
|
|
;< ~ bind:m
|
|
|
|
|
(poke-our %metadata-hook %metadata-hook-action !>([%add-owned group-path]))
|
2020-10-22 20:17:15 +03:00
|
|
|
::
|
|
|
|
|
:: Send invites
|
|
|
|
|
::
|
2020-10-28 21:42:44 +03:00
|
|
|
?: ?=(%group -.associated.action)
|
2020-10-22 20:17:15 +03:00
|
|
|
(pure:m !>(~))
|
2020-10-27 23:45:26 +03:00
|
|
|
?- -.policy.associated.action
|
2020-10-28 21:42:44 +03:00
|
|
|
%open (pure:m !>(~))
|
2020-10-22 20:17:15 +03:00
|
|
|
%invite
|
|
|
|
|
=/ inv-action=action:inv
|
|
|
|
|
:^ %invites %graph (shaf %graph-uid eny.bowl)
|
|
|
|
|
^- multi-invite:inv
|
|
|
|
|
:* our.bowl
|
|
|
|
|
%graph-push-hook
|
|
|
|
|
rid.action
|
|
|
|
|
pending.policy.associated.action
|
|
|
|
|
description.action
|
|
|
|
|
==
|
|
|
|
|
;< ~ bind:m
|
|
|
|
|
(poke-our %invite-hook %invite-action !>(inv-action))
|
|
|
|
|
(pure:m !>(~))
|
|
|
|
|
==
|
