2021-02-01 06:43:40 +03:00
|
|
|
/- spider,
|
|
|
|
|
metadata=metadata-store,
|
|
|
|
|
*group,
|
|
|
|
|
inv=invite-store,
|
|
|
|
|
store=group-store,
|
|
|
|
|
pull-hook
|
|
|
|
|
/+ strandio, resource, view=group-view
|
|
|
|
|
=>
|
|
|
|
|
|%
|
|
|
|
|
++ strand strand:spider
|
|
|
|
|
++ poke poke:strandio
|
|
|
|
|
++ poke-our poke-our:strandio
|
|
|
|
|
--
|
|
|
|
|
^- thread:spider
|
|
|
|
|
|= arg=vase
|
|
|
|
|
=/ m (strand ,vase)
|
|
|
|
|
=+ !<([~ =action:view] arg)
|
|
|
|
|
?> ?=(%leave -.action)
|
|
|
|
|
;< =bowl:spider bind:m get-bowl:strandio
|
|
|
|
|
=* rid resource.action
|
|
|
|
|
=/ pull-hook-act=cage
|
|
|
|
|
:- %pull-hook-action
|
|
|
|
|
!> ^- action:pull-hook
|
|
|
|
|
[%remove rid]
|
|
|
|
|
;< ~ bind:m (poke-our %metadata-pull-hook pull-hook-act)
|
|
|
|
|
;< ~ bind:m (poke-our %group-pull-hook pull-hook-act)
|
2021-02-01 09:27:38 +03:00
|
|
|
;< ~ bind:m (poke-our %group-store %group-update !>([%remove-group rid ~]))
|
|
|
|
|
;< ~ bind:m (cleanup-md:view rid)
|
2021-02-01 06:43:40 +03:00
|
|
|
(pure:m !>(~))
|
