From 78468dc8ee4804b71d2010db4733e4650b827722 Mon Sep 17 00:00:00 2001
From: Yaseen <yaseen.nvt@gmail.com>
Date: Fri, 26 Nov 2021 20:53:20 -0500
Subject: [PATCH] story: add generator `|story-add`

---
 pkg/arvo/gen/hood/story-add.hoon | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 pkg/arvo/gen/hood/story-add.hoon

diff --git a/pkg/arvo/gen/hood/story-add.hoon b/pkg/arvo/gen/hood/story-add.hoon
new file mode 100644
index 0000000000..07d29313b9
--- /dev/null
+++ b/pkg/arvo/gen/hood/story-add.hoon
@@ -0,0 +1,17 @@
+::
+::::
+  ::
+:-  %say
+|=  $:  [now=@da eny=@uvJ bec=beak]
+        [[syd=desk =aeon:clay [title=@t body=@t] ~] ~]
+    ==
+::
+::  Add a commit message to a given case on a given desk (modifies in place) 
+::
+=/  our  p.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)
+=.  tale  (~(put by tale) tak [title body])
+:-  %helm-pass
+[%c [%info syd %& [/story %ins story+!>(tale)]~]]
\ No newline at end of file