story: fix to-text arms

pkg/arvo/gen/story-log.hoon

@@ -24,8 +24,8 @@
   %-  some
   %-  crip
   ;:  welp
-    (trip (tako-to-text:lib r.commit))
+    (tako-to-text:lib r.commit)
-    (trip (proses-to-text:lib u.proses))
+    (proses-to-text:lib u.proses)
   ==
 ::::
 ::  Remarks:

pkg/base-dev/lib/story.hoon

@@ -2,32 +2,34 @@
 |%
 ++  tako-to-text
   |=  [=tako:clay]
-  ^-  cord
+  ^-  tape
-  (crip "commit: {<`@uv`tako>}\0a")
+  "commit: {<`@uv`tako>}\0a"
+::
 ++  proses-to-text
-  |=  [proses=(set prose)]
+  |=  [=proses]
-  ^-  cord
+  ^-  tape
-  ::  XX code cleanup: factor out duplicate code
   =/  proses-list=(list prose)  ~(tap in proses)
-  ?:  ?=(~ proses-list)  ''
+  ?:  ?=(~ proses-list)  ""
   ?:  ?=([prose ~] proses-list)
-    =/  [title=@t body=@t]  i.proses-list
+    (prose-to-text i.proses-list)
-    %-  crip
-    ;:  welp
-      "{(trip title)}"
-      "\0a\0a"
-      "{(trip body)}"
-      "\0a"
-    ==
-  %-  crip
   %-  tail
-  %^  spin  ;;((list prose) proses-list)  *tape  :: WHY DO WE NEED ;;
+  %^  spin  ;;((list prose) t.proses-list)  :: XX WHY DO WE NEED ;;
-  |=  [[title=@t body=@t] state=tape]
+  (prose-to-text i.proses-list)
+  |=  [prz=prose state=tape]
   ^-  [prose tape]
-  :-  [title body]
+  :-  prz
   ;:  welp
     state
-    "|||\0a"
+    "|||"
+    "\0a"
+    (prose-to-text prz)
+  ==
+::
+++  prose-to-text
+  |=  pro=prose
+  =/  [title=@t body=@t]  pro
+  ^-  tape
+  ;:  welp
     "{(trip title)}"
     "\0a\0a"
     "{(trip body)}"

pkg/base-dev/mar/story.hoon

@@ -124,14 +124,14 @@
     ::  XX code clean up: cleaner snoc
     %+  snoc  :: ensures terminating newline is present
     %+  murn  ~(tap by tale)
-    |=  [[=tako:clay proses=(set prose)]]
+    |=  [[=tako:clay =proses]]
     ^-  (unit cord)
     ?~  proses  ~
     %-  some
     %-  crip
     ;:  welp
-      (trip (tako-to-text:lib tako))
+      (tako-to-text tako)
-      (trip (proses-to-text:lib proses))
+      (proses-to-text proses)
       "---"
     ==
     ''