2020-07-28 22:03:09 +03:00
|
|
|
:: graph-store|add-post: add post to a graph
|
|
|
|
|
::
|
|
|
|
|
/- *graph-store
|
|
|
|
|
:- %say
|
|
|
|
|
|= $: [now=@da eny=@uvJ =beak]
|
|
|
|
|
[[[our=ship name=term] contents=(list content) ~] ~]
|
|
|
|
|
==
|
|
|
|
|
=/ =post *post
|
|
|
|
|
=: author.post our
|
|
|
|
|
index.post [now]~
|
|
|
|
|
time-sent.post now
|
|
|
|
|
contents.post contents
|
|
|
|
|
==
|
|
|
|
|
::
|
2021-04-14 23:49:54 +03:00
|
|
|
:- %graph-update-2
|
2020-07-28 22:03:09 +03:00
|
|
|
^- update
|
2021-03-18 04:50:14 +03:00
|
|
|
:- now
|
2020-07-28 22:03:09 +03:00
|
|
|
:+ %add-nodes [our name]
|
|
|
|
|
%- ~(gas by *(map index node))
|
2021-04-14 23:49:54 +03:00
|
|
|
~[[[now]~ [[%& post] [%empty ~]]]]
|
