mirror of
https://github.com/urbit/shrub.git
synced 2024-12-11 11:02:25 +03:00
137 lines
2.3 KiB
Plaintext
137 lines
2.3 KiB
Plaintext
::
|
|
:::: /hoon/action/publish/mar
|
|
::
|
|
/- *publish
|
|
=, format
|
|
::
|
|
|_ act=action
|
|
::
|
|
++ grad %noun
|
|
++ grow
|
|
|%
|
|
++ noun act
|
|
++ tank >act<
|
|
--
|
|
::
|
|
++ grab
|
|
|%
|
|
++ noun action
|
|
++ json
|
|
|= jon=^json
|
|
=, dejs:format
|
|
;; action
|
|
|^ %. jon
|
|
%- of
|
|
:~ new-book+new-book
|
|
new-note+new-note
|
|
new-comment+new-comment
|
|
edit-book+edit-book
|
|
edit-note+edit-note
|
|
edit-comment+edit-comment
|
|
del-book+del-book
|
|
del-note+del-note
|
|
del-comment+del-comment
|
|
subscribe+subscribe
|
|
unsubscribe+unsubscribe
|
|
read+read
|
|
groupify+groupify
|
|
==
|
|
::
|
|
++ new-book
|
|
%- ot
|
|
:~ book+so
|
|
title+so
|
|
about+so
|
|
coms+bo
|
|
group+group-info
|
|
==
|
|
::
|
|
++ new-note
|
|
%- ot
|
|
:~ who+(su fed:ag)
|
|
book+so
|
|
note+so
|
|
title+so
|
|
body+so
|
|
==
|
|
::
|
|
++ new-comment
|
|
%- ot
|
|
:~ who+(su fed:ag)
|
|
book+so
|
|
note+so
|
|
body+so
|
|
==
|
|
::
|
|
++ edit-book
|
|
%- ot
|
|
:~ book+so
|
|
title+so
|
|
about+so
|
|
coms+bo
|
|
group+(mu group-info)
|
|
==
|
|
::
|
|
++ edit-note
|
|
%- ot
|
|
:~ who+(su fed:ag)
|
|
book+so
|
|
note+so
|
|
title+so
|
|
body+so
|
|
==
|
|
::
|
|
++ edit-comment
|
|
%- ot
|
|
:~ who+(su fed:ag)
|
|
book+so
|
|
note+so
|
|
comment+so
|
|
body+so
|
|
==
|
|
::
|
|
++ del-book (ot book+so ~)
|
|
::
|
|
++ del-note (ot who+(su fed:ag) book+so note+so ~)
|
|
::
|
|
++ del-comment
|
|
%- ot
|
|
:~ who+(su fed:ag)
|
|
book+so
|
|
note+so
|
|
comment+so
|
|
==
|
|
++ subscribe
|
|
%- ot
|
|
:~ who+(su fed:ag)
|
|
book+so
|
|
==
|
|
++ unsubscribe
|
|
%- ot
|
|
:~ who+(su fed:ag)
|
|
book+so
|
|
==
|
|
++ read
|
|
%- ot
|
|
:~ who+(su fed:ag)
|
|
book+so
|
|
note+so
|
|
==
|
|
++ groupify
|
|
%- ot
|
|
:~ book+so
|
|
target+(mu pa)
|
|
inclusive+bo
|
|
==
|
|
++ group-info
|
|
%- ot
|
|
:~ group-path+pa
|
|
invitees+set-ship
|
|
use-preexisting+bo
|
|
make-managed+bo
|
|
==
|
|
++ set-ship (as (su fed:ag))
|
|
--
|
|
--
|
|
--
|