urbit/main/bin/hi.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

24 lines
452 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"
~