Skip to content

Instantly share code, notes, and snippets.

@liam-fitzgerald
Created July 27, 2020 05:41
Show Gist options
  • Save liam-fitzgerald/4bd9692350a2a5e23c1d2cd464333c21 to your computer and use it in GitHub Desktop.
Save liam-fitzgerald/4bd9692350a2a5e23c1d2cd464333c21 to your computer and use it in GitHub Desktop.
/- spider
/+ strandio
/+ resource
=, strand=strand:spider
^- thread:spider
|= arg=vase
=/ m (strand ,vase)
^- form:m
;< =bowl:spider bind:m get-bowl:strandio
=/ groups=(list resource)
%+ turn
~(tap in ~(key by dir:.^(arch %gy /(scot %p our.bowl)/group-store/(scot %da now.bowl)/groups)))
|=(p=@ta (de-path:resource (stab p)))
|-
=* loop $
?~ groups
(pure:m !>("Done!"))
;< ~ bind:m
%+ poke-our:strandio
%metadata-hook
=/ =path
(en-path:resource i.groups)
:- %metadata-hook-action
!>
?: =(our.bowl entity.i.groups)
[%add-owned path]
[%add-synced entity.i.groups path]
loop(groups t.groups)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment