graph-store: expose post:enjs

pkg/arvo/lib/graph-store.hoon

@@ -34,6 +34,77 @@
 ++  enjs
   =,  enjs:format
   |%
+  ::
+  ++  signatures
+    |=  s=^signatures
+    ^-  json
+    [%a (turn ~(tap in s) signature)]
+  ::
+  ++  signature
+    |=  s=^signature
+    ^-  json
+    %-  pairs
+    :~  [%signature s+(scot %ux p.s)]
+        [%ship (ship q.s)]
+        [%life (numb r.s)]
+    ==
+  ::
+  ++  index
+    |=  i=^index
+    ^-  json
+    =/  j=^tape  ""
+    |-
+    ?~  i  [%s (crip j)]
+    =/  k=json  (numb i.i)
+    ?>  ?=(%n -.k)
+    %_  $
+        i  t.i
+        j  (weld j (weld "/" (trip +.k)))
+    ==
+  ::
+  ++  uid
+    |=  u=^uid
+    ^-  json
+    %-  pairs
+    :~  [%resource (enjs:res resource.u)]
+        [%index (index index.u)]
+    ==
+  ::
+  ++  content
+    |=  c=^content
+    ^-  json
+    ?-  -.c
+        %text       (frond %text s+text.c)
+        %url        (frond %url s+url.c)
+        %reference  (frond %reference (uid uid.c))
+        %code
+      %+  frond  %code
+      %-  pairs
+      :-  [%expression s+expression.c]
+      :_  ~
+      :-  %output
+      ::  virtualize output rendering, +tank:enjs:format might crash
+      ::
+      =/  result=(each (list json) tang)
+        (mule |.((turn output.c tank)))
+      ?-  -.result
+        %&  a+p.result
+        %|  a+[a+[%s '[[output rendering error]]']~]~
+      ==
+    ==
+  ::
+  ++  post
+    |=  p=^post
+    ^-  json
+    %-  pairs
+    :~  [%author (ship author.p)]
+        [%index (index index.p)]
+        [%time-sent (time time-sent.p)]
+        [%contents [%a (turn contents.p content)]]
+        [%hash ?~(hash.p ~ s+(scot %ux u.hash.p))]
+        [%signatures (signatures signatures.p)]
+    ==
+  ::
   ++  update
     |=  upd=^update
     ^-  json
@@ -132,20 +203,6 @@
       :~  (index [a]~)
           (node n)
       ==
-    ::
-    ++  index
-      |=  i=^index
-      ^-  json
-      =/  j=^tape  ""
-      |-
-      ?~  i  [%s (crip j)]
-      =/  k=json  (numb i.i)
-      ?>  ?=(%n -.k)
-      %_  $
-          i  t.i
-          j  (weld j (weld "/" (trip +.k)))
-      ==
-    ::
     ++  node
       |=  n=^node
       ^-  json
@@ -158,41 +215,7 @@
           ==
       ==
     ::
-    ++  post
+            ::
-      |=  p=^post
-      ^-  json
-      %-  pairs
-      :~  [%author (ship author.p)]
-          [%index (index index.p)]
-          [%time-sent (time time-sent.p)]
-          [%contents [%a (turn contents.p content)]]
-          [%hash ?~(hash.p ~ s+(scot %ux u.hash.p))]
-          [%signatures (signatures signatures.p)]
-      ==
-    ::
-    ++  content
-      |=  c=^content
-      ^-  json
-      ?-  -.c
-          %text       (frond %text s+text.c)
-          %url        (frond %url s+url.c)
-          %reference  (frond %reference (uid uid.c))
-          %code
-        %+  frond  %code
-        %-  pairs
-        :-  [%expression s+expression.c]
-        :_  ~
-        :-  %output
-        ::  virtualize output rendering, +tank:enjs:format might crash
-        ::
-        =/  result=(each (list json) tang)
-          (mule |.((turn output.c tank)))
-        ?-  -.result
-          %&  a+p.result
-          %|  a+[a+[%s '[[output rendering error]]']~]~
-        ==
-      ==
-    ::
     ++  nodes
       |=  m=(map ^index ^node)
       ^-  json
@@ -210,27 +233,6 @@
       ^-  json
       [%a (turn ~(tap in i) index)]
     ::
-    ++  uid
-      |=  u=^uid
-      ^-  json
-      %-  pairs
-      :~  [%resource (enjs:res resource.u)]
-          [%index (index index.u)]
-      ==
-    ::
-    ++  signatures
-      |=  s=^signatures
-      ^-  json
-      [%a (turn ~(tap in s) signature)]
-    ::
-    ++  signature
-      |=  s=^signature
-      ^-  json
-      %-  pairs
-      :~  [%signature s+(scot %ux p.s)]
-          [%ship (ship q.s)]
-          [%life (numb r.s)]
-      ==
     --
   --
 ::