mar/work-report

ape/work.hoon

@@ -228,10 +228,10 @@
   %+  murn  (~(tap by sup))
   |=  [ust=bone her=ship pax=path]
   ^-  (unit move)
-  ?:  ?=([%sole *] pax)
-    ~
-  `[ust %diff %work-report tasks sort]
+  ?:(?=([%repo *] pax) ~ `[ust full-report])
 ::
+++  full-report  [%diff %work-report tasks sort]
+++  peer-repo  |=(path [[ost full-report]~ +>.$])
 ++  coup
   |=  [way=wire saw=(unit tang)]
   ^-  [(list move) _+>.$]

mar/work/report.hoon

@@ -0,0 +1,52 @@
+::
+::::  /hoon/report/work/mar
+  ::
+/-    *work
+!:
+::::
+  ::
+|_  client
+++  grow  
+|%  ++  json
+  =+  jope=|=(a=ship [%s (rsh 3 1 (scot %p a))])
+  %-  jobe  :~
+         sort/[%a (turn sort |=(a=@uv [%s (scot %uv a)]))]
+    =<  tasks/(jobe (turn (~(tap by tasks)) .))
+    |=  [@ client-task]
+    =+  task
+    :-  (scot %uv id)
+    %-  jobe  :~  id/[%s (scot %uv id)]
+                tags/[%a (turn (~(tap in tags)) |=(a=cord s/a))]
+               owner/(jope owner)
+               title/[%s title]
+              status/[%s status]
+             version/[%s (scot %ud version)]
+            claiming/[%b claiming]
+        =<  audience/[%a (turn (~(tap in audience)) .)]
+        |=(a=station:talk [%s (crip "{<p.a>}/{(trip q.a)}")])
+        date-created/(jode date-created)
+       date-modified/(jode date-modified)
+         description/[%s description]
+      =<  discussion/[%a (turn discussion .)]
+      |=(comment (jobe date/(jode date) ship/(jope ship) body/[%s body] ~))
+            date-due/?~(date-due ~ (jode u.date-due))
+                done/?~(done ~ (jode u.done))
+    ==
+  ==
+--  --
+::  {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}

mar/work/task.hoon

@@ -82,22 +82,6 @@
     %+  turn  discussion
     |=  comment  ^-  wain
     [(rend p/ship ' ' da/date ~) (indent (lore body))]
-  ++  json
-    =+  taz
-    %-  jobe  :~  id/(jape <id>)
-                tags/[%a (turn (~(tap in tags)) |=(a=cord s/a))]
-               owner/(jape <owner>)
-              status/(jape <status>)
-               title/[%s title]
-             version/(jape <version>)
-        date-created/(jode date-created)
-       date-modified/(jode date-modified)
-         description/[%s description]
-      =<  discussion/[%a (turn discussion .)]
-      |=(comment (jobe date/(jode date) ship/(jape <ship>) body/[%s body] ~))
-            date-due/?~(date-due ~ (jode u.date-due))
-                done/?~(done ~ (jode u.done))
-    ==
   --
 ++  grad  %txt
 --