shrub/main/bin/ye.hoon
Steven Dee 4025898428 Ye olde whitespace cleanup
Run using
  find . -type f | xargs sed -i '\s\+$'

And not even glanced at. It's fine. Don't worry about it.
2013-12-08 21:23:03 +00:00

26 lines
485 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"
~