Various cleanups for demo.

base/ape/hood/core.hook

@@ -85,6 +85,7 @@
 ++  poke-hood-unix  (wrap poke-unix):from-kiln
 ++  poke-hood-verb  (wrap poke-verb):from-helm
 ++  poke-hood-begin   (wrap poke-begin):from-helm
+++  poke-hood-invite  (wrap poke-invite):from-helm
 ++  poke-hood-merge   (wrap poke-merge):from-kiln
 ++  poke-hood-reload  (wrap poke-reload):from-helm
 ++  poke-hood-reset   (wrap poke-reset):from-helm

base/cat/hood/invite/gate.hook

@@ -0,0 +1,11 @@
+::
+::::  /hook/gate/invite/hood/cat
+  ::
+/?  314
+::
+::::
+  !:
+|=  $:  [now=@da eny=@uvI bec=beak]
+        [[syd=desk dap=term ~] ~]
+    ==
+[%hood-invite syd dap]

base/cat/hood/start/gate.hook

@@ -6,6 +6,6 @@
 ::::
   !:
 |=  $:  [now=@da eny=@uvI bec=beak]
-        [[who=@p dap=term ~] ~]
+        [[syd=desk dap=term ~] ~]
     ==
 [%hood-start who dap]

base/lib/helm/core.hook

@@ -51,9 +51,13 @@
             [%conf wire dock %load ship term]           ::
             [%flog wire flog]                           ::
             [%plug wire @p @tas @p @tas]                ::
+            [%poke wire dock pear]                      ::
             [%want wire sock path *]                    ::  send message
         ==                                              ::
       ++  move  (pair bone card)                        ::  user-level move
+      ++  pear                                          ::  poke fruit
+        $%  [%talk-command command:talk]                ::
+        ==
       --
   |_  moz=(list move)
   ++  abet                                              ::  resolve
@@ -109,6 +113,12 @@
         [%veer ?:(=('z' tip) %$ tip) way (,@ .^(%cx way))]
     ==
   ::
+  ++  poke-invite                                       ::  send invite; fake
+    |=  [who=@p myl=@t]
+    %^  emit  %poke  /helm/invite
+    :-  [our %talk]
+    (said our %helm now eny [%leaf "sent invite: {<who>} at {(trip myl)}"]~)
+  ::
   ++  poke-reset                                        ::  reset system
     |=  hood-reset  =<  abet
     %-  emil

base/lib/kiln/core.hook

@@ -143,24 +143,7 @@
   ++  spam
     |=  mes=(list tank)
     %-  emit
-    :*  %poke  /kiln/spam
-        [our %talk]  %talk-command
-        ^-  command:talk
-        :-  %publish
-        %-  flop
-        =<  acc
-        %+  roll  mes
-        =<  .(eny ^eny)
-        |=  [tan=tank acc=(list thought:talk) eny=@uvI]
-        ^-  [acc=(list thought:talk) eny=@uvI]
-        =+  (sham eny mes)
-        :_  -
-        :_  acc
-        ^-  thought:talk
-        :+  -
-          [[[%& our (main our)] [*envelope:talk %pending]] ~ ~]
-        [now *bouquet:talk [%app (crip ~(ram re tan))]]
-    ==
+    [%poke /kiln/spam [our %talk] (said our %kiln now eny mes)]
   ::
   ++  auto
     |=  hood-sync

base/lib/talk/core.hook

@@ -16,4 +16,22 @@
     %czar  %court
     %king  %floor
   == 
+++  said                                                ::  app message
+  |=  [our=@p dap=term now=@da eny=@uvI mes=(list tank)]
+  :-  %talk-command
+  ^-  command
+  :-  %publish
+  %-  flop
+  =<  acc
+  %+  roll  mes
+  =<  .(eny ^eny)
+  |=  [tan=tank acc=(list thought) eny=@uvI]
+  ^-  [acc=(list thought) eny=@uvI]
+  =+  (sham eny mes)
+  :_  -
+  :_  acc
+  ^-  thought
+  :+  -
+    [[[%& our (main our)] [*envelope %pending]] ~ ~]
+  [now *bouquet [%app (crip ~(ram re tan))]]
 --