mirror of
https://github.com/urbit/shrub.git
synced 2025-01-01 00:51:59 +03:00
22 lines
445 B
Plaintext
22 lines
445 B
Plaintext
:: graph-store|add-post: add post to a graph
|
|
::
|
|
/- *graph-store
|
|
:- %say
|
|
|= $: [now=@da eny=@uvJ =beak]
|
|
[[him=ship contents=(list content) ~] ~]
|
|
==
|
|
=* our p.beak
|
|
=/ =post *post
|
|
=: author.post our
|
|
index.post ~[him now]
|
|
time-sent.post now
|
|
contents.post contents
|
|
==
|
|
::
|
|
:- %graph-update-1
|
|
^- update
|
|
:- now
|
|
:+ %add-nodes [our %inbox]
|
|
%- ~(gas by *(map index node))
|
|
~[[~[him now] [post [%empty ~]]]]
|