urbit/mar/collections/action.hoon
Anton Dyudin 3d2640da26 basic %create web form
with corresponding &collections-action tweak to use less canonical urbit json format
2017-12-15 22:04:09 -08:00

53 lines
1.2 KiB
Plaintext

:: /action/collections/mar
::
/- collections
=, api:collections
|_ act=action
::
++ grow
|%
++ tank >act<
--
::
++ grab
|%
++ noun action
++ json
=, dejs:format
:: %+ cu |=(action +<)
=< action
|%
++ action
%- of :~
create+create
delete+(se %da)
submit+(ot col+(se %da) tit+so wat+wain ~)
comment+(ot col+(se %da) top+(se %da) com+(se %da) wat+wain ~)
==
::
++ create
:: (ot wat+(cu (hard kind) so) des+so pub+bo vis+bo ses+(as (se %p)) ~)
|= a=json
~| a
=+ ^- [wat=kind des=cord ses=(set @p)]
%. a
(ot kind+(cu (hard kind) so) desc+so mems+(su (cook sy (more ace fed:ag))) ~)
?> ?=([%o *] a)
=/ pub (~(has by p.a) %publ)
=/ vis (~(has by p.a) %visi)
[wat des pub vis ses]
::
++ wain (su (more (just '\0a') (cook crip (star prn))))
::
::
++ as |*(a=fist (cu sy (ar a))) :: array as set
++ se :: string as aura
=, wired
|* a=term
%+ cu
|= b=cord ^- (odo:raid a)
(slav a b)
so
-- --
--