mirror of
https://github.com/urbit/shrub.git
synced 2024-12-25 21:12:56 +03:00
20 lines
542 B
Plaintext
20 lines
542 B
Plaintext
|
/- spider, graph=graph-store, met=metadata-store, *group, group-store, push-hook
|
||
|
|
/+ strandio, resource, graph-view
|
||
|
|
=>
|
||
|
|
|%
|
||
|
|
++ strand strand:spider
|
||
|
|
++ poke poke:strandio
|
||
|
|
++ poke-our poke-our:strandio
|
||
|
|
--
|
||
|
|
=, strand=strand:spider
|
||
|
|
^- thread:spider
|
||
|
|
|= arg=vase
|
||
|
|
=/ m (strand ,vase)
|
||
|
|
^- form:m
|
||
|
|
=+ !<([~ pax=path] arg)
|
||
|
|
;< =bowl:spider bind:m get-bowl:strandio
|
||
|
|
=+ .^([rid=resource mar=marked-graph:graph] %cx pax)
|
||
|
|
;< ~ bind:m
|
||
|
|
(poke-our:strandio %graph-store %graph-update-3 !>([now.bowl %add-graph p.mar q.mar &]))
|
||
|
|
(pure:m *vase)
|