mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-14 17:41:33 +03:00
24 lines
453 B
Plaintext
24 lines
453 B
Plaintext
!:
|
|
:: /=main=/toy/hi/hoon
|
|
::
|
|
|= *
|
|
|= [bud=@p ebb=$|(~ [tex=tape ~])]
|
|
^- bowl
|
|
:- :~ [%sq bud %hi /request ?~(ebb '' (rap 3 tex.ebb))]
|
|
==
|
|
:- ~
|
|
:- ^- (list slip)
|
|
:~ [/request [%ow ~]]
|
|
[/prompt [%up %none "waiting for {(scow %p bud)}" ~]]
|
|
==
|
|
|= [now=@da pax=path nut=note]
|
|
?> =(/request pax)
|
|
?> ?=(%ow -.nut)
|
|
:- ?: =(%good p.nut)
|
|
~
|
|
:_ ~
|
|
:- %ha
|
|
:- %leaf
|
|
"hi: {(scow %p bud)} rejected a message"
|
|
~
|