Merge pull request #3521 from urbit/ted/link

graph import/export generators

pkg/arvo/app/graph-store.hoon

@@ -473,6 +473,22 @@
     :+  %0
       now.bowl
     [%add-graph [ship term] `graph:store`p.u.result q.u.result]
+  ::
+      ::  note: near-duplicate of /x/graph
+      ::
+      [%x %archive @ @ ~]
+    =/  =ship   (slav %p i.t.t.path)
+    =/  =term   i.t.t.t.path
+    =/  result=(unit marked-graph:store)
+      (~(get by archive) [ship term])
+    ?~  result
+      ~&  no-archived-graph+[ship term]
+      [~ ~]
+    :-  ~  :-  ~  :-  %graph-update
+    !>  ^-  update:store
+    :+  %0
+      now.bowl
+    [%add-graph [ship term] `graph:store`p.u.result q.u.result]
   ::
       [%x %graph-subset @ @ @ @ ~]
     =/  =ship  (slav %p i.t.t.path)

pkg/arvo/gen/graph-store/export-graph.hoon

@@ -0,0 +1,14 @@
+/+  graph-store
+::
+:-  %say
+|=  $:  [now=@da eny=@uvJ bec=beak]
+        [[=ship graph=term ~] ~]
+    ==
+:-  %graph-update
+=/  our  (scot %p p.bec)
+=/  wen  (scot %da now)
+=/  who  (scot %p ship)
+::
+.^  update:graph-store
+  /gx/[our]/graph-store/[wen]/archive/[who]/[graph]/graph-update
+==

pkg/arvo/gen/graph-store/import-graph.hoon

@@ -0,0 +1,9 @@
+/+  graph-store
+::
+:-  %say
+|=  $:  [now=@da eny=@uvJ bec=beak]
+        [[graph=term =path ~] ~]
+    ==
+:-  %graph-update
+=-  ~&  update=-  -
+.^(=update:graph-store %cx path)

pkg/arvo/mar/graph/update.hoon

@@ -1,15 +1,19 @@
 /+  *graph-store
+=*  as-octs  as-octs:mimes:html
+::
 |_  upd=update
 ++  grad  %noun
 ++  grow
   |%
   ++  noun  upd
   ++  json  (update:enjs upd)
+  ++  mime  [/application/x-urb-graph-update (as-octs (jam upd))]
   --
 ::
 ++  grab
   |%
   ++  noun  update
   ++  json  update:dejs
+  ++  mime  |=([* =octs] ;;(update (cue q.octs)))
   --
 --