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

story: make desk an optional param in story-list

Browse Source
This commit is contained in:
Yaseen 2022-02-05 20:44:26 -05:00
parent 4a921ad68b
commit fc5c7d53ea
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,16 +4,17 @@
/- *story /- *story
:- %say :- %say
|= $: [now=@da eny=@uvJ bec=beak] |= $: [now=@da eny=@uvJ bec=beak]
[[syd=desk ~] ~] [[~] =desk ~]
== ==
:: ::
:: (Internal) List all commit messages for the given desk, :: (Internal) List all commit messages for the given desk,
:: including orphans (i.e. ones that have no connection to the file graph) :: including orphans (i.e. ones that have no connection to the file graph)
:: ::
=/ our p.bec =/ our p.bec
=/ tale=story .^(story %cx /(scot %p our)/[syd]/(scot %da now)/story) =? desk =(*^desk desk) q.bec :: use current desk if user didn't provide
=/ story-to-mime .^($-(story mime) %cf /(scot %p our)/[syd]/(scot %da now)/story/mime) =/ tale=story .^(story %cx /(scot %p our)/[desk]/(scot %da now)/story)
=/ tale-mime (story-to-mime tale) =/ story-to-mime .^($-(story mime) %cf /(scot %p our)/[desk]/(scot %da now)/story/mime)
=/ tale-text `@t`q.q.tale-mime =/ tale-mime (story-to-mime tale)
=/ tale-text `@t`q.q.tale-mime
:- %tang :- %tang
[tale-text ~] [tale-text ~]