hark-store: add %read-graph %read-group actions

pkg/arvo/app/hark-store.hoon

@@ -515,7 +515,11 @@
       %unread-note  (unread-note +.in)
     ::
       %seen-index   (seen-index +.in)
+    ::
       %remove-graph  (remove-graph +.in)
+      %read-graph    (read-graph +.in)
+      %read-group    (read-group +.in)
+    ::
       %set-dnd      (set-dnd +.in)
       %seen         seen
       %read-all     read-all
@@ -679,10 +683,53 @@
       (~(put by last-seen) stats-index new-time)
     (give %seen-index new-time stats-index)
   ::
+  ++  get-stats-indices
+    |=  rid=resource
+    %-  ~(gas ^in *(set stats-index:store))
+    %+  skim
+      ;:  weld
+        ~(tap ^in ~(key by unreads-count))
+        ~(tap ^in ~(key by last-seen))
+        ~(tap ^in ~(key by unreads-each))
+        ~(tap ^in ~(key by by-index))
+      ==
+    |=  =stats-index:store
+    ?.  ?=(%graph -.stats-index)  %.n
+    =(graph.stats-index rid)
+  ::
+  ++  read-all-each
+    |=  =stats-index:store
+    =/  refs=(list index:graph-store)
+      ~(tap ^in (~(get ju unreads-each) stats-index))
+    |-
+    ?~  refs  poke-core
+    $(refs t.refs, poke-core (read-each stats-index i.refs))
+  ::
+  ++  read-graph
+    |=  rid=resource
+    =/  indices=(list stats-index:store)
+      ~(tap ^in (get-stats-indices rid))
+    |-  
+    ?~  indices  poke-core
+    =*  index  i.indices
+    =?  poke-core  (~(has by unreads-count) index)
+      (read-count i.indices)
+    =?  poke-core  (~(has by unreads-each) index)
+      (read-all-each i.indices)
+    $(indices t.indices)
+  ::
+  ++  read-group
+    |=  rid=resource
+    =/  graphs=(list resource)
+      (graphs-of-group:met rid)
+    |-
+    ?~  graphs  poke-core
+    $(graphs t.graphs, poke-core (read-graph i.graphs))
+  ::
   ++  remove-graph
     |=  rid=resource
     |^  
-    =/  indices  get-stats-indices
+    =/  indices  (get-stats-indices rid)
     =.  poke-core
       (give %remove-graph rid)
     =.  poke-core
@@ -698,18 +745,6 @@
       ((dif-map-by-key ,(set [@da =index:store])) by-index indices)
     poke-core
     ::
-    ++  get-stats-indices
-      %-  ~(gas ^in *(set stats-index:store))
-      %+  skim
-        ;:  weld
-          ~(tap ^in ~(key by unreads-count))
-          ~(tap ^in ~(key by last-seen))
-          ~(tap ^in ~(key by unreads-each))
-          ~(tap ^in ~(key by by-index))
-        ==
-      |=  =stats-index:store
-      ?.  ?=(%graph -.stats-index)  %.n
-      =(graph.stats-index rid)
     ::
     ++  dif-map-by-key
       |*  value=mold

pkg/arvo/lib/hark/store.hoon

@@ -75,6 +75,8 @@
         add-note+add
         set-dnd+bo
         read-count+stats-index
+        read-graph+dejs-path:resource
+        read-group+dejs-path:resource
         read-each+read-graph-index
         read-all+ul
     ==

pkg/arvo/lib/metadata.hoon

@@ -95,4 +95,13 @@
   ^-  (unit resource)
   %+  bind  (peek-association md-resource)
   |=(association:store group)
+::
+++  graphs-of-group
+  |=  group=resource
+  =/  =associations:store
+    (metadata-for-group)
+  %+  murn  ~(tap in ~(key by associations))
+  |=  [=app-name:store rid=resource]
+  ?.(=(%graph app-name) ~ `rid)
+  
 --

pkg/arvo/sur/hark-store.hoon

@@ -166,6 +166,9 @@
       [%unread-note time=@da index]
     ::
       [%seen-index time=@da =stats-index]
+    ::
+      [%read-graph =resource]
+      [%read-group =resource]
       [%remove-graph =resource]
     ::
       [%read-all ~]