marks: add graph-view marks

pkg/arvo/lib/graph-view.hoon

@@ -0,0 +1,62 @@
+/-  sur=graph-view
+/+  resource, group-store
+^?
+=<  [sur .]
+=,  sur
+|%
+++  app-to-mark
+  |=  app=app-name
+  ?+  app  !!
+    %chat  %graph-validator-chat
+  ==
+++  dejs
+  =,  dejs:format
+  |%
+  ++  action
+    |^
+    ^-  $-(json ^action)
+    %-  of
+    :~  create+create
+        delete+delete
+        join+join
+        ::groupify+groupify
+        ::invite+invite
+    ==
+    ::
+    ++  create
+      %-  ot
+      :~  resource+dejs:resource
+          title+so
+          description+so
+          app+app
+          associated+associated
+      ==
+    ++  app
+      |=  jon=json
+      ^-  app-name
+      ?>  ?=(%s -.jon)
+      ~!  app-name
+      %chat
+    ::
+    ++  delete
+      %-  ot
+      :~  resource+dejs:resource
+      ==
+    ::
+    ++  join
+      %-  ot
+      :~  resource+dejs:resource
+          ship+(su ;~(pfix sig fed:ag))
+      ==
+    ::
+    ++  groupify  !!
+    ++  invite    !!
+    ++  associated
+      %-  of
+      :~  group+dejs:resource
+          policy+policy:dejs:group-store
+      ==
+
+    --
+  --
+--

pkg/arvo/lib/strandio.hoon

@@ -243,7 +243,8 @@
 ::
 ++  scry
   |*  [=mold =path]
-  =/  m  (strand mold)
+  =/  m  (strand ,mold)
+  ^-  form:m
   ?>  ?=(^ path)
   ?>  ?=(^ t.path)
   ;<  =bowl:spider  bind:m  get-bowl

pkg/arvo/mar/graph/update.hoon

@@ -1,7 +1,9 @@
 /+  *graph-store
 |_  upd=update
+++  grad  %noun
 ++  grow
   |%
+  ++  noun  upd
   ++  json  (update:enjs upd)
   --
 ::

pkg/arvo/mar/graph/view-action.hoon

@@ -0,0 +1,13 @@
+/+  *graph-view
+|_  act=action
+++  grad  %noun
+++  grow
+  |%
+  ++  noun  act
+  --
+++  grab
+  |%
+  ++  noun  action
+  ++  json  action:dejs
+  --
+--

pkg/arvo/sur/graph-view.hoon

@@ -1,7 +1,17 @@
-/-  group
+/-  *group
 /+  resource
 ^?
 |%
+::  $associated: A group to associate, or a policy if it is unmanaged
+::
++$  associated
+  $%  [%group rid=resource]
+      [%policy =policy]
+  ==
+::  $app: An app that is associated to a graph-store mark
+::
++$  app-name  ?(%chat %publish %links)
+::
 ::  $error: An error from a graph-view poke
 ::  
 ::    %offline: Ship is offline
@@ -24,13 +34,13 @@
         rid=resource
         title=@t
         description=@t
-        mark=(unit mark)
-        associated=(each resource policy:group)
+        app=app-name
+        =associated
     ==
-    [%delete rid=resource ~]
+    [%delete rid=resource]
     [%join rid=resource =ship] 
-    [%invite rid=resource ships=(set ship)]
-    [%groupify rid=resource title=@t description=@t]
+    ::[%invite rid=resource ships=(set ship)]
+    :: [%groupify rid=resource title=@t description=@t]
   ==
 --