mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 12:43:31 +03:00
97 lines
1.9 KiB
Plaintext
97 lines
1.9 KiB
Plaintext
::
|
|
::
|
|
/? 309
|
|
::
|
|
/- hall
|
|
/+ chat, hall-json
|
|
::
|
|
|_ upd=update:chat
|
|
++ grow
|
|
|%
|
|
++ json
|
|
=, enjs:format
|
|
^- ^json
|
|
%+ frond %update
|
|
%- pairs
|
|
:~
|
|
::
|
|
:: %inbox
|
|
?: =(%inbox -.upd)
|
|
?> ?=(%inbox -.upd)
|
|
[%inbox (conf:enjs:hall-json con.upd)]
|
|
::
|
|
:: %message
|
|
?: =(%message -.upd)
|
|
?> ?=(%message -.upd)
|
|
:- %message
|
|
%- pairs
|
|
:~
|
|
[%circle (circ:enjs:hall-json cir.upd)]
|
|
[%envelope (enve:enjs:hall-json env.upd)]
|
|
==
|
|
::
|
|
:: %messages
|
|
?: =(%messages -.upd)
|
|
?> ?=(%messages -.upd)
|
|
:- %messages
|
|
%- pairs
|
|
:~
|
|
[%circle (circ:enjs:hall-json cir.upd)]
|
|
[%start (numb start.upd)]
|
|
[%end (numb end.upd)]
|
|
[%envelopes [%a (turn env.upd enve:enjs:hall-json)]]
|
|
==
|
|
::
|
|
:: %config
|
|
?: =(%config -.upd)
|
|
?> ?=(%config -.upd)
|
|
:- %config
|
|
%- pairs
|
|
:~
|
|
[%circle (circ:enjs:hall-json cir.upd)]
|
|
[%config (conf:enjs:hall-json con.upd)]
|
|
==
|
|
::
|
|
:: %circles
|
|
?: =(%circles -.upd)
|
|
?> ?=(%circles -.upd)
|
|
:- %circles
|
|
%- pairs
|
|
:~
|
|
:- %circles
|
|
:- %a
|
|
%+ turn ~(tap in cir.upd)
|
|
|= nom=name:hall
|
|
[%s nom]
|
|
==
|
|
::
|
|
:: %peers
|
|
?: =(%peers -.upd)
|
|
?> ?=(%peers -.upd)
|
|
:- %peers
|
|
%- pairs
|
|
:~
|
|
[%circle (circ:enjs:hall-json cir.upd)]
|
|
[%peers [%a (turn ~(tap in per.upd) ship:enjs:format)]]
|
|
==
|
|
::
|
|
:: %delete
|
|
?: =(%delete -.upd)
|
|
?> ?=(%delete -.upd)
|
|
:- %delete
|
|
%- pairs
|
|
:~
|
|
[%circle (circ:enjs:hall-json cir.upd)]
|
|
==
|
|
::
|
|
:: %noop
|
|
[*@t *^json]
|
|
==
|
|
--
|
|
::
|
|
++ grab
|
|
|%
|
|
++ noun update:chat
|
|
--
|
|
--
|