::
::::
  ::
/-  *story
:-  %say
|=  $:  [now=@da eny=@uvJ bec=beak]
        [[syd=desk ~] ~]
    ==
::
::  List all commit messages for the given desk
::
::  TODO remove this outdated generator, superseded by story-log
=/  our  p.bec
=/  tale=story  .^(story %cx /(scot %p our)/[syd]/(scot %da now)/story)
=/  story-to-mime  .^($-(story mime) %cf /(scot %p our)/[syd]/(scot %da now)/story/mime)
=/  tale-mime   (story-to-mime tale)
=/  tale-text  `@t`q.q.tale-mime
:-  %tang
[tale-text ~]