Clay cleanup

app/aqua.hoon

@@ -378,9 +378,12 @@
   ::
       [%swap-files ~]
     =.  userspace-ova.pil
+      =/  slim-dirs
+        `(list path)`~[/app /gen /lib /mar /sur /hoon/sys /arvo/sys /zuse/sys]
       :_  ~
       %-  unix-event
-      (file-ovum:pill-lib /(scot %p our.hid)/home/(scot %da now.hid))
+      %-  %*(. file-ovum:pill-lib directories slim-dirs)
+      /(scot %p our.hid)/home/(scot %da now.hid)
     =^  ms  this  (poke-pill pil)
     (emit-moves ms)
   ::
@@ -527,7 +530,6 @@
     ~
   =/  who  (slav %p i.pax)
   =/  pier  (~(get by piers) who)
-  =/  ren  i.t.t.t.t.pax
   ?~  pier
     ~
   :^  ~  ~  %noun

app/ph.hoon

@@ -164,7 +164,9 @@
         ;<  ~        bind:m  (raw-ship ~bud `(dawn:eth-node ~bud))
         ;<  ~        bind:m  (raw-ship ~marbud `(dawn:eth-node ~marbud))
         ;<  file=@t  bind:m  (touch-file ~bud %base)
+        ~&  %checking-file-touched
         (check-file-touched ~marbud %home file)
+      ~&  %checked-file-touched
       ;<  eth-node=_eth-node  bind:m
         (breach-and-hear:eth-node our.hid ~bud ~marbud)
       ;<  [eth-node=_eth-node ~]  bind:m

lib/hood/kiln.hoon

@@ -123,7 +123,7 @@
 ++  poke-track                                        ::
   |=  hos/kiln-sync
   ?:  (~(has by syn) hos)
-    abet:(spam (render "already syncing" [sud her syd]:hos) ~)
+    abet:(spam (render "already tracking" [sud her syd]:hos) ~)
   abet:abet:start-track:(auto hos)
 ::
 ++  poke-sync                                         ::
@@ -457,7 +457,7 @@
             q.p.mes
         ==
       ::
-          $no-ali-desk
+          $no-ali-disc
         :~  (render "sync activated" sud her syd)
             leaf+"note: blank desk {<sud>} on {<her>}"
         ==

lib/pill.hoon

@@ -48,6 +48,8 @@
 ::     bas: full path to / directory
 ::
 ++  file-ovum
+  =/  directories
+    `(list path)`~[/app /gen /lib /mar /ren /sec /sur /sys /tests /web]
   |=  bas=path
   ^-  ovum
   ::
@@ -62,7 +64,7 @@
   ::    /tests  unit tests
   ::    /web    %eyre web content
   ::
-  %.  [/app /gen /lib /mar /ren /sec /sur /sys /tests /web ~]
+  %.  directories
   |=  ::  sal: all spurs to load from
       ::
       sal/(list spur)