diff --git a/app/hood.hoon b/app/hood.hoon index 0dfdbd2266..5e6e3a8692 100644 --- a/app/hood.hoon +++ b/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 diff --git a/gen/hood/tlon/add-stream.hoon b/gen/hood/tlon/add-stream.hoon new file mode 100644 index 0000000000..5bb1109987 --- /dev/null +++ b/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] diff --git a/gen/hood/tlon/init-web.hoon b/gen/hood/tlon/init-web.hoon new file mode 100644 index 0000000000..8cf44c1f7a --- /dev/null +++ b/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] diff --git a/lib/hood/helm.hoon b/lib/hood/helm.hoon index 9ae46687a9..fd5e3584ed 100644 --- a/lib/hood/helm.hoon +++ b/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 ~]] ~ ~]] --