story: update `|story-set` to use new types
+/- *story
::
::::
::
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
- [[syd=desk [title=@t body=@t] ~] cas=case ~]
+ [[syd=desk =prose ~] cas=case ~]
==
::
:: Add a commit message to a given case on a given desk (modifies in place)
=/ our p.bec
=? cas =(*case cas) [%da now] :: set current commit when cas not provided
=/ tak .^(tako:clay %cs /(scot %p our)/[syd]/(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])
+=/ tale=story .^(story %cx /(scot %p our)/[syd]/(scot %da now)/story)
+=. tale (~(put ju tale) tak prose)
:- %helm-pass
[%c [%info syd %& [/story %ins story+!>(tale)]~]]
\ No newline at end of file
