poke-manage save ship in office

app/hood.hoon

@@ -140,6 +140,7 @@
 ++  poke-womb-claim           (wrap poke-claim):from-womb
 ++  poke-womb-rekey           (wrap poke-rekey):from-womb
 ++  poke-womb-report          (wrap poke-report):from-womb
+++  poke-womb-manage          (wrap poke-manage):from-womb
 ++  poke-womb-release         (wrap poke-release):from-womb
 ++  poke-womb-reinvite        (wrap poke-reinvite):from-womb
 ++  poke-write-sec-atom       (wrap poke-sec-atom):from-write

gen/hood/manage.hoon

@@ -0,0 +1,13 @@
+::
+::::  /hoon/manage/hood/gen
+  ::
+/?    310
+::
+::::
+  !:
+:-  %say
+|=  $:  {now/@da eny/@uvI bec/beak}
+        {who/(list @p) $~}
+    ==
+:-  %womb-manage
+who

lib/womb.hoon

@@ -433,6 +433,29 @@
     $invite  (peek-x-invite +.tyl)
   ==
 ::
+++  poke-manage                                       ::  add to property
+  |=  a/(list ship)
+  =<  abet
+  ?>  |(=(our src) =([~ src] boss))                   ::  privileged
+  |-
+  ?~  a  .
+  ?+      (clan i.a)  ~|(bad-size+(clan i.a) !!)
+        $duke
+    ?.  (~(has by stars.office) i.a)
+      $(a t.a, stars.office (~(put by stars.office) i.a ~))
+    ~|(already-managing+i.a !!)
+  ::
+        $king
+    ?.  (~(has by planets.office) i.a)
+      $(a t.a, planets.office (~(put by planets.office) i.a ~))
+    ~|(already-managing+i.a !!)
+  ::
+        $czar
+    ?.  (~(has by galaxies.office) i.a)
+      $(a t.a, galaxies.office (~(put by galaxies.office) i.a ~))
+    ~|(already-managing+i.a !!)
+  ==
+::
 ++  email
   |=  {adr/mail msg/tape}  ^+  +>
   :: (emit %poke /invite %gmail %gmail-send adr msg)