2021-03-05 04:09:41 +03:00
|
|
|
/- spider, graph=graph-store, met=metadata-store, *group, group-store, push-hook
|
2020-09-25 05:07:21 +03:00
|
|
|
/+ strandio, resource, graph-view
|
|
|
|
|
=>
|
2020-11-25 18:49:17 +03:00
|
|
|
|%
|
2020-09-25 05:07:21 +03:00
|
|
|
++ strand strand:spider
|
|
|
|
|
++ poke poke:strandio
|
|
|
|
|
++ poke-our poke-our:strandio
|
|
|
|
|
--
|
|
|
|
|
=, strand=strand:spider
|
|
|
|
|
^- thread:spider
|
|
|
|
|
|= arg=vase
|
|
|
|
|
=/ m (strand ,vase)
|
|
|
|
|
^- form:m
|
2020-11-25 18:49:17 +03:00
|
|
|
=+ !<
|
2020-12-02 01:38:02 +03:00
|
|
|
[~ rid=resource title=@t description=@t group=resource module=@t ~]
|
2020-10-16 18:42:31 +03:00
|
|
|
arg
|
2020-09-25 05:07:21 +03:00
|
|
|
;< =bowl:spider bind:m get-bowl:strandio
|
|
|
|
|
:: unarchive graph and share it
|
|
|
|
|
;< ~ bind:m
|
2021-04-14 23:49:54 +03:00
|
|
|
(poke-our %graph-store %graph-update-2 !>([now.bowl %unarchive-graph rid]))
|
2020-09-25 05:07:21 +03:00
|
|
|
;< ~ bind:m
|
|
|
|
|
(poke-our %graph-push-hook %push-hook-action !>([%add rid]))
|
|
|
|
|
::
|
|
|
|
|
:: Setup metadata
|
|
|
|
|
::
|
2021-03-05 04:09:41 +03:00
|
|
|
=/ =metadatum:met
|
|
|
|
|
%* . *metadatum:met
|
2020-09-25 05:07:21 +03:00
|
|
|
title title
|
|
|
|
|
description description
|
|
|
|
|
date-created now.bowl
|
|
|
|
|
creator our.bowl
|
2021-03-11 02:22:24 +03:00
|
|
|
config [%graph module]
|
2020-09-25 05:07:21 +03:00
|
|
|
==
|
|
|
|
|
;< ~ bind:m
|
2021-03-05 04:09:41 +03:00
|
|
|
%+ poke-our %metadata-push-hook
|
|
|
|
|
:- %metadata-action
|
|
|
|
|
!> ^- action:met
|
|
|
|
|
[%add group [%graph rid] metadatum]
|
|
|
|
|
;< ~ bind:m
|
|
|
|
|
%+ poke-our %metadata-push-hook
|
|
|
|
|
:- %push-hook-action
|
|
|
|
|
!> ^- action:push-hook
|
|
|
|
|
[%add group]
|
2020-09-25 05:07:21 +03:00
|
|
|
(pure:m !>(~))
|
