mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 18:31:44 +03:00
20 lines
340 B
Plaintext
20 lines
340 B
Plaintext
|
/- *group-store
|
||
|
|
|%
|
||
|
|
++ groups-to-json
|
||
|
|
|= grp=groups
|
||
|
|
^- json
|
||
|
|
=, enjs:format
|
||
|
|
%+ frond %group-initial
|
||
|
|
%- pairs
|
||
|
|
%+ turn ~(tap by grp)
|
||
|
|
|= [pax=^path =group]
|
||
|
|
^- [@t json]
|
||
|
|
:- (spat pax)
|
||
|
|
(set-to-array group ship:enjs:format)
|
||
|
|
::
|
||
|
|
++ set-to-array
|
||
|
|
|* {a/(set) b/$-(* json)}
|
||
|
|
^- json
|
||
|
|
[%a (turn ~(tap in a) b)]
|
||
|
|
--
|