2021-03-30 20:52:53 +03:00
|
|
|
/- *post, met=metadata-store, graph=graph-store, hark=hark-graph-hook
|
2021-03-05 21:26:30 +03:00
|
|
|
|_ i=indexed-post
|
|
|
|
|
++ grow
|
|
|
|
|
|%
|
|
|
|
|
++ noun i
|
2021-06-03 21:56:22 +03:00
|
|
|
::
|
|
|
|
|
++ graph-indexed-post
|
|
|
|
|
^- indexed-post
|
|
|
|
|
?> ?=(^ contents.p.i)
|
|
|
|
|
i
|
|
|
|
|
::
|
2021-03-05 21:26:30 +03:00
|
|
|
++ graph-permissions-add
|
|
|
|
|
|= vip=vip-metadata:met
|
2021-03-30 20:52:53 +03:00
|
|
|
^- permissions:graph
|
2021-04-02 05:11:24 +03:00
|
|
|
?. ?=([@ ~] index.p.i)
|
|
|
|
|
[%yes %yes %yes]
|
2021-04-02 04:48:09 +03:00
|
|
|
?+ vip [%yes %yes %yes]
|
2021-04-02 05:11:24 +03:00
|
|
|
%admin-feed [%yes %no %no]
|
2021-04-02 04:48:09 +03:00
|
|
|
%host-feed [%no %no %no]
|
|
|
|
|
==
|
2021-03-05 21:26:30 +03:00
|
|
|
::
|
|
|
|
|
++ graph-permissions-remove
|
|
|
|
|
|= vip=vip-metadata:met
|
2021-03-30 20:52:53 +03:00
|
|
|
^- permissions:graph
|
2021-03-05 21:26:30 +03:00
|
|
|
[%yes %self %self]
|
2021-03-29 03:31:32 +03:00
|
|
|
:: +notification-kind: don't track unreads, notify on replies
|
2021-03-05 21:26:30 +03:00
|
|
|
::
|
2021-03-23 08:29:07 +03:00
|
|
|
++ notification-kind
|
2021-03-30 20:52:53 +03:00
|
|
|
^- (unit notif-kind:hark)
|
2021-03-23 08:29:07 +03:00
|
|
|
=/ len (lent index.p.i)
|
2021-04-07 06:52:48 +03:00
|
|
|
=/ =mode:hark
|
|
|
|
|
?:(=(1 len) %count %none)
|
|
|
|
|
`[%post [(dec len) len] mode %children]
|
2021-03-23 08:29:07 +03:00
|
|
|
::
|
2021-03-24 05:08:44 +03:00
|
|
|
++ transform-add-nodes
|
2021-03-12 19:51:36 +03:00
|
|
|
|= [=index =post =atom was-parent-modified=?]
|
|
|
|
|
^- [^index ^post]
|
|
|
|
|
=- [- post(index -)]
|
|
|
|
|
?~ index !!
|
|
|
|
|
?: ?=([@ ~] index)
|
|
|
|
|
[atom ~]
|
|
|
|
|
?: was-parent-modified
|
|
|
|
|
~|(%cannot-submit-parents-with-prepopulated-children !!)
|
2021-03-16 01:28:45 +03:00
|
|
|
=/ ind=^index index
|
|
|
|
|
(snoc (snip ind) atom)
|
2021-03-05 21:26:30 +03:00
|
|
|
--
|
|
|
|
|
++ grab
|
|
|
|
|
|%
|
2021-06-03 21:56:22 +03:00
|
|
|
++ noun indexed-post
|
2021-03-05 21:26:30 +03:00
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
++ grad %noun
|
|
|
|
|
--
|
