2018-07-31 07:00:49 +03:00
|
|
|
::
|
|
|
|
|
:::: /hoon/actions/collection/mar
|
|
|
|
|
::
|
|
|
|
|
/? 309
|
|
|
|
|
/+ collections
|
|
|
|
|
=, collections
|
|
|
|
|
=, format
|
|
|
|
|
::
|
|
|
|
|
|_ act=action:collections
|
|
|
|
|
::
|
|
|
|
|
++ grow
|
|
|
|
|
|%
|
|
|
|
|
++ tank >act<
|
|
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
++ grab
|
|
|
|
|
|%
|
|
|
|
|
++ noun action:collections
|
|
|
|
|
++ json
|
2018-08-03 04:04:52 +03:00
|
|
|
|= jon=^json
|
|
|
|
|
%- (hard action:collections)
|
|
|
|
|
=< (action jon)
|
2018-07-31 07:00:49 +03:00
|
|
|
|%
|
|
|
|
|
++ action
|
|
|
|
|
%- ot:dejs
|
|
|
|
|
:~ ship+(su:dejs fed:ag)
|
|
|
|
|
desk+(su:dejs sym)
|
|
|
|
|
:- %acts
|
|
|
|
|
%- ar:dejs
|
|
|
|
|
%- of:dejs
|
|
|
|
|
:~ write+write
|
|
|
|
|
delete+delete
|
|
|
|
|
perms+perms
|
|
|
|
|
collection+collection
|
|
|
|
|
post+post
|
|
|
|
|
comment+comment
|
|
|
|
|
==
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ write
|
|
|
|
|
%- ot:dejs
|
|
|
|
|
:~ path+(su:dejs ;~(pfix fas (more fas urs:ab)))
|
|
|
|
|
mark+(su:dejs sym)
|
|
|
|
|
data+so:dejs
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ delete
|
|
|
|
|
%- ot:dejs
|
|
|
|
|
:~ path+(su:dejs ;~(pfix fas (more fas urs:ab)))
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ perms
|
|
|
|
|
%- ot:dejs
|
|
|
|
|
:~ path+(su:dejs ;~(pfix fas (more fas urs:ab)))
|
|
|
|
|
:- %read
|
|
|
|
|
%- ot:dejs
|
|
|
|
|
:~ mod+(su:dejs ;~(pose (jest %black) (jest %white)))
|
|
|
|
|
who+whoms
|
|
|
|
|
==
|
|
|
|
|
:- %write
|
|
|
|
|
%- ot:dejs
|
|
|
|
|
:~ mod+(su:dejs ;~(pose (jest %black) (jest %white)))
|
|
|
|
|
who+whoms
|
|
|
|
|
==
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ whoms
|
|
|
|
|
|= jon=^json
|
|
|
|
|
^- (set whom:clay)
|
|
|
|
|
=/ x ((ar:dejs (su:dejs fed:ag)) jon)
|
|
|
|
|
%- (hard (set whom:clay))
|
|
|
|
|
%- ~(run in (sy x))
|
|
|
|
|
|=(w=@ [& w])
|
|
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
++ collection
|
|
|
|
|
%- ot:dejs
|
|
|
|
|
:~ path+(su:dejs ;~(pfix fas (more fas urs:ab)))
|
|
|
|
|
name+sa
|
|
|
|
|
desc+so:dejs
|
|
|
|
|
comments+bo:dejs
|
|
|
|
|
visible+bo:dejs
|
2018-07-31 23:56:38 +03:00
|
|
|
type+(su:dejs sym)
|
2018-07-31 07:00:49 +03:00
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ post
|
|
|
|
|
%- ot:dejs
|
|
|
|
|
:~ path+(su:dejs ;~(pfix fas (more fas urs:ab)))
|
|
|
|
|
name+sa
|
2018-07-31 23:56:38 +03:00
|
|
|
type+(su:dejs sym)
|
2018-07-31 07:00:49 +03:00
|
|
|
comments+bo:dejs
|
|
|
|
|
content+so:dejs
|
2018-09-13 00:36:50 +03:00
|
|
|
edit+bo:dejs
|
2018-07-31 07:00:49 +03:00
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ comment
|
|
|
|
|
%- ot:dejs
|
|
|
|
|
:~ path+(su:dejs ;~(pfix fas (more fas urs:ab)))
|
|
|
|
|
content+so:dejs
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ sa :: string as ta
|
|
|
|
|
|= jon=^json
|
|
|
|
|
?> ?=([%s *] jon)
|
|
|
|
|
(scot %tas p.jon)
|
|
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
--
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
