mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 02:11:38 +03:00
19 lines
312 B
Plaintext
19 lines
312 B
Plaintext
|
/- *group-store
|
||
|
|
|%
|
||
|
|
++ groups-to-json
|
||
|
|
|= grp=groups
|
||
|
|
^- json
|
||
|
|
=, enjs:format
|
||
|
|
%- 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)]
|
||
|
|
--
|