urbit/gen/aqua/dojo.hoon
2019-04-10 18:49:20 -07:00

15 lines
308 B
Plaintext

/- aquarium
=, aquarium
:- %say
|= [* [her=ship command=tape ~] ~]
:- %aqua-events
%+ turn
^- (list unix-event)
:~ [//term/1 %belt %ctl `@c`%e]
[//term/1 %belt %ctl `@c`%u]
[//term/1 %belt %txt ((list @c) command)]
[//term/1 %belt %ret ~]
==
|= ue=unix-event
[%event her ue]