2021-02-01 06:25:00 +03:00
|
|
|
/- spider,
|
|
|
|
|
metadata=metadata-store,
|
|
|
|
|
*group,
|
|
|
|
|
inv=invite-store,
|
|
|
|
|
store=group-store,
|
|
|
|
|
push-hook
|
|
|
|
|
/+ strandio, resource, view=group-view
|
|
|
|
|
=>
|
|
|
|
|
|%
|
|
|
|
|
++ strand strand:spider
|
|
|
|
|
++ poke poke:strandio
|
|
|
|
|
++ poke-our poke-our:strandio
|
|
|
|
|
--
|
|
|
|
|
^- thread:spider
|
|
|
|
|
|= arg=vase
|
|
|
|
|
=/ m (strand ,vase)
|
|
|
|
|
^- form:m
|
|
|
|
|
=+ !<([~ =action:view] arg)
|
|
|
|
|
?> ?=(%create -.action)
|
|
|
|
|
?> ((sane %tas) name.action)
|
|
|
|
|
;< =bowl:spider bind:m get-bowl:strandio
|
|
|
|
|
:: Add graph to graph-store
|
|
|
|
|
::
|
|
|
|
|
=/ rid=resource
|
|
|
|
|
[our.bowl name.action]
|
|
|
|
|
=/ group-act=action:store
|
2021-02-01 10:54:37 +03:00
|
|
|
[%add-group rid policy.action %.n]
|
|
|
|
|
;< ~ bind:m (poke-our %group-store %group-action !>(group-act))
|
2021-02-01 06:25:00 +03:00
|
|
|
;< =bowl:spider bind:m get-bowl:strandio
|
|
|
|
|
;< ~ bind:m (poke-our %group-store %group-action !>([%add-members rid (sy our.bowl ~)]))
|
|
|
|
|
=/ push-hook-act=cage
|
|
|
|
|
:- %push-hook-action
|
|
|
|
|
!> ^- action:push-hook
|
|
|
|
|
[%add rid]
|
|
|
|
|
;< ~ bind:m
|
|
|
|
|
(poke-our %group-push-hook push-hook-act)
|
|
|
|
|
=/ =metadatum:metadata
|
|
|
|
|
%* . *metadatum:metadata
|
|
|
|
|
title title.action
|
|
|
|
|
description description.action
|
|
|
|
|
date-created now.bowl
|
|
|
|
|
creator our.bowl
|
2021-03-11 02:22:24 +03:00
|
|
|
config [%group ~]
|
2021-02-01 06:25:00 +03:00
|
|
|
==
|
|
|
|
|
=/ met-action=action:metadata
|
|
|
|
|
[%add rid groups+rid metadatum]
|
|
|
|
|
;< ~ bind:m (poke-our %metadata-store %metadata-action !>(met-action))
|
|
|
|
|
;< ~ bind:m (poke-our %metadata-push-hook push-hook-act)
|
2021-02-02 01:19:25 +03:00
|
|
|
;< ~ bind:m (poke-our %contact-push-hook push-hook-act)
|
2021-02-01 06:25:00 +03:00
|
|
|
(pure:m !>(~))
|
|
|
|
|
|
|
|
|
|
|
