From 8f3cc620bcc0d4e6e0020f739417af9653ccd32f Mon Sep 17 00:00:00 2001
From: Philip C Monk <philip.monk@tlon.io>
Date: Wed, 26 Aug 2015 18:34:26 -0400
Subject: [PATCH] remove %set %doer

---
 ape/work.hoon         | 10 +++-------
 mar/work/command.hoon |  2 +-
 sur/work.hoon         |  7 +++----
 3 files changed, 7 insertions(+), 12 deletions(-)

diff --git a/ape/work.hoon b/ape/work.hoon
index 3952d484d..01d3183f2 100644
--- a/ape/work.hoon
+++ b/ape/work.hoon
@@ -13,9 +13,6 @@
 ::
 ::  audience stuff seems messed up from talk?  get extraneous stations
 ::
-::  first thing to do is obviously make process-duty accept stuff out
-::    of order
-::
 ::::
   ::
 /?  314
@@ -98,15 +95,14 @@
     ^+  +>
     ?-    -.up
         %add  ?>(?=(%comment +<.up) (send-change %add-comment +>.up))
-        %own
+        %doer
       ?-  +<.up
-        %announce  (send-change %set-doer ~)
-        %claim     (send-change %set-doer `our)
+        %release  (send-change %set-doer ~)
+        %claim    (send-change %set-doer `our)
       ==
     ::
         %set
       ?-  +<.up
-        %doer         (send-change %set-doer +>.up)
         %date-due     (send-change %set-date-due +>.up)
         %title        (send-change %set-title +>.up)
         %description  (send-change %set-description +>.up)
diff --git a/mar/work/command.hoon b/mar/work/command.hoon
index 5b83900ee..3670a9013 100644
--- a/mar/work/command.hoon
+++ b/mar/work/command.hoon
@@ -68,7 +68,7 @@
     ++  stan  (su ;~((glue fas) ;~(pfix sig fed:ag) urs:ab))
     ++  uppd
       %-  of  :~
-        own/(of announce/ul claim/ul ~)
+        doer/(of release/ul claim/ul ~)
         add/(of comment/so ~)
         :-  %set
         %-  of  :~
diff --git a/sur/work.hoon b/sur/work.hoon
index a8221454b..80e79a1c4 100644
--- a/sur/work.hoon
+++ b/sur/work.hoon
@@ -36,8 +36,7 @@
   ==
 ++  update
   $%  $:  %set
-  $%  [%doer p=(unit ,@p)]
-      [%date-due p=(unit ,@da)]
+  $%  [%date-due p=(unit ,@da)]
       [%title p=@t]
       [%description p=@t]
       [%tags p=(set ,@t)]
@@ -46,8 +45,8 @@
       $:  %add
   $%  [%comment @t]
   ==  ==
-      $:  %own
-  $%  [%announce ~]
+      $:  %doer
+  $%  [%release ~]
       [%claim ~]
   ==  ==
   ==