ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-19 04:41:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

story: add generator +story-list

Browse Source
This commit is contained in:
Yaseen 2021-11-25 17:02:29 -05:00
parent 163ed030d4
commit 808e6ce763
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pkg/arvo/gen/story-list.hoon Normal file
View File

@ -0,0 +1,18 @@
::
::::
::
:- %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 ~]