settings: add mark for scry result for frontend scry json conversion

pkg/arvo/app/settings-store.hoon

@@ -76,13 +76,13 @@
     ^-  (unit (unit cage))
     ?+  pax  (on-peek:def pax)
         [%x %all ~]
-      ``noun+!>(settings)
+      ``settings-data+!>(all+settings)
     ::
         [%x %bucket @ ~]
       =*  buc  i.t.t.pax
       =/  bucket=(unit bucket)  (~(get by settings) buc)
       ?~  bucket  [~ ~]
-      ``noun+!>(u.bucket)
+      ``settings-data+!>(bucket+u.bucket)
     ::
         [%x %entry @ @ ~]
       =*  buc  i.t.t.pax
@@ -90,7 +90,7 @@
       =/  =bucket  (fall (~(get by settings) buc) ~)
       =/  entry=(unit val)  (~(get by bucket) key)
       ?~  entry  [~ ~]
-      ``noun+!>(u.entry)
+      ``settings-data+!>(entry+u.entry)
     ==
   ::
   ++  on-agent  on-agent:def

pkg/arvo/lib/settings.hoon

@@ -3,6 +3,21 @@
 ++  enjs
   =,  enjs:format
   |%
+  ++  data
+    |=  dat=^data
+    ^-  json
+    %+  frond  -.dat
+    ?-  -.dat
+      %all     (settings +.dat)
+      %bucket  (bucket +.dat)
+      %entry   (value +.dat)
+    ==
+  ::
+  ++  settings
+    |=  s=^settings
+    ^-  json
+    [%o (~(run by s) bucket)]
+  ::
   ++  event
     |=  evt=^event
     ^-  json

pkg/arvo/mar/settings/data.hoon

@@ -0,0 +1,13 @@
+/+  *settings
+|_  dat=data
+++  grad  %noun
+++  grow
+  |%
+  ++  noun  dat
+  ++  json  (data:enjs dat)
+  --
+++  grab
+  |%
+  ++  noun  data
+  --
+--

pkg/arvo/sur/settings.hoon

@@ -13,4 +13,9 @@
       [%put-entry buc=key =key =val]
       [%del-entry buc=key =key]
   ==
++$  data
+  $%  [%all =settings]
+      [%bucket =bucket]
+      [%entry =val]
+  ==
 --