From 7c222e4c60d946042fd06d858086a883bf8a0f7b Mon Sep 17 00:00:00 2001 From: Ted Blackman Date: Thu, 28 Jul 2022 14:01:00 +0200 Subject: [PATCH] hood: |doff generator --- pkg/arvo/gen/hood/doff.hoon | 5 +++++ pkg/arvo/lib/hood/helm.hoon | 6 ++++++ 2 files changed, 11 insertions(+) create mode 100644 pkg/arvo/gen/hood/doff.hoon diff --git a/pkg/arvo/gen/hood/doff.hoon b/pkg/arvo/gen/hood/doff.hoon new file mode 100644 index 0000000000..f8a1e0a538 --- /dev/null +++ b/pkg/arvo/gen/hood/doff.hoon @@ -0,0 +1,5 @@ +:- %say +|= $: [now=@da eny=@uvJ bec=beak] + [~ ~] + == +[%helm-doff ~] diff --git a/pkg/arvo/lib/hood/helm.hoon b/pkg/arvo/lib/hood/helm.hoon index 3fb38c7806..bc6c2aff1c 100644 --- a/pkg/arvo/lib/hood/helm.hoon +++ b/pkg/arvo/lib/hood/helm.hoon @@ -252,6 +252,11 @@ =< abet (emit %pass /helm/cors/reject %arvo %e %reject-origin origin) :: +++ poke-doff + |= ~ + =< abet + (emit %pass /helm/doff %arvo %g %doff ~) +:: ++ poke |= [=mark =vase] ?> ?| ?=(%helm-hi mark) @@ -269,6 +274,7 @@ %helm-code =;(f (f !<(_+<.f vase)) poke-code) %helm-cors-approve =;(f (f !<(_+<.f vase)) poke-cors-approve) %helm-cors-reject =;(f (f !<(_+<.f vase)) poke-cors-reject) + %helm-doff =;(f (f !<(_+<.f vase)) poke-doff) %helm-hi =;(f (f !<(_+<.f vase)) poke-hi) %helm-knob =;(f (f !<(_+<.f vase)) poke-knob) %helm-pans =;(f (f !<(_+<.f vase)) poke-pans)