mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 09:51:36 +03:00
34 lines
579 B
Plaintext
34 lines
579 B
Plaintext
|
/+ *group-json
|
||
|
|
=, dejs:format
|
||
|
|
|_ act=group-action
|
||
|
|
++ grab
|
||
|
|
|%
|
||
|
|
++ noun group-action
|
||
|
|
++ json
|
||
|
|
|= jon=^json
|
||
|
|
=< (parse-group-action jon)
|
||
|
|
|%
|
||
|
|
++ parse-group-action
|
||
|
|
%- of
|
||
|
|
:~
|
||
|
|
[%add add-action]
|
||
|
|
[%remove remove-action]
|
||
|
|
[%bundle pa]
|
||
|
|
[%unbundle pa]
|
||
|
|
==
|
||
|
|
::
|
||
|
|
++ add-action
|
||
|
|
%- ot
|
||
|
|
:~ [%members (as (su ;~(pfix sig fed:ag)))]
|
||
|
|
[%path pa]
|
||
|
|
==
|
||
|
|
::
|
||
|
|
++ remove-action
|
||
|
|
%- ot
|
||
|
|
:~ [%members (as (su ;~(pfix sig fed:ag)))]
|
||
|
|
[%path pa]
|
||
|
|
==
|
||
|
|
--
|
||
|
|
--
|
||
|
|
--
|