mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 18:01:32 +03:00
22 lines
433 B
Plaintext
22 lines
433 B
Plaintext
:: dm-hook|dm: DM somebody
|
|
::
|
|
/- *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-3
|
|
^- update
|
|
:- now
|
|
:+ %add-nodes [our %dm-inbox]
|
|
%- ~(gas by *(map index node))
|
|
~[[~[him now] [%&^post [%empty ~]]]]
|