2020-05-15 01:50:04 +03:00
|
|
|
/+ *group-store
|
2019-09-25 23:31:31 +03:00
|
|
|
=, dejs:format
|
2020-05-15 01:50:04 +03:00
|
|
|
|_ act=action
|
2019-09-25 23:31:31 +03:00
|
|
|
++ grab
|
|
|
|
|
|%
|
2020-05-15 01:50:04 +03:00
|
|
|
++ noun 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]
|
|
|
|
|
:: ==
|
|
|
|
|
:: --
|
2019-09-25 23:31:31 +03:00
|
|
|
--
|
|
|
|
|
--
|
