story: let |story-set take a case and make it optional
::
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
- [[syd=desk =aeon:clay [title=@t body=@t] ~] ~]
+ [[syd=desk [title=@t body=@t] ~] cas=case ~]
==
::
:: Add a commit message to a given case on a given desk (modifies in place)
::
=/ our p.bec
-=/ tak .^(tako:clay %cs /(scot %p our)/base/(scot %ud aeon)/tako/~)
+=? cas =(*case cas) [%da now] :: set current commit when cas not provided
+=/ tak .^(tako:clay %cs /(scot %p our)/base/(scot cas)/tako/~)
=/ tale=(map tako:clay [@t @t])
.^((map tako:clay [@t @t]) %cx /(scot %p our)/[syd]/(scot %da now)/story)
=. tale (~(put by tale) tak [title body])
