graph-view: added %module field to %graph-view %create action

pkg/arvo/lib/graph-view.hoon

@@ -26,6 +26,7 @@
           description+(un so)
           mark+(uf ~ (mu so))
           associated+(un associated)
+          module+(un so)
       ==
     ::
     ++  leave

pkg/arvo/sur/graph-view.hoon

@@ -33,6 +33,7 @@
         description=@t
         mark=(unit mark)
         =associated
+        module=@t
     ==
     [%delete rid=resource]
     [%leave rid=resource]

pkg/arvo/ted/graph/create.hoon

@@ -47,10 +47,11 @@
 ::
 =/  =metadata
   %*  .  *metadata
-    title  title.action
-    description  description.action
+    title         title.action
+    description   description.action
     date-created  now.bowl
-    creator  our.bowl
+    creator       our.bowl
+    module        module.action
   ==
 =/  act=metadata-action
   [%add group-path graph+(en-path:resource rid.action) metadata]

pkg/arvo/ted/graph/groupify.hoon

@@ -30,8 +30,7 @@
   |=  rid=resource
   =/  m  (strand ,metadata)
   ^-  form:m
-  =/  enc-path=@t
-    (scot %t (spat (en-path:resource rid)))
+  =/  enc-path=@t  (scot %t (spat (en-path:resource rid)))
   ;<  umeta=(unit metadata)  bind:m
     %+  scry:strandio  (unit metadata)
     %+  weld  /gx/metadata-store/metadata
@@ -49,19 +48,17 @@
 ;<  =group  bind:m  (scry-group rid.action)
 ?.  hidden.group
   (strand-fail:strandio %bad-request ~)
-;<  =metadata  bind:m
-  (scry-metadatum rid.action)
+;<  =metadata  bind:m  (scry-metadatum rid.action)
 ?~  to.action
   ;<  ~  bind:m
     %+  poke-our  %contact-view
-    contact-view-action+!>([%groupify rid.action title.metadata description.metadata])
+    :-  %contact-view-action
+    !>([%groupify rid.action title.metadata description.metadata])
   (pure:m !>(~))
 ;<  new=^group  bind:m  (scry-group u.to.action)
 ?<  hidden.new
-=/  new-path
-  (en-path:resource u.to.action)
-=/  app-path
-  (en-path:resource rid.action)
+=/  new-path  (en-path:resource u.to.action)
+=/  app-path  (en-path:resource rid.action)
 =/  add-md=metadata-action
   [%add new-path graph+app-path metadata]
 ;<  ~  bind:m

pkg/arvo/ted/graph/join.hoon

@@ -37,7 +37,7 @@
 ?^  group
   ::  We have group, graph is managed
   ;<  ~  bind:m  
-     %+  poke-our   %graph-pull-hook
+     %+  poke-our  %graph-pull-hook
      pull-hook-action+!>([%add ship.action rid.action])
   (pure:m !>(~))
 :: Else, add group then join