2021-03-12 00:37:29 +03:00
|
|
|
/- spider,
|
|
|
|
|
graph=graph-store,
|
|
|
|
|
met=metadata-store,
|
|
|
|
|
push-hook
|
|
|
|
|
/+ strandio, resource, graph-view
|
|
|
|
|
::
|
|
|
|
|
=* strand strand:spider
|
|
|
|
|
=* poke poke:strandio
|
|
|
|
|
=* poke-our poke-our:strandio
|
|
|
|
|
::
|
|
|
|
|
^- thread:spider
|
|
|
|
|
|= arg=vase
|
|
|
|
|
=/ m (strand ,vase)
|
|
|
|
|
^- form:m
|
|
|
|
|
=+ !<([~ =action:graph-view] arg)
|
|
|
|
|
?> ?=(%create-group-feed -.action)
|
|
|
|
|
;< =bowl:spider bind:m get-bowl:strandio
|
|
|
|
|
?. =(our.bowl entity.group.action)
|
|
|
|
|
(strand-fail:strandio %bad-request ~)
|
|
|
|
|
=/ feed-rid=resource
|
|
|
|
|
:- entity.group.action
|
|
|
|
|
%- crip
|
|
|
|
|
%+ weld (trip name.group.action)
|
|
|
|
|
%+ weld "-"
|
|
|
|
|
(trip (scot %ud (mod eny.bowl 10.000)))
|
2021-03-16 01:28:45 +03:00
|
|
|
;< association=(unit association:met) bind:m
|
|
|
|
|
%+ scry:strandio (unit association:met)
|
2021-03-12 00:37:29 +03:00
|
|
|
%- zing
|
2021-03-16 01:28:45 +03:00
|
|
|
:~ /gx/metadata-store/metadata/groups
|
2021-03-12 00:37:29 +03:00
|
|
|
(en-path:resource group.action)
|
|
|
|
|
/noun
|
|
|
|
|
==
|
2021-03-16 01:28:45 +03:00
|
|
|
?~ association
|
2021-03-12 00:37:29 +03:00
|
|
|
~|('No group exists, cannot make group feed.' !!)
|
2021-03-16 01:28:45 +03:00
|
|
|
=* metadatum metadatum.u.association
|
|
|
|
|
?> ?=(%group -.config.metadatum)
|
|
|
|
|
?> ?| ?=(~ feed.config.metadatum)
|
|
|
|
|
?=([~ ~] feed.config.metadatum)
|
2021-03-12 00:37:29 +03:00
|
|
|
==
|
|
|
|
|
;< ~ bind:m
|
|
|
|
|
%+ poke-our %graph-store
|
2021-03-24 22:51:49 +03:00
|
|
|
:- %graph-update-1
|
2021-03-12 00:37:29 +03:00
|
|
|
!> ^- update:graph
|
2021-03-24 22:51:49 +03:00
|
|
|
[now.bowl %add-graph feed-rid *graph:graph `%graph-validator-post %&]
|
2021-03-12 00:37:29 +03:00
|
|
|
;< ~ bind:m
|
|
|
|
|
(poke-our %graph-push-hook %push-hook-action !>([%add feed-rid]))
|
|
|
|
|
;< ~ bind:m
|
|
|
|
|
%+ poke-our %metadata-push-hook
|
2021-03-24 05:53:51 +03:00
|
|
|
:- %metadata-update-1
|
2021-03-12 00:37:29 +03:00
|
|
|
!> ^- action:met
|
|
|
|
|
:^ %add
|
|
|
|
|
group.action
|
2021-03-16 01:28:45 +03:00
|
|
|
groups+group.action
|
|
|
|
|
metadatum(feed.config ``[%graph feed-rid])
|
2021-03-12 00:37:29 +03:00
|
|
|
;< ~ bind:m
|
|
|
|
|
%+ poke-our %metadata-push-hook
|
2021-03-24 05:53:51 +03:00
|
|
|
:- %metadata-update-1
|
2021-03-12 00:37:29 +03:00
|
|
|
!> ^- action:met
|
|
|
|
|
:^ %add
|
|
|
|
|
group.action
|
|
|
|
|
graph+feed-rid
|
|
|
|
|
%* . *metadatum:met
|
|
|
|
|
title 'Group Feed'
|
|
|
|
|
date-created now.bowl
|
|
|
|
|
creator our.bowl
|
|
|
|
|
config [%graph %post]
|
|
|
|
|
preview %.n
|
|
|
|
|
hidden %.y
|
2021-04-02 00:08:30 +03:00
|
|
|
vip vip.action
|
2021-03-12 00:37:29 +03:00
|
|
|
==
|
2021-03-23 07:03:34 +03:00
|
|
|
(pure:m !>(feed-rid))
|
