story: |story-set: better error message on missing desk
::
=/ our p.bec
=? desk =(*^desk desk) q.bec :: use current desk if user didn't provide
+?: !(~(has in .^((set ^desk) %cd /(scot %p our)/$/(scot %da now))) desk)
+ ~& >> "Error: desk {<desk>} does not exist."
+ helm-pass+[%d %noop ~]
=? cas =(*case cas) da+now :: use current commit if cas not provided
+
=/ tak .^(tako:clay %cs /(scot %p our)/[desk]/(scot cas)/tako/~)
=/ tale=story .^(story %cx /(scot %p our)/[desk]/(scot %da now)/story)
=. tale (~(put ju tale) tak prose)
