urbit/pkg/arvo/gen/story-list.hoon
2021-11-25 17:02:29 -05:00

18 lines
476 B
Plaintext

::
::::
::
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
[[syd=desk ~] ~]
==
::
:: List all commit messages for the given desk
::
=/ our p.bec
=/ story=(map tako:clay [@t @t])
.^((map tako:clay [@t @t]) %cx /(scot %p our)/[syd]/(scot %da now)/story)
=/ story-to-mime .^($-((map tako:clay [@t @t]) mime) %cf /(scot %p our)/[syd]/(scot %da now)/story/mime)
=/ story-mime (story-to-mime story)
=/ story-text `@t`q.q.story-mime
:- %tang
[story-text ~]