urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-25 13:04:17 +03:00
Code Issues Packages Projects Releases Wiki Activity

%group-on-leave thread: simplified and got it to compile

Browse Source
This commit is contained in:
Logan Allen 2020-11-30 16:59:30 -06:00
parent 2a47b18be7
commit 46fd3004bf
1 changed files with 25 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
pkg/arvo/ted/group/on-leave.hoon
View File

@ -5,37 +5,6 @@
=* raw-poke raw-poke:strandio
=* scry scry:strandio
::
=>
|%
++ remove-metadata
|= entries=(list [g=group-path:met m=md-resource:met])
^- form:m
|- ^- form:m
=* loop $
?~ entries
(pure:m !>(~))
;< ~ bind:m
%+ raw-poke
[our.bowl %metadata-store]
:- %metadata-action
!> ^- metadata-action:met
[%remove g.i.entries m.i.entries]
loop(entries t.entries)
::
++ archive-graphs
|= graphs=(list path)
|- ^- form:m
=* loop $
?~ graphs
(pure:m !>(~))
;< ~ bind:m
%+ raw-poke
[our.bowl %graph-store]
:- %graph-update
!> ^- update:gra
[%0 now.bowl [%archive-graph (de-path:res i.graphs)]]
loop(graphs t.graphs)
--
^- thread:spider
|= arg=vase
=/ m (strand ,vase)
@ -44,6 +13,8 @@
?. ?=(%remove-group -.update)
(pure:m !>(~))
;< =bowl:spider bind:m get-bowl:strandio
:: stop serving or syncing metadata associated with group
::
;< ~ bind:m
%+ raw-poke
[our.bowl %metadata-hook]
@ -51,7 +22,7 @@
!> ^- metadata-hook-action:hook
[%remove (en-path:res resource.update)]
::
:: get metadata associated with group and remove it
:: get metadata associated with group
;< =associations:met bind:m
%+ scry associations:met
;: weld
@ -59,11 +30,26 @@
(en-path:res resource.update)
/noun
==
=/ entries=(list [g=group-path:met m=md-resource:met])
~(tap in ~(key by associations))
|- ^- form:m
=* loop $
?~ entries
(pure:m !>(~))
:: remove metadata associated with group
::
;< ~ bind:m
(remove-metadata ~(tap in ~(key by associations)))
=/ graphs=(list path)
%+ turn ~(tap in ~(key by associations))
|= [g=group-path:met m=md-resource:met]
^- path
app-path.m
(archive-graphs graphs)
%+ raw-poke
[our.bowl %metadata-store]
:- %metadata-action
!> ^- metadata-action:met
[%remove g.i.entries m.i.entries]
:: archive graph associated with group
::
;< ~ bind:m
%+ raw-poke
[our.bowl %graph-store]
:- %graph-update
!> ^- update:gra
[%0 now.bowl [%archive-graph (de-path:res app-path.m.i.entries)]]
loop(entries t.entries)