story: misc changes

This commit is contained in:
Yaseen 2022-01-25 14:54:30 -05:00
parent 194f3d55c6
commit 86ef82dbe1
3 changed files with 3 additions and 2 deletions

View File

@ -11,10 +11,9 @@
::
=/ our p.bec
=? desk =(*^desk desk) q.bec :: use current desk if user didn't provide
=/ existing-story .^(? %cu /(scot %p our)/[desk]/(scot %da now)/story)::
=/ existing-story .^(? %cu /(scot %p our)/[desk]/(scot %da now)/story)
?: ?&(existing-story !overwrite)
~& "Error: {<desk>}/story already exists. Set the optional parameter `overwrite` to `%.y` to forcibly wipe"
:: XX dumb hack to no-op because apparently type system doesn't like it when you mix %kiln-info and %helm-pass
:- %helm-pass [%d %noop ~]
=| tale=story
:- %helm-pass

View File

@ -9,6 +9,7 @@
:: Remove a commit message to a given case on a given desk
::
=/ our p.bec
:: XX should `base` here be syd or q.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)

View File

@ -9,6 +9,7 @@
::
:: List all commit messages for the given desk
::
:: TODO remove this outdated generator, superseded by story-log
=/ our p.bec
=/ tale=story .^(story %cx /(scot %p our)/[syd]/(scot %da now)/story)
=/ story-to-mime .^($-(story mime) %cf /(scot %p our)/[syd]/(scot %da now)/story/mime)