story: fix |story-remove and allow it to remove a specific prose
/- *story
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
- [[syd=desk ~] cas=case ~]
+ [[syd=desk ~] cas=case prz=prose ~]
==
::
-:: Remove any commit message(s) for a given case and desk
+:: Remove any commit message(s) for a given desk, optionally targeting a specific case or prose
::
:: XX: story set and story init both have desk and case as optional.
:: however, it seems a bit odd to allow both optional here
=? cas =(*case cas) da+now :: use current commit if cas not provided
=/ tak .^(tako:clay %cs /(scot %p our)/[syd]/(scot cas)/tako/~)
=/ tale=story .^(story %cx /(scot %p our)/[syd]/(scot %da now)/story)
-=. tale (~(del ju tale) tak)
+=. tale
+ ?: =(*prose prz)
+ (~(del by tale) tak)
+ (~(del ju tale) tak prz)
:- %helm-pass
[%c [%info syd %& [/story %ins story+!>(tale)]~]]
\ No newline at end of file
