2020-04-30 06:29:06 +03:00
|
|
|
/- sur=chat-hook
|
|
|
|
|
^?
|
|
|
|
|
=< [sur .]
|
|
|
|
|
=, sur
|
2020-04-25 06:51:28 +03:00
|
|
|
|%
|
|
|
|
|
::
|
|
|
|
|
++ enjs
|
|
|
|
|
|%
|
|
|
|
|
++ update
|
|
|
|
|
|= upd=^update
|
|
|
|
|
=, enjs:format
|
|
|
|
|
^- json
|
|
|
|
|
%+ frond %chat-hook-update
|
|
|
|
|
%- pairs
|
|
|
|
|
%+ turn ~(tap by synced.upd)
|
|
|
|
|
|= [pax=^path shp=^ship]
|
|
|
|
|
^- [cord json]
|
|
|
|
|
[(spat pax) s+(scot %p shp)]
|
|
|
|
|
--
|
|
|
|
|
++ dejs
|
|
|
|
|
|%
|
|
|
|
|
::
|
|
|
|
|
++ action
|
|
|
|
|
|= jon=json
|
|
|
|
|
^- ^action
|
|
|
|
|
=, dejs:format
|
|
|
|
|
=< (parse-json jon)
|
|
|
|
|
|%
|
|
|
|
|
::
|
|
|
|
|
++ parse-json
|
|
|
|
|
%- of
|
|
|
|
|
:~ [%add-owned add-owned]
|
|
|
|
|
[%add-synced add-synced]
|
|
|
|
|
[%remove pa]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ add-owned
|
|
|
|
|
%- ot
|
|
|
|
|
:~ [%path pa]
|
|
|
|
|
[%allow-history bo]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ add-synced
|
|
|
|
|
%- ot
|
|
|
|
|
:~ [%ship (su ;~(pfix sig fed:ag))]
|
|
|
|
|
[%path pa]
|
|
|
|
|
[%ask-history bo]
|
|
|
|
|
==
|
|
|
|
|
--
|
|
|
|
|
--
|
|
|
|
|
--
|
