added functionality to call |mass on a timer

app/hood.hoon

@@ -141,6 +141,7 @@
 ++  mere-kiln                 (wrap take-mere):from-kiln
 ++  mere-kiln-sync            (wrap take-mere-sync):from-kiln
 ++  wake-kiln-overload        (wrap take-wake-overload):from-kiln
+++  wake-helm-automass        (wrap take-wake-automass):from-helm
 ++  onto-drum                 (wrap take-onto):from-drum
 ++  peer-drum                 (wrap peer):from-drum
 ++  poke-atom                 (wrap poke-atom):from-helm
@@ -166,6 +167,7 @@
 ++  poke-helm-tlon-add-fora   (wrap poke-tlon-add-fora):from-helm
 ++  poke-helm-tlon-add-stream  (wrap poke-tlon-add-stream):from-helm
 ++  poke-helm-tlon-init-stream  (wrap poke-tlon-init-stream):from-helm
+++  poke-helm-automass        (wrap poke-automass):from-helm
 ++  poke-hood-sync            (wrap poke-sync):from-kiln
 ++  poke-kiln-commit          (wrap poke-commit):from-kiln
 ++  poke-kiln-info            (wrap poke-info):from-kiln

gen/hood/automass.hoon

@@ -0,0 +1,14 @@
+::  Helm: show memory usage by vane, on a recurring timer
+::
+::::  /hoon/automass/hood/gen
+  ::
+/?    309
+::
+::::
+  ::
+:-  %say
+|=  $:  [now=@da eny=@uvJ bec=beak]
+        [recur=@dr ~]
+        ~
+    ==
+[%helm-automass recur]

lib/hood/helm.hoon

@@ -42,6 +42,7 @@
           {$nuke wire ship}                             ::
           {$serv wire ?(desk beam)}                     ::
           {$poke wire dock pear}                        ::
+          {$wait wire @da}                              ::
       ==                                                ::
     ++  move  (pair bone card)                          ::  user-level move
     ++  pear                                            ::  poke fruit
@@ -93,6 +94,19 @@
   |=  ~  =<  abet
   (emit %flog /heft %crud %hax-heft ~)
 ::
+++  poke-automass
+  |=  recur=@dr
+  abet:(emit %wait /helm/automass/(scot %dr recur) (add now recur))
+::
+++  take-wake-automass
+  |=  [way=wire ~]
+  ?>  ?=([@ ~] way)
+  =<  abet
+  %-  emil
+  :~  [%flog /heft %crud %hax-heft ~]
+      [%wait /helm/automass/[-.way] (add now (slav %dr -.way))]
+  ==
+::
 ++  poke-send-hi
   |=  {her/ship mes/(unit tape)}  =<  abet
   %^  emit  %poke  /helm/hi/(scot %p her)