metadata + post validator + -graph-create-group-feed: end to end create group feed

This commit is contained in:
Logan Allen 2021-03-15 17:28:45 -05:00
parent 5d7677195e
commit c874849203
4 changed files with 16 additions and 11 deletions

View File

@ -67,6 +67,7 @@
::
[%picture s+picture.met]
[%preview b+preview.met]
[%hidden b+hidden.met]
[%vip s+`@t`vip.met]
==
::
@ -177,6 +178,7 @@
[%config config]
[%picture so]
[%preview bo]
[%hidden bo]
[%vip vip]
==
::

View File

@ -24,7 +24,8 @@
[atom ~]
?: was-parent-modified
~|(%cannot-submit-parents-with-prepopulated-children !!)
`^index`(snoc `^index`(snip index) atom)
=/ ind=^index index
(snoc (snip ind) atom)
--
++ grab
|%
@ -34,6 +35,7 @@
|= p=*
=/ ip ;;(indexed-post p)
?> ?=(^ contents.p.ip)
ip
--
::
++ grad %noun

View File

@ -44,7 +44,7 @@
config=md-config
picture=url
preview=?
hidden=?
hidden=_|
vip=vip-metadata
==
::

View File

@ -23,18 +23,19 @@
%+ weld (trip name.group.action)
%+ weld "-"
(trip (scot %ud (mod eny.bowl 10.000)))
;< metadatum=(unit metadatum:met) bind:m
%+ scry:strandio (unit metadatum:met)
;< association=(unit association:met) bind:m
%+ scry:strandio (unit association:met)
%- zing
:~ /gx/metadata-store/metadata/group
:~ /gx/metadata-store/metadata/groups
(en-path:resource group.action)
/noun
==
?~ metadatum
?~ association
~|('No group exists, cannot make group feed.' !!)
?> ?=(%group -.config.u.metadatum)
?> ?| ?=(~ feed.config.u.metadatum)
?=([~ ~] feed.config.u.metadatum)
=* metadatum metadatum.u.association
?> ?=(%group -.config.metadatum)
?> ?| ?=(~ feed.config.metadatum)
?=([~ ~] feed.config.metadatum)
==
;< ~ bind:m
%+ poke-our %graph-store
@ -49,8 +50,8 @@
!> ^- action:met
:^ %add
group.action
group+group.action
u.metadatum(feed.config ``[%graph feed-rid])
groups+group.action
metadatum(feed.config ``[%graph feed-rid])
;< ~ bind:m
%+ poke-our %metadata-push-hook
:- %metadata-update