fixed json report, serialization, removed fab in favor of root hymn.hook

mar/wipe.hoon

@@ -0,0 +1 @@
+|=(~ ~)

mar/work/report.hoon

@@ -16,13 +16,12 @@
     =+  tax
     :-  (scot %uv id)
     %-  jobe  :~  id/[%s (scot %uv id)]
-                tags/[%a (turn (~(tap in tags)) |=(a=cord s/a))]
-               owner/(jope owner)
+                tags/[%a (turn (^sort (~(tap in tags)) aor) |=(a=cord s/a))]
+                doer/?~(doer ~ (jope u.doer))
                title/[%s title]
-              status/[%s status]
+             creator/(jope creator)
              version/(jone version)
             archived/[%b archived]
-            claiming/[%b claiming]
         =<  audience/[%a (turn (~(tap in audience)) .)]
         |=(a=station:talk [%s (crip "{<p.a>}/{(trip q.a)}")])
       'date_created'^(jode date-created)
@@ -35,19 +34,21 @@
     ==
   ==
 --  --
-::  {id}_{date-created} {version}{date-modified}{|(" {date-due}" ~)}
-::    {tag1}
-::    {tag2}
-::    ...
-::  {title}
-::  {owner}.{status}
-::    {description}
-::    {more description}
-::  {ship1} {date}
-::    {comment}
-::    {more comment}
-::    {more comment}
-::  {ship2} {date}
-::    {comment}
-::    {more comment}
-::    {more comment}
+::  sort: ["0v111id" ...]
+::  tasks: [ {
+::      id:"0v111id"
+::      tags:["str" ...]
+::      doer:|("~ship" null)
+::      title:"str"
+::      creator:"~ship"
+::      version:12345
+::      archived:false
+::      audience:["~ship/chan" ...]
+::      date_created:1262304000000
+::      date_modified:1262304000000
+::      description:"str"
+::      discussion:[{date:1262304000000 ship:"~ship" body:"str"} ...]
+::      date_due:?(1262304000000 null)
+::      done:?(1262304000000 null)
+::    }
+::  ...]

mar/work/task.hoon

@@ -52,11 +52,12 @@
     =+  [-.b `date-due=(unit ,@da)`+.b]
     =^  tags   a  (undent a ~(gas in *(set cord)))
     =^  title  a  ?~(a !! a)
-    =^  b  a  (advance a (parse creator=%p "." ~))              ::  XX doer
-    =+  b
+    =^  b  a  %+  advance  a
+      ;~(plug (parse %p ~) (punt (parse ">" %p ~)) (punt (parse "X" %da ~)))
+    =+  `[creator=@p doer=(unit ,@p) done=(unit ,@da)]`b
     =^  description  a  (undent a role)
     :*  id  date-created  version   date-modified  creator
-        ~  tags  date-due  ~  title  description  ::  XX done
+        doer  tags  date-due  done  title  description  ::  XX done
         |-  ^-  (list comment)
         ?:  =(~ a)  ~
         =^  b  a  (advance a (parse ship=%p " " date=%da ~))
@@ -75,7 +76,8 @@
     :-  (rend uv/id '_' da/date-created ' ' ud/version da/date-modified due)
     %+  welp  (indent (sort (~(tap in tags)) aor))
     :-  title
-    :-  (rend p/creator ~)
+    =+  do=[=-(?~(doer - ['>' p/u.doer -]) ?~(done ~ ~['X' da/u.done]))]
+    :-  (rend p/creator do)
     %-  zing  ^-  (list wain)
     :-  (indent (lore description))
     %+  turn  discussion
@@ -89,7 +91,7 @@
 ::    {tag2}
 ::    ...
 ::  {title}
-::  {creator}
+::  {creator}{|(">{doer}" ~)}{|("X{done}" ~)}
 ::    {description}
 ::    {more description}
 ::  {ship1} {date}

pub/work/test.work-task

@@ -1,7 +1,7 @@
 0v0_~1999.1.1 2~1999.1.2 ~1999.5.20
   Tagged!
 Yoooo
-~fyr.announced
+~fyr>~zod
   Testin
 ~doznec ~2015.1.3
   how long has