story: fix |story-remove and allow it to remove a specific prose

This commit is contained in:
Yaseen 2022-02-05 20:44:26 -05:00
parent ce0fa85e18
commit 4a921ad68b

View File

@ -4,10 +4,10 @@
/- *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
@ -18,6 +18,9 @@
=? 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)]~]]