urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-20 01:01:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

hood: |doff generator

Browse Source
This commit is contained in:
Ted Blackman 2022-07-28 14:01:00 +02:00
parent 8d00cf1bd1
commit 7c222e4c60
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkg/arvo/gen/hood/doff.hoon Normal file
View File

@ -0,0 +1,5 @@
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
[~ ~]
==
[%helm-doff ~]

6
pkg/arvo/lib/hood/helm.hoon
View File

@ -252,6 +252,11 @@
=< abet =< abet
(emit %pass /helm/cors/reject %arvo %e %reject-origin origin) (emit %pass /helm/cors/reject %arvo %e %reject-origin origin)
:: ::
++ poke-doff
|= ~
=< abet
(emit %pass /helm/doff %arvo %g %doff ~)
::
++ poke ++ poke
|= [=mark =vase] |= [=mark =vase]
?> ?| ?=(%helm-hi mark) ?> ?| ?=(%helm-hi mark)
@ -269,6 +274,7 @@
%helm-code =;(f (f !<(_+<.f vase)) poke-code) %helm-code =;(f (f !<(_+<.f vase)) poke-code)
%helm-cors-approve =;(f (f !<(_+<.f vase)) poke-cors-approve) %helm-cors-approve =;(f (f !<(_+<.f vase)) poke-cors-approve)
%helm-cors-reject =;(f (f !<(_+<.f vase)) poke-cors-reject) %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-hi =;(f (f !<(_+<.f vase)) poke-hi)
%helm-knob =;(f (f !<(_+<.f vase)) poke-knob) %helm-knob =;(f (f !<(_+<.f vase)) poke-knob)
%helm-pans =;(f (f !<(_+<.f vase)) poke-pans) %helm-pans =;(f (f !<(_+<.f vase)) poke-pans)