urbit/main/bin/ye.hoon

26 lines
485 B
Plaintext
Raw Normal View History

2013-09-29 00:21:18 +04:00
!:
2013-10-08 22:26:59 +04:00
:: /=main=/toy/hi/hoon
2013-09-29 00:21:18 +04:00
::
=> .(-< `who=@p`-<)
|= *
|= [ebb=$|(~ [tex=tape ~])]
=+ bud=(sein who)
^- bowl
2013-10-08 22:26:59 +04:00
:- :~ [%sq bud %ye /request ?~(ebb '' (rap 3 tex.ebb))]
==
2013-09-29 00:21:18 +04:00
:- ~
:- ^- (list slip)
2013-10-08 22:26:59 +04:00
:~ [/request [%ow ~]]
[/prompt [%up %none "waiting for {(scow %p bud)}" ~]]
2013-09-29 00:21:18 +04:00
==
|= [now=@da pax=path nut=note]
2013-10-08 22:26:59 +04:00
?> =(/request pax)
?> ?=(%ow -.nut)
:- ?: =(%good p.nut)
~
2013-09-29 00:21:18 +04:00
:_ ~
:- %ha
:- %leaf
2013-10-08 22:26:59 +04:00
"hi: {(scow %p bud)} rejected a message"
2013-09-29 00:21:18 +04:00
~