From 7edcd656992a538915e73a0c5783c6e2dde34b46 Mon Sep 17 00:00:00 2001
From: Isaac Visintainer <isaac.visintainer@gmail.com>
Date: Mon, 13 Apr 2020 13:33:34 -0700
Subject: [PATCH] publish: add facilities for managing limbo state

---
 pkg/arvo/app/publish.hoon | 45 ++++++++++++++++++++++++++++++++++++++-
 1 file changed, 44 insertions(+), 1 deletion(-)

diff --git a/pkg/arvo/app/publish.hoon b/pkg/arvo/app/publish.hoon
index 6299d973c..018ff4b3a 100644
--- a/pkg/arvo/app/publish.hoon
+++ b/pkg/arvo/app/publish.hoon
@@ -329,6 +329,11 @@
     |=  [mar=mark vas=vase]
     ^-  (quip card _this)
     ?+  mar  (on-poke:def mar vas)
+    ::
+        %noun
+      ?:  =(q.vas %flush-limbo)
+        [~ this(limbo [~ ~])]
+      [~ this]
     ::
         %handle-http-request
       =+  !<([id=@ta req=inbound-request:eyre] vas)
@@ -364,7 +369,45 @@
     ==
   ::
   ++  on-leave  on-leave:def
-  ++  on-peek   on-peek:def
+  ++  on-peek
+    |=  pax=path
+    ^-  (unit (unit cage))
+    ?+  pax  (on-peek:def pax)
+    ::
+        [%t %limbo ~]
+      :^  ~  ~  %noun
+      !>  ^-  (list path)
+      %+  weld
+        %+  turn  ~(tap by notes.limbo)
+        |=  [[who=@p book=@tas note=@tas] *]
+        ^-  path
+        /(scot %p who)/[book]/[note]
+      %+  turn  ~(tap by comments.limbo)
+      |=  [[who=@p book=@tas note=@tas comment=@da] *]
+      ^-  path
+      /(scot %p who)/[book]/[note]/(scot %ds comment)
+    ::
+        [%x %limbo @ @ @ ~]
+      =/  host=(unit @p)  (slaw %p i.t.t.pax)
+      ?~  host  [~ ~]
+      =/  book-name  i.t.t.t.pax
+      =/  note-name  i.t.t.t.t.pax
+      =/  note  (~(get by notes.limbo) u.host book-name note-name)
+      ?~  note  ~
+      ``noun+!>(u.note)
+    ::
+        [%x %limbo @ @ @ @ ~]
+      =/  host=(unit @p)           (slaw %p i.t.t.pax)
+      =/  comment-date=(unit @da)  (slaw %da i.t.t.t.t.t.pax)
+      ?~  host          [~ ~]
+      ?~  comment-date  [~ ~]
+      =/  book-name  i.t.t.t.pax
+      =/  note-name  i.t.t.t.t.pax
+      =/  comment
+        (~(get by comments.limbo) u.host book-name note-name u.comment-date)
+      ?~  comment  ~
+      ``noun+!>(u.comment)
+    ==
   ::
   ++  on-agent
     |=  [wir=wire sin=sign:agent:gall]