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

story: allow |story-write to also accept a lone title

Browse Source
This commit is contained in:
Yaseen 2022-03-11 11:00:57 -05:00
parent add4452589
commit 18537e0ae0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkg/arvo/gen/hood/story-write.hoon
View File

@ -5,7 +5,7 @@
/- *story
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
[[=prose ~] =desk cas=cash ~]
[[title=@t body=$@(~ [p=@t ~])] =desk cas=cash ~]
==
=/ our p.bec
=? desk =(*^desk desk) q.bec :: use current desk if user didn't provide
@ -26,6 +26,7 @@
~& >> "Error: No story file found. Please use |story-init to create one."
helm-pass+[%d %noop ~]
=/ tale=story .^(story %cx /(scot %p our)/[desk]/(scot %da now)/story)
=/ =prose [title ?~(body '' p.body)]
=. tale (~(put ju tale) tak prose)
:- %helm-pass
[%c [%info desk %& [/story %ins story+!>(tale)]~]]