urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-20 01:01:37 +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 /- *story
:- %say :- %say
|= $: [now=@da eny=@uvJ bec=beak] |= $: [now=@da eny=@uvJ bec=beak]
[[=prose ~] =desk cas=cash ~] [[title=@t body=$@(~ [p=@t ~])] =desk cas=cash ~]
== ==
=/ our p.bec =/ our p.bec
=? desk =(*^desk desk) q.bec :: use current desk if user didn't provide =? 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." ~& >> "Error: No story file found. Please use |story-init to create one."
helm-pass+[%d %noop ~] helm-pass+[%d %noop ~]
=/ tale=story .^(story %cx /(scot %p our)/[desk]/(scot %da now)/story) =/ tale=story .^(story %cx /(scot %p our)/[desk]/(scot %da now)/story)
=/ =prose [title ?~(body '' p.body)]
=. tale (~(put ju tale) tak prose) =. tale (~(put ju tale) tak prose)
:- %helm-pass :- %helm-pass
[%c [%info desk %& [/story %ins story+!>(tale)]~]] [%c [%info desk %& [/story %ins story+!>(tale)]~]]