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: make |story-list use new types

Browse Source
This commit is contained in:
Yaseen 2022-01-20 16:01:01 -05:00
parent f491aa0384
commit a927d31629
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkg/arvo/gen/story-list.hoon
View File

@ -1,3 +1,4 @@
/- *story
::
::::
::
@ -9,10 +10,9 @@
:: 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
=/ 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
[story-text ~]
[tale-text ~]