graph-view: fix front-end

pkg/arvo/app/graph-push-hook.hoon

@@ -101,6 +101,7 @@
       %remove-graph
     :_  this
     [%give %kick ~[resource+(en-path:resource resource.update)] ~]~
+  ::
       %archive-graph
     :_  this
     [%give %kick ~[resource+(en-path:resource resource.update)] ~]~

pkg/arvo/app/graph-store.hoon

@@ -80,6 +80,7 @@
         ::
         ::  NOTE: cannot send these updates as pokes
         ::
+        ::  TODO: add ~| error message
         %keys               !!
         %tags               !!
         %tag-queries        !!

pkg/arvo/app/graph-view.hoon

@@ -209,7 +209,7 @@
         %all
       =/  keys  (scry-for resources:store /keys)
       :_  state
-      :-  (give con [%graph-view-update !>([%0 [%keys keys]])])
+      :-  (give con [%graph-update !>([%0 now.bowl [%keys keys]])])
       %+  turn  ~(tap in keys)
       |=  [=ship =term]
       (give con [%graph-update !>((add-graph ship term))])
@@ -218,22 +218,22 @@
       :_  state
       :_  ~
       %+  give  con
-      :-  %graph-view-update
-      !>([%0 [%keys (scry-for resources:store /keys)]])
+      :-  %graph-update
+      !>([%0 now.bowl [%keys (scry-for resources:store /keys)]])
     ::
         %tags
       :_  state
       :_  ~
       %+  give  con
-      :-  %graph-view-update
-      !>([%0 [%tags (scry-for (set term) /tags)]])
+      :-  %graph-update
+      !>([%0 now.bowl [%tags (scry-for (set term) /tags)]])
     ::
         %tag-queries
       :_  state
       :_  ~
       %+  give  con
-      :-  %graph-view-update
-      !>([%0 [%tag-queries (scry-for tag-queries:store /tag-queries)]])
+      :-  %graph-update
+      !>([%0 now.bowl [%tag-queries (scry-for tag-queries:store /tag-queries)]])
     ::
         %graph
       :_  state

pkg/arvo/lib/graph-view.hoon

@@ -4,6 +4,37 @@
 =<  [sur .]
 =,  sur
 |%
+++  enjs
+  =,  enjs:format
+  |%
+  ++  update
+    |=  upd=^update
+    ^-  json
+    ?>  ?=(%0 -.upd)
+    |^  (frond %graph-view-update (pairs ~[(encode +.upd)]))
+    ::
+    ++  encode
+      |=  upd=update-0
+      ^-  [cord json]
+      ?-  -.upd
+          %graph-subset
+        [%graph-subset ~]
+      ::
+          %node
+        [%node ~]
+      ::
+          %post
+        [%post ~]
+      ::
+          %node-children
+        [%node-children ~]
+      ::
+          %node-children-subset
+        [%node-children-subset ~]
+      ==
+    --
+  --
+::
 ++  dejs
   =,  dejs:format
   |%