thread: %group-leave-graph now compiles
(pure:m !>(~))
::
:: get graphs associated with group and archive them
+;< =associations:met bind:m
+ %+ scry associations:met
+ ;: weld
+ /gx/metadata-store/resource/group
+ (en-path:res resource.update)
+ /noun
+ ==
=/ graphs=(list path)
- %+ turn
- %~ tap in
- %~ key by
- ^- associations:met
- %+ scry
- %noun
- (weld /group (en-path:res resource.update))
+ %+ turn ~(tap in ~(key by associations))
|= [g=group-path:met m=md-resource:met]
^- path
app-path.m
-|-
-?~ groups
+;< =bowl:spider bind:m get-bowl:strandio
+|- ^- form:m
+=* loop $
+?~ graphs
(pure:m !>(~))
;< ~ bind:m
- %+ poke-our %graph-store
- !> ^- update:graph-store
- [%archive-graph (de-path:res i.groups)]
-$(groups t.groups)
+ %^ poke-our
+ %graph-store
+ %graph-update
+ !> ^- update:gra
+ [%0 now.bowl [%archive-graph (de-path:res i.graphs)]]
+loop(graphs t.graphs)
