story: add generator |story-init

This commit is contained in:
Yaseen 2021-12-14 14:31:38 -05:00
parent 2626c32085
commit 077c23b9e7

View File

@ -0,0 +1,15 @@
::
::::
::
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
[[~] =desk ~]
==
::
:: Create a story file for a given desk
::
=/ our p.bec
=? desk =(*^desk desk) q.bec :: use current desk if user didn't provide
=| tale=(map tako:clay [@t @t])
:- %helm-pass
[%c [%info desk %& [/story %ins story+!>(tale)]~]]