ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-22 07:59:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

better json mark conversion

Browse Source
This commit is contained in:
Anthony Arroyo 2018-06-08 09:53:01 -07:00
parent 1e734aef8c
commit bc48aad641
1 changed files with 28 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
mar/collections/action.hoon
View File

@ -16,20 +16,16 @@
=, dejs:format
:: %+ cu |=(action +<)
=< action
::(action a)
|%
++ action
|= a/json
^- action
%. a
%- of :~
create+create
delete+(ot col+(se %da) ~)
delete+delete
submit+submit
comment+comment
resubmit+(ot col+(se %da) top+(se %da) tit+so wat+wain ~)
delete-topic+(ot col+(se %da) top+(se %da) ~)
delete-comment+(ot col+(se %da) top+(se %da) com+(se %da) ~)
resubmit+resubmit
delete-topic+delete-topic
delete-comment+delete-comment
==
::
++ null-or-da
@ -37,6 +33,30 @@
%+ cu |=(a=coin ?+(a !! [%$ ^] p.a))
(su nuck:so.hoon)
::
++ resubmit
|= a=json
=+ ^- [col=@da top=@da tit=@t wat=wain]
%. a
(ot col+(se %da) top+(se %da) tit+so wat+wain ~)
[[~ col] top tit wat]
++ delete-topic
|= a=json
=+ ^- [col=@da top=@da]
%. a
(ot col+(se %da) top+(se %da) ~)
[[~ col] top]
++ delete-comment
|= a=json
=+ ^- [col=@da top=@da com=@da]
%. a
(ot col+(se %da) top+(se %da) com+(se %da) ~)
[[~ col] top com]
++ delete
|= a=json
=+ ^- col=@da
%. a
(ot col+(se %da) ~)
[[~ col]]
++ submit
|= a=json
^- [coll-full @t wain]