more readable text format

app/collections.hoon

@@ -116,7 +116,7 @@
   ::[~ ..prep(+<+ u.old)]
 ::
 ++  poke-noun
-  |=  a/@
+  |=  @
   ^-  (quip move _+>)
   ~&  %poked
   ta-done:(ta-write-config:ta now.bol ['a description' pub=& vis=& [~palzod ~ ~]])

mar/collections/comment.hoon

@@ -15,10 +15,8 @@
     (of-wain:format txt)
   ++  txt
     ^-  (list @t)
-    :^    (scot %p who.com)
+    :-  (crip <[by=who.com on=wen.com ed=wed.com]>)
-        (scot %da wen.com)
+    wat.com
-      (scot %da wed.com)
-    wat
   --
 ::
 ++  grab
@@ -27,12 +25,18 @@
     |=  {p/mite:eyre q/octs:eyre}
     (txt (to-wain:format q.q))
   ++  txt
-    |=  txs/(list @t)
+    |=  txs/(pole @t)  ^+  com
-    ?>  (gte (lent txs) 3)
+    ?>  ?=([inf=@t wat=*] txs)
-    :^    (slav %p (snag 0 txs))
+    =/  inf  :: REVIEW this seems not v stable
-        (slav %da (snag 1 txs))
+      %-  %-  hard
-      (slav %da (snag 2 txs))
+          $:  %cltr
-    (slag 3 txs)
+              [%ktts %by [%sand %p who=@p]]
+              [%ktts %on [%sand %da wen=@da]]
+              [%ktts %ed [%sand %da wed=@da]]
+              ~
+          ==
+      (ream inf.txs)
+    [who.inf wen.inf wed.inf wat.txs]
   --
 ++  grad  %txt
 --

mar/collections/config.hoon

@@ -15,11 +15,13 @@
     (of-wain:format txt)
   ++  txt
     ^-  (list @t)
-    :^    desc.con
+    :^    (cat 3 '> ' desc.con)
-        ?:(publ.con 'public' 'private')
+        (cat 3 'public: ' ?:(publ.con 'y' 'n'))
-      ?:(visi.con 'visible' 'hidden')
+      (cat 3 'visible: ' ?:(visi.con 'y' 'n'))
-    %+  turn  ~(tap in mems.con)
+    :-  'except:'
-    (cury scot %p)
+    %+  turn  (sort ~(tap in mems.con) aor)
+    |=  a=@p
+    (cat 3 '  ' (scot %p a))
   --
 ::
 ++  grab
@@ -28,14 +30,14 @@
     |=  {p/mite:eyre q/octs:eyre}
     (txt (to-wain:format q.q))
   ++  txt
-    |=  txs/(list @t)
+    |=  txs/(pole @t)
-    ?>  (gte (lent txs) 3)
+    ?>  ?=([des=@t pub=@t vis=@t %'except:' mem=*] txs)
-    :^    (snag 0 txs)
+    :^  (rash des.txs ;~(pfix (jest '> ') (cook crip (star next))))
-        =((snag 1 txs) 'public')
+        (rash pub.txs ;~(pfix (jest 'public: ') (flag %y %n)))
-      =((snag 2 txs) 'visible')
+        (rash vis.txs ;~(pfix (jest 'visible: ') (flag %y %n)))
-    %-  ~(gas in *(set ship))
+    %-  sy
-    %+  murn  (slag 3 txs)
+    %+  turn  mem.txs
-    (cury slaw %p)
+    (curr rash ;~(pfix (jest '  ~') fed:ag))      
   --
 ++  grad  %txt
 --

mar/collections/topic.hoon

@@ -1,4 +1,4 @@
-::  /mar/collections/comment/hoon
+::  /mar/collections/topic/hoon
 ::
 |_  $=  top
     $:  tit/cord                                        ::  title
@@ -16,12 +16,9 @@
     (of-wain:format txt)
   ++  txt
     ^-  (list @t)
-    :*  tit.top
+    :+  (cat 3 '> ' tit.top)
-        (scot %p who.top)
+      (crip <[by=who.top on=wen.top ed=wed.top]>)
-        (scot %da wen.top)
+    wat.top
-        (scot %da wed.top)
-        wat
-    ==
   --
 ::
 ++  grab
@@ -30,14 +27,20 @@
     |=  {p/mite:eyre q/octs:eyre}
     (txt (to-wain:format q.q))
   ++  txt
-    |=  txs/(list @t)
+    |=  txs/(pole @t)  ^+  top
-    ?>  (gte (lent txs) 4)
+    ?>  ?=([des=@t inf=@t wat=*] txs)
-    :*  (snag 0 txs)
+    =/  tit  (rash des.txs ;~(pfix (jest '> ') (cook crip (star next))))
-        (slav %p (snag 1 txs))
+    ::
-        (slav %da (snag 2 txs))
+    =/  inf  :: REVIEW this seems not v stable
-        (slav %da (snag 3 txs))
+      %-  %-  hard
-        (slag 4 txs)
+          $:  %cltr
-    ==
+              [%ktts %by [%sand %p who=@p]]
+              [%ktts %on [%sand %da wen=@da]]
+              [%ktts %ed [%sand %da wed=@da]]
+              ~
+          ==
+      (ream inf.txs)
+    [tit who.inf wen.inf wed.inf wat.txs]
   --
 ++  grad  %txt
 --