mirror of
https://github.com/urbit/shrub.git
synced 2025-01-05 11:09:30 +03:00
49 lines
938 B
Plaintext
49 lines
938 B
Plaintext
|
::
|
||
|
|
::
|
||
|
|
/? 309
|
||
|
|
::
|
||
|
|
/- hall
|
||
|
|
/+ chat, hall-json
|
||
|
|
::
|
||
|
|
|_ str=streams:chat
|
||
|
|
++ grow
|
||
|
|
|%
|
||
|
|
++ json
|
||
|
|
=, enjs:format
|
||
|
|
^- ^json
|
||
|
|
%+ frond %chat
|
||
|
|
%- pairs
|
||
|
|
:~
|
||
|
|
::
|
||
|
|
[%inbox (conf:enjs:hall-json inbox.str)]
|
||
|
|
::
|
||
|
|
:- %configs
|
||
|
|
%- pairs
|
||
|
|
%+ turn ~(tap by configs.str)
|
||
|
|
|= [cir=circle:hall con=(unit config:hall)]
|
||
|
|
^- [@t ^json]
|
||
|
|
:- (crip (circ:en-tape:hall-json cir))
|
||
|
|
?~(con ~ (conf:enjs:hall-json u.con))
|
||
|
|
::
|
||
|
|
:- %circles :- %a
|
||
|
|
%+ turn ~(tap in circles.str)
|
||
|
|
|= nom=name:hall
|
||
|
|
[%s nom]
|
||
|
|
::
|
||
|
|
:- %peers
|
||
|
|
%- pairs
|
||
|
|
%+ turn ~(tap by peers.str)
|
||
|
|
|= [cir=circle:hall per=(set @p)]
|
||
|
|
^- [@t ^json]
|
||
|
|
:- (crip (circ:en-tape:hall-json cir))
|
||
|
|
[%a (turn ~(tap in per) ship)]
|
||
|
|
::
|
||
|
|
==
|
||
|
|
--
|
||
|
|
::
|
||
|
|
++ grab
|
||
|
|
|%
|
||
|
|
++ noun streams:chat
|
||
|
|
--
|
||
|
|
--
|