Merge branch 'chat-minor' (#1807)

* chat-minor:
  drum: Ensure dojo prompt on-boot
  chat-hook: Improve reap printf readability
  chat-cli: Remove prep printf

Signed-off-by: Jared Tobin <jared@tlon.io>

pkg/arvo/app/chat-cli.hoon

@@ -83,7 +83,6 @@
 ::
 ++  prep
   |=  old=(unit state)
-  ~&  %chat-cli-prep
   ?^  old
     [~ this(+<+ u.old)]
   =^  moves  this

pkg/arvo/app/chat-hook.hoon

@@ -258,8 +258,13 @@
   ?~  saw
     [~ this]
   ?>  ?=(^ wir)
-  ~&  %chat-hook-reap
-  [((slog u.saw) ~) this(synced (~(del by synced) t.wir))]
+  :_  this(synced (~(del by synced) t.wir))
+  %.  ~
+  %-  slog
+  :*  leaf+"chat-hook failed subscribe on {(spud t.wir)}"
+      leaf+"stack trace:"
+      u.saw
+  ==
 ::
 ++  chat-poke
   |=  act=chat-action

pkg/arvo/lib/hood/drum.hoon

@@ -273,9 +273,14 @@
 ::
 ++  se-adit                                           ::  update servers
   ^+  .
-  ::  ensure dojo connects after talk
-  =*  dojo-on-top  aor
-  %+  roll  (sort ~(tap in ray) dojo-on-top)
+  %+  roll
+    ::  ensure dojo is first in the list,
+    ::  guaranteeing its display on-boot.
+    ::
+    %+  sort  ~(tap in ray)
+    |=  [a=well:gall b=well:gall]
+    ?:  |(=(%dojo q.a) =(%dojo q.b))  =(%dojo q.a)
+    (aor a b)
   =<  .(con +>)
   |:  $:{wel/well:gall con/_..se-adit}  ^+  con
   =.  +>.$  con