From 2626c32085b29200f6bbd1d82eda85014da85e7e Mon Sep 17 00:00:00 2001 From: Yaseen Date: Tue, 14 Dec 2021 14:31:09 -0500 Subject: [PATCH] story: let |story-set take a case and make it optional --- pkg/arvo/gen/hood/story-set.hoon | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pkg/arvo/gen/hood/story-set.hoon b/pkg/arvo/gen/hood/story-set.hoon index 07d29313b..400db3eb5 100644 --- a/pkg/arvo/gen/hood/story-set.hoon +++ b/pkg/arvo/gen/hood/story-set.hoon @@ -3,13 +3,14 @@ :: :- %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])