Add generators for easier webship ops.

app/hood.hoon

@@ -164,6 +164,8 @@
 ++  poke-helm-nuke            (wrap poke-nuke):from-helm
 ++  poke-helm-begin           (wrap poke-begin):from-helm
 ++  poke-helm-spawn           (wrap poke-spawn):from-helm
+++  poke-helm-tlon-add-stream  (wrap poke-tlon-add-stream):from-helm
+++  poke-helm-tlon-init-web   (wrap poke-tlon-init-web):from-helm
 ++  poke-hood-sync            (wrap poke-sync):from-kiln
 ++  poke-hood-init-sync       (wrap poke-init-sync):from-kiln
 ++  poke-kiln-commit          (wrap poke-commit):from-kiln

gen/hood/tlon/add-stream.hoon

@@ -0,0 +1,9 @@
+::  tlon: add stream to local urbit-meta
+::
+::::  /gen/hood/tlon/add-stream/hoon
+  ::
+:-  %say
+|=  $:  {now/@da eny/@uvJ bec/beak}
+        {{web/ship $~} $~}
+    ==
+[%helm-tlon-add-stream web]

gen/hood/tlon/init-web.hoon

@@ -0,0 +1,9 @@
+::  tlon: configure web ship
+::
+::::  /gen/hood/tlon/init-web/hoon
+  ::
+:-  %say
+|=  $:  {now/@da eny/@uvJ bec/beak}
+        {{met/ship $~} $~}
+    ==
+[%helm-tlon-init-web met]

lib/hood/helm.hoon

@@ -2,7 +2,7 @@
 ::::  /hoon/helm/hood/lib                               ::  ::
   ::                                                    ::  ::
 /?    310                                               ::  version
-/-    sole
+/-    sole, hall
 [. sole]
 ::                                                      ::  ::
 ::::                                                    ::  ::
@@ -60,6 +60,8 @@
       $%  {$hood-unsync desk ship desk}                 ::
           {$ask-mail cord}                              ::
           {$helm-hi cord}                               ::
+          {$drum-start well:gall}                       ::
+          {$hall-action action:hall}                    ::
       ==                                                ::
     --
 |_  moz/(list move)
@@ -238,4 +240,35 @@
 ++  take-woot                                         ::  result of %want
   |=  {way/wire her/ship cop/coop}  =<  abet
   (emit %flog ~ %text "woot: {<[way cop]>}")
+::
+++  poke-tlon-init-web
+  |=  met/ship  =<  abet
+  %-  emil
+  %-  flop
+  :~  ^-  card
+      :^  %poke  /helm/web/fora  [our %hood]
+      [%drum-start q.byk %fora]
+    ::
+      :^  %poke  /helm/web/stream/create  [our %hall]
+      :-  %hall-action
+      :-  %create
+      [%stream 'stream relay channel' %channel]
+    ::
+      :^  %poke  /helm/web/stream/filter  [our %hall]
+      :-  %hall-action
+      :-  %filter
+      [%stream | |]
+    ::
+      :^  %poke  /helm/web/stream/source  [our %hall]
+      :-  %hall-action
+      :-  %source
+      [%stream & [[[met %urbit-meta] `[da+(sub now ~d1) ~]] ~ ~]]
+  ==
+::
+++  poke-tlon-add-stream
+  |=  web/ship  =<  abet
+  %-  emit
+  :^  %poke  /helm/web/stream/source  [our %hall]
+  :+  %hall-action  %source
+  [%urbit-meta & [[[web %stream] `[da+now ~]] ~ ~]]
 --