shrub/pkg/arvo/gen/story-list.hoon

/-  *story
::
::::
  ::
:-  %say
|=  $:  [now=@da eny=@uvJ bec=beak]
        [[syd=desk ~] ~]
    ==
::
::  List all commit messages for the given desk
::
=/  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 ~]
story: make `\|story-list` use new types 2022-01-21 00:01:01 +03:00			`/- *story`
story: add generator `+story-list` 2021-11-26 01:02:29 +03:00			`::`
			`::::`
			`::`
			`:- %say`
			`\|= $: [now=@da eny=@uvJ bec=beak]`
			`[[syd=desk ~] ~]`
			`==`
			`::`
			`:: List all commit messages for the given desk`
			`::`
			`=/ our p.bec`
story: make `\|story-list` use new types 2022-01-21 00:01:01 +03:00			`=/ 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
story: add generator `+story-list` 2021-11-26 01:02:29 +03:00			`:- %tang`
story: make `\|story-list` use new types 2022-01-21 00:01:01 +03:00			`[tale-text ~]`