works without frontend

ape/talk.hoon

@@ -1677,6 +1677,9 @@
     ::
         %app
       "[{(trip p.sep)}]: {(trip q.sep)}"
+    ::
+        %tax
+      <sep>
     ==
   -- 
 ::

ape/work.hoon

@@ -1,3 +1,4 @@
+::  XX  need to deal with versions and date modified
 ::
 ::::
   ::
@@ -47,7 +48,7 @@
           |-  ^-  (list thought)
           :_  ~
           :+  (shaf %task eny)
-            [[[%& our %porch] [*envelope %pending]] ~ ~]
+            [[[%& our (main our)] [*envelope %pending]] ~ ~]
           [now *bouquet [%tax action]]
       ==
     ==
@@ -89,8 +90,8 @@
 ::
 ++  initialize
   ^-  [(list move) _.]
-  :_  .  :_  ~
-  [ost %peer /peering [our %talk] /f/porch/0]
+  :_  .(connected %&)  :_  ~
+  [ost %peer /peering [our %talk] /f/(main our)/0]
 ::
 ++  process-duty
   |=  [when=@da her=ship from=(set station:talk) action=duty:work-stuff:talk]
@@ -98,10 +99,9 @@
   =<  mirror-to-web
   ?-    -.action
       %create
-    :-  ~
     =+  existing-task=(~(get by tasks) id.p.action)
     ~?  ?&  ?=(^ existing-task)
-            !=(p.action u.existing-task)
+            !=(p.action task.u.existing-task)
         ==
       :*  %new-task-with-old-id
           her=her
@@ -124,7 +124,7 @@
               from=from
               action=action
           ==
-      [~ +>.$]
+      +>.$
     ?.  =(version.action +(version.task.u.tax))
       ~&  :*  %update-bad-version
               her
@@ -132,7 +132,7 @@
               action=action
               tax=tax
           ==
-      [~ +>.$]
+      +>.$
     =.  tasks
       %^  ~(put by tasks)  id.action
         ?:  ?&  ?=(?(%announce %release %accept) -.meat.action)
@@ -166,10 +166,20 @@
 ::
 ++  mirror-to-web
   ^-  [(list move) _.]
+  ~&  [%mirroring tasks=tasks sort=sort]
   :_  .
-  %+  turn  (~(tap by sup))
-  |=  [ust=bone *]
-  [ust %diff %work-report tasks sort]
+  %+  murn  (~(tap by sup))
+  |=  [ust=bone her=ship pax=path]
+  ^-  (unit move)
+  ?:  ?=([%sole *] pax)
+    ~
+  `[ust %diff %work-report tasks sort]
+::
+++  coup
+  |=  [way=wire saw=(unit tang)]
+  ^-  [(list move) _+>.$]
+  ?>  ?=(~ saw)
+  [~ +>.$]
 ::
 ++  reap-peering
   |=  [way=wire saw=(unit tang)]
@@ -187,14 +197,14 @@
     ?-  -.cod
       %new    abet:create:(at +.cod)
       %old    abet:(process-update:(at (~(got by tasks) id.cod)) dif.cod)
-      %sort   !!
+      %sort   ~|(%not-implemented !!)
     ==
   [(welp mos mof) +>.$]
 ::
 ::  XX  maybe need to check that we haven't received this message before
 ::      by keeping a counter of last message received
-++  diff-peering
-  |=  [way=wire %talk-report rep=report]
+++  diff-talk-report
+  |=  [way=wire rep=report:talk]
   ^-  [(list move) _+>.$]
   ?>  ?=(%grams -.rep)
   |-  ^-  [(list move) _+>.^$]

mar/work/command.hoon

@@ -21,24 +21,29 @@
     ++  ship  (su fed:ag)
     ++  coma  (of new/task old/(ot id/id dif/uppd ~) sort/(ar id) ~)
     ++  task
-      %-  ot  :~
-        id/id           date-created/di
-        version/ni      date-modified/di
-        owner/ship      status/(ci (soft status) so)
-        tags/(as so)    due-date/(mu di)    title/so
-        description/so  discussion/(ar (ot date/di ship/ship body/so ~))
-      ==
+      %^    ot
+          :-  %task
+          %-  ot  :~
+            id/id           date-created/di
+            version/ni      date-modified/di
+            owner/ship      status/(ci (soft status) so)
+            tags/(as so)    date-due/(mu di)
+            done/(mu di)    title/so
+            description/so  discussion/(ar (ot date/di ship/ship body/so ~))
+          ==
+        audience/(as (ot ship/ship span/so ~))
+      ~
     ++  uppd
       %-  of  :~
         own/(of announce/ul claim/ul ~)
-        add/(of comment/(ot date/di body/so ~) ~)
+        add/(of comment/so ~)
         :-  %set
         %-  of  :~
-          due-date/di
+          date-due/(mu di)
           title/so
           description/so
           tags/(as so)
-          done/(mu di)
+          done/bo
           audience/(as (ot ship/ship span/so ~))
         ==
       ==
@@ -57,7 +62,8 @@
 ::   owner:'fyr',
 ::   status:'gave',
 ::   tags:['tag'],
-::   due-date:null,
+::   date-due:null,
+::   done:XX
 ::   title:'Test task',
 ::   description:'The converter owrks right?',
 ::   discussion:[{date:1440011611215,ship:'sondel',body:'hi'}]

sur/talk.hoon

@@ -90,7 +90,7 @@
                 [%release p=ship]                       ::  pass to new owner
                 [%accept ~]                             ::  accept pass
                 [%delete ~]                             ::  delete task
-                [%set-date-due p=@da]                   ::  set due date
+                [%set-date-due p=(unit ,@da)]           ::  set due date
                 [%set-tags p=(set ,@t)]                 ::  set tags
                 [%set-title p=@t]                       ::  set title
                 [%set-description p=@t]                 ::  set description

sur/work.hoon

@@ -35,7 +35,7 @@
   ==
 ++  update
   $%  $:  %set
-  $%  [%date-due p=@da]
+  $%  [%date-due p=(unit ,@da)]
       [%title p=@t]
       [%description p=@t]
       [%tags p=(set ,@t)]