fix marks for new lore/role

arvo/ford.hoon

@@ -1778,7 +1778,7 @@
           ?~  dif
             =-  (flaw cof leaf/"{<p.cay>} data with bad diff" -)
             [>type=p.q.coy< >want=p:!>(*(urge cord))< ~]
-          =+  pac=(role (lurk (lore (cat 3 u.txt '\0a')) u.dif))
+          =+  pac=(role (lurk (lore u.txt) u.dif))
           (fine cof %& p.cay [%atom %t] (end 3 (dec (met 3 pac)) pac))
         ::
         %+  cope  (fang cof p.cay)

mar/hook.hoon

@@ -36,16 +36,13 @@
         ;script:'CodeMirror.fromTextArea(src, {lineNumbers:true, readOnly:true})'
       ==
     ==
-  ++  txt   (lore (cat 3 own '\0a'))
+  ++  txt   (lore own)
   --
 ++  grab
   |%                                            ::  convert from
   ++  mime  |=([p=mite q=octs] q.q)
   ++  noun  ,@t                                 ::  clam from %noun
-  ++  txt
-    |=  wan=wain
-    =+  (role wan)
-    (end 3 (dec (met 3 -)) -)
+  ++  txt   role
   --
 ++  grad  %txt
 --

mar/hoon.hoon

@@ -37,17 +37,13 @@
       ==
     ==
   ++  txt
-    (lore (cat 3 own '\0a'))
+    (lore own)
   --
 ++  grab
   |%                                            ::  convert from
   ++  mime  |=([p=mite q=octs] q.q)
   ++  noun  ,@t                                 ::  clam from %noun
-  ++  txt
-    |=  wan=wain
-    ^-  @t
-    =+  (role wan)
-    (end 3 (dec (met 3 -)) -)
+  ++  txt   role
   --
 ++  grad  %txt
 --

mar/markdown.hoon

@@ -9,17 +9,14 @@
   ++  mime  [/text/x-markdown (taco mud)]
   ++  md  mud
   ++  txt
-    (lore (cat 3 mud '\0a'))
+    (lore mud)
   --
 ++  grab
   |%
   ++  mime  |=([p=mite q=octs] q.q)
   ++  noun  ,@t
   ++  md  |=(@t +<)
-  ++  txt
-    |=  wan=wain
-    =+  (role wan)
-    (end 3 (dec (met 3 -)) -)
+  ++  txt  role
   --
 ++  grad  %txt
 --

mar/md.hoon

@@ -8,16 +8,13 @@
   |%
   ++  mime  [/text/x-markdown (taco mud)]
   ++  txt
-    (lore (cat 3 mud '\0a'))
+    (lore mud)
   --
 ++  grab
   |%
   ++  mime  |=([p=mite q=octs] q.q)
   ++  noun  ,@t
-  ++  txt
-    |=  wan=wain
-    =+  (role wan)
-    (end 3 (dec (met 3 -)) -)
+  ++  txt   role
   --
 ++  grad  %txt
 --