mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-17 11:51:32 +03:00
26 lines
486 B
Plaintext
26 lines
486 B
Plaintext
!:
|
|
:: /=main=/toy/hi/hoon
|
|
::
|
|
=> .(-< `who=@p`-<)
|
|
|= *
|
|
|= [ebb=$|(~ [tex=tape ~])]
|
|
=+ bud=(sein who)
|
|
^- bowl
|
|
:- :~ [%sq bud %ye /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"
|
|
~
|