urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-11 11:02:25 +03:00
Code Issues Packages Projects Releases Wiki Activity

story: add generator |story-add

Browse Source
This commit is contained in:
Yaseen 2021-11-26 20:53:20 -05:00
parent 808e6ce763
commit 78468dc8ee
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pkg/arvo/gen/hood/story-add.hoon Normal file
View File

@ -0,0 +1,17 @@
::
::::
::
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
[[syd=desk =aeon:clay [title=@t body=@t] ~] ~]
==
::
:: 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/~)
=/ 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])
:- %helm-pass
[%c [%info syd %& [/story %ins story+!>(tale)]~]]