diff --git a/ape/hood.hoon b/ape/hood.hoon index 38e41042ce..213c6936da 100644 --- a/ape/hood.hoon +++ b/ape/hood.hoon @@ -102,6 +102,7 @@ ++ poke-helm-reload (wrap poke-reload):from-helm ++ poke-helm-reload-desk (wrap poke-reload-desk):from-helm ++ poke-helm-reset (wrap poke-reset):from-helm +++ poke-helm-deset (wrap poke-deset):from-helm ++ poke-helm-send-hi (wrap poke-send-hi):from-helm ++ poke-helm-send-ask (wrap poke-send-ask):from-helm ++ poke-helm-verb (wrap poke-verb):from-helm diff --git a/gen/hood/deset.hoon b/gen/hood/deset.hoon new file mode 100644 index 0000000000..81cc8b1f57 --- /dev/null +++ b/gen/hood/deset.hoon @@ -0,0 +1,12 @@ +:: +:::: /hoon/deset/hood/gen + :: +/? 314 +:: +:::: + !: +:- %say +|= $: [now=@da eny=@uvI bec=beak] + [arg=~ ~] + == +[%helm-deset ~] diff --git a/lib/helm.hoon b/lib/helm.hoon index e8acf52506..05d6930411 100644 --- a/lib/helm.hoon +++ b/lib/helm.hoon @@ -32,6 +32,8 @@ == :: ++ hood-reset :: reset command ,~ :: +++ hood-deset :: reset command + ,~ :: ++ helm-verb :: reset command ,~ :: ++ hood-reload :: reload command @@ -150,6 +152,14 @@ =+ txt=((hard ,@) .^(%cx (welp way /hoon))) [%flog /reset %veer p way txt] :: +++ poke-deset :: deset system + |= hood-deset =< abet + %- emil + %- flop ^- (list card) + =+ top=`path`/(scot %p our)/home/(scot %da now)/arvo + :- [%flog /deset %vega (weld top `path`/hoon)] + ~ +:: ++ poke-will :: hear certificate |= wil=(unit will) ?> ?=(^ bur)