urbit/pkg/arvo/lib/group-view.hoon

84 lines
1.6 KiB
Plaintext
Raw Normal View History

2021-02-01 06:43:40 +03:00
/- sur=group-view, spider
/+ resource, strandio, metadata=metadata-store, store=group-store
2021-01-29 07:52:56 +03:00
^?
=< [. sur]
=, sur
|%
++ dejs
=, dejs:format
|%
++ action
^- $-(json ^action)
2021-01-29 07:52:56 +03:00
%- of
:~ create+create
remove+remove
join+join
leave+leave
2021-01-29 07:52:56 +03:00
==
::
++ create
%- ot
:~ name+so
policy+policy:dejs:store
title+so
description+so
==
::
++ remove dejs:resource
::
++ leave dejs:resource
::
2021-01-29 07:52:56 +03:00
++ join
%- ot
:~ resource+dejs:resource
ship+(su ;~(pfix sig fed:ag))
2021-01-29 07:52:56 +03:00
==
--
::
++ enjs
=, enjs:format
|%
++ update
|= upd=^update
%+ frond %group-view-update
%+ frond -.upd
?- -.upd
%initial (initial +.upd)
%progress (progress +.upd)
==
::
++ progress
|= [rid=resource prog=^progress]
%- pairs
:~ resource+s+(enjs-path:resource rid)
progress+s+prog
==
::
++ initial
|= init=(map resource ^progress)
%- pairs
%+ turn ~(tap by init)
|= [rid=resource prog=^progress]
:_ s+prog
(enjs-path:resource rid)
2021-01-29 07:52:56 +03:00
--
2021-02-01 06:43:40 +03:00
++ cleanup-md
|= rid=resource
=/ m (strand:spider ,~)
^- form:m
;< =associations:metadata bind:m
%+ scry:strandio associations:metadata
%+ weld /metadata-store/group
(snoc (en-path:resource rid) %noun)
=/ assocs=(list [=md-resource:metadata association:metadata])
~(tap by associations)
|-
=* loop $
?~ assocs
(pure:m ~)
;< ~ bind:m
%+ poke-our:strandio %metadata-store
metadata-action+!>([%remove rid md-resource.i.assocs])
loop(assocs t.assocs)
2021-01-29 07:52:56 +03:00
--