ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-19 12:51:51 +03:00
Code Issues Packages Projects Releases Wiki Activity

story: update |story-set to use new types

Browse Source
This commit is contained in:
Yaseen 2022-01-20 15:58:05 -05:00
parent b06df068c0
commit f491aa0384
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkg/arvo/gen/hood/story-set.hoon
View File

@ -1,9 +1,10 @@
/- *story
:: ::
:::: ::::
:: ::
:- %say :- %say
|= $: [now=@da eny=@uvJ bec=beak] |= $: [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) :: Add a commit message to a given case on a given desk (modifies in place)
@ -11,8 +12,7 @@
=/ our p.bec =/ our p.bec
=? cas =(*case cas) [%da now] :: set current commit when cas not provided =? cas =(*case cas) [%da now] :: set current commit when cas not provided
=/ tak .^(tako:clay %cs /(scot %p our)/[syd]/(scot cas)/tako/~) =/ tak .^(tako:clay %cs /(scot %p our)/[syd]/(scot cas)/tako/~)
=/ tale=(map tako:clay [@t @t]) =/ tale=story .^(story %cx /(scot %p our)/[syd]/(scot %da now)/story)
.^((map tako:clay [@t @t]) %cx /(scot %p our)/[syd]/(scot %da now)/story) =. tale (~(put ju tale) tak prose)
=. tale (~(put by tale) tak [title body])
:- %helm-pass :- %helm-pass
[%c [%info syd %& [/story %ins story+!>(tale)]~]] [%c [%info syd %& [/story %ins story+!>(tale)]~]]