/- sur=chat-view, *rw-security /+ group-store ^? =< [sur .] =, sur |% ++ dejs |% ++ action |= jon=json ^- ^action =, dejs:format =< (parse-json jon) |% ++ parse-json %- of :~ [%create create] [%delete delete] [%join join] [%groupify groupify] == :: ++ create %- ot :~ [%title so] [%description so] [%app-path pa] [%group-path pa] [%policy policy:dejs:group-store] [%members (as (su ;~(pfix sig fed:ag)))] [%allow-history bo] == :: ++ delete (ot [%app-path pa]~) :: ++ join %- ot :~ [%ship (su ;~(pfix sig fed:ag))] [%app-path pa] [%ask-history bo] == :: ++ groupify =- (ot [%app-path pa] [%existing -] ~) (mu (ot [%group-path pa] [%inclusive bo] ~)) -- -- --