2021-09-06 06:31:11 +03:00
|
|
|
/- *post, met=metadata-store, hark=hark-graph-hook
|
|
|
|
|
/+ graph=graph-store
|
2020-07-28 22:03:09 +03:00
|
|
|
|_ i=indexed-post
|
2020-07-27 22:56:30 +03:00
|
|
|
++ grow
|
|
|
|
|
|%
|
2020-07-28 22:03:09 +03:00
|
|
|
++ noun i
|
2021-01-26 07:50:33 +03:00
|
|
|
::
|
2021-06-03 21:56:22 +03:00
|
|
|
++ graph-indexed-post
|
|
|
|
|
^- indexed-post
|
|
|
|
|
?> ?=([@ ~] index.p.i)
|
|
|
|
|
i
|
|
|
|
|
::
|
2021-01-26 07:50:33 +03:00
|
|
|
++ graph-permissions-add
|
|
|
|
|
|= vip=vip-metadata:met
|
2021-03-30 20:20:32 +03:00
|
|
|
^- permissions:graph
|
2021-01-26 07:50:33 +03:00
|
|
|
?+ index.p.i !!
|
|
|
|
|
[@ ~] [%yes %yes %no]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ graph-permissions-remove
|
|
|
|
|
|= vip=vip-metadata:met
|
2021-03-30 20:20:32 +03:00
|
|
|
^- permissions:graph
|
2021-01-26 07:50:33 +03:00
|
|
|
?+ index.p.i !!
|
|
|
|
|
[@ ~] [%self %self %no]
|
|
|
|
|
==
|
|
|
|
|
::
|
2020-11-24 08:39:53 +03:00
|
|
|
++ notification-kind
|
2021-09-06 06:31:11 +03:00
|
|
|
|= title=cord
|
2021-03-30 20:20:32 +03:00
|
|
|
^- (unit notif-kind:hark)
|
2020-11-24 08:39:53 +03:00
|
|
|
?+ index.p.i ~
|
2021-09-06 06:31:11 +03:00
|
|
|
[@ ~]
|
|
|
|
|
:- ~
|
|
|
|
|
:* ~[text+(rap 3 'New messages in ' title ~)]
|
|
|
|
|
[ship+author.p.i text+': ' (hark-contents:graph contents.p.i)]
|
|
|
|
|
[0 1] %count %none
|
|
|
|
|
==
|
2020-11-24 08:39:53 +03:00
|
|
|
==
|
2021-02-23 01:54:45 +03:00
|
|
|
::
|
|
|
|
|
++ transform-add-nodes
|
2021-02-24 21:25:53 +03:00
|
|
|
|= [=index =post =atom was-parent-modified=?]
|
2021-02-23 01:54:45 +03:00
|
|
|
^- [^index ^post]
|
2021-02-24 21:25:53 +03:00
|
|
|
=- [- post(index -)]
|
|
|
|
|
[atom ~]
|
2020-07-27 22:56:30 +03:00
|
|
|
--
|
2021-06-03 21:56:22 +03:00
|
|
|
::
|
|
|
|
|
++ grab
|
2020-07-22 03:37:28 +03:00
|
|
|
|%
|
2021-06-03 21:56:22 +03:00
|
|
|
++ noun indexed-post
|
2020-07-22 03:37:28 +03:00
|
|
|
--
|
2020-07-27 22:56:30 +03:00
|
|
|
::
|
|
|
|
|
++ grad %noun
|
2020-07-22 03:37:28 +03:00
|
|
|
--
|
