story: cleanup

pkg/arvo/gen/hood/story-init.hoon

@@ -1,7 +1,7 @@
-/-  *story
 ::
 ::::
   ::
+/-  *story
 :-  %say
 |=  $:  [now=@da eny=@uvJ bec=beak]
         [[~] =desk overwrite=_| ~]
@@ -13,7 +13,8 @@
 =?  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 !overwrite)
-  ~&  "Error: {<desk>}/story already exists. Set the optional parameter `overwrite` to `%.y` to forcibly wipe"
+  ~&  >>  "Error: {<desk>}/story already exists. Set the optional parameter `overwrite` to `%.y` to forcibly wipe"
+  ::  XX could use a better way to noop 
   :-  %helm-pass  [%d %noop ~]
 =|  tale=story
 :-  %helm-pass

pkg/arvo/gen/hood/story-set.hoon

@@ -1,7 +1,7 @@
-/-  *story
 ::
 ::::
   ::
+/-  *story
 :-  %say
 |=  $:  [now=@da eny=@uvJ bec=beak]
         [[syd=desk =prose ~] cas=case ~]

pkg/arvo/gen/story-list.hoon

@@ -1,7 +1,7 @@
-/-  *story
 ::
 ::::
   ::
+/-  *story
 :-  %say
 |=  $:  [now=@da eny=@uvJ bec=beak]
         [[syd=desk ~] ~]

pkg/base-dev/sur/story.hoon

@@ -2,7 +2,4 @@
 |%
 +$  prose  [title=@t body=@t]
 +$  story  (jug tako:clay prose)
-::  If, for a given set of proses ~(get ju tak), where tak is a tako:clay,
-::  (lent ~(tap in proses)) is greater than 1, it means there are multiple conflicting 
-::  messages associated with the given tak.
 --