2020-03-01 03:48:54 +03:00
|
|
|
/- *link-view
|
|
|
|
|
=, dejs:format
|
|
|
|
|
|_ act=view-action
|
|
|
|
|
++ grab
|
|
|
|
|
|%
|
|
|
|
|
++ noun view-action
|
|
|
|
|
++ json
|
2020-03-05 00:11:54 +03:00
|
|
|
|^ %- of
|
|
|
|
|
:~ %create^create
|
|
|
|
|
%delete^delete
|
|
|
|
|
%invite^invite
|
|
|
|
|
==
|
2020-03-03 02:12:05 +03:00
|
|
|
::
|
|
|
|
|
++ create
|
|
|
|
|
%- ot
|
|
|
|
|
:~ 'path'^pa
|
|
|
|
|
'title'^so
|
|
|
|
|
'description'^so
|
|
|
|
|
'members'^mems
|
|
|
|
|
'realGroup'^bo
|
|
|
|
|
==
|
2020-03-01 03:48:54 +03:00
|
|
|
::
|
|
|
|
|
++ mems
|
2020-03-05 00:11:54 +03:00
|
|
|
(of %group^pa %ships^ships ~)
|
|
|
|
|
::
|
|
|
|
|
++ delete
|
|
|
|
|
(ot 'path'^pa ~)
|
|
|
|
|
::
|
|
|
|
|
++ invite
|
|
|
|
|
(ot 'path'^pa 'ships'^ships ~)
|
|
|
|
|
::
|
|
|
|
|
::TODO stdlib
|
|
|
|
|
++ ships
|
|
|
|
|
(cu sy (ar (su ;~(pfix sig fed:ag))))
|
2020-03-01 03:48:54 +03:00
|
|
|
--
|
|
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
++ grow
|
|
|
|
|
|%
|
|
|
|
|
++ noun act
|
|
|
|
|
--
|
|
|
|
|
--
|
