mirror of
https://github.com/urbit/shrub.git
synced 2024-11-28 22:33:06 +03:00
21 lines
433 B
Plaintext
21 lines
433 B
Plaintext
:: 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
|
|
==
|
|
::
|
|
:- %graph-update
|
|
^- update
|
|
:+ %0 now
|
|
:+ %add-nodes [our name]
|
|
%- ~(gas by *(map index node))
|
|
~[[[now]~ [post [%empty ~]]]]
|