::  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 ~]]]]