autoreload and autoreset

ape/hood.hoon

@@ -56,6 +56,11 @@
   ~?  ?=(^ saw)  [%kiln-spam-lame u.saw]
   [~ +>]
 ::
+++  coup-kiln-reload                                    ::
+  |=  [way=wire saw=(unit tang)]
+  ~?  ?=(^ saw)  [%kiln-reload-lame u.saw]
+  [~ +>]
+::
 ++  coup-drum-phat  (wrap take-coup-phat):from-drum
 ++  coup-helm-hi    (wrap coup-hi):from-helm
 ++  diff-sole-effect-drum-phat  (wrap diff-sole-effect-phat):from-drum
@@ -103,11 +108,13 @@
 ++  poke-kiln-rm            (wrap poke-rm):from-kiln
 ++  poke-kiln-schedule      (wrap poke-schedule):from-kiln
 ++  poke-kiln-sync          (wrap poke-sync):from-kiln
+++  poke-kiln-autoload      (wrap poke-autoload):from-kiln
 ++  poke-kiln-unmount       (wrap poke-unmount):from-kiln
 ++  poke-kiln-unsync        (wrap poke-unsync):from-kiln
 ++  poke-will               (wrap poke-will):from-helm
 ++  quit-drum-phat          (wrap quit-phat):from-drum
 ++  reap-drum-phat          (wrap reap-phat):from-drum
 ++  woot-helm               (wrap take-woot):from-helm
-++  writ-kiln-sync          (wrap take-writ):from-kiln
+++  writ-kiln-autoload      (wrap take-writ-autoload):from-kiln
+++  writ-kiln-sync          (wrap take-writ-sync):from-kiln
 --

arvo/dill.hoon

@@ -216,6 +216,7 @@
         =.  +>  (sync %home our %base)
         =.  +>  ?.  ?=(?(%king %czar) can)  +>
                 (sync %kids our %base)
+        =.  +>  autoload
         =.  +>  peer
         |-  ^+  +>+
         ?~  myt  +>+
@@ -255,7 +256,18 @@
         %_    +>.$
             moz
           :_  moz
-          [hen %pass ~ %g %deal [our our] ram %poke %hood-sync -:!>(syn) syn]
+          :*  hen  %pass  /sync  %g  %deal  [our our]
+              ram  %poke  %hood-sync  -:!>(syn)  syn
+          ==
+        ==
+      ::
+      ++  autoload
+        %_    .
+            moz
+          :_  moz
+          :*  hen  %pass  /autoload  %g  %deal  [our our]
+              ram  %poke  %kiln-autoload  [%cube ~ [%atom %n]]  ~
+          ==
         ==
       ::
       ++  pump                                          ::  send diff ack

lib/kiln.hoon

@@ -65,6 +65,8 @@
     ++  pear                                          ::  poke fruit
       $%  [%talk-command command:talk]                ::
           [%kiln-merge kiln-merge]                    ::
+          [%helm-reload (list term)]                  ::
+          [%helm-reset ~]                             ::
       ==                                              ::
     ++  move  (pair bone card)                        ::  user-level move
     --
@@ -153,6 +155,18 @@
   =+  old=;;((map ,@da cord) (fall (file where) ~))
   (foal where %sched !>((~(put by old) tym eve)))
 ::
+++  poke-autoload
+  |=  ~
+  =<  abet
+  %-  emil
+  %+  turn
+    `(list term)`~[%ames %behn %clay %dill %eyre %ford %gall %zuse %hoon]
+  |=  syd=term
+  ^-  card
+  :*  %warp  /kiln/autoload/[syd]  [our our]  %home  ~
+      %next  %y  da/now  /arvo/[syd]/hoon
+  ==
+::
 ++  take  |=(way=wire ?>(?=([@ ~] way) (work i.way))) ::  general handler
 ++  take-mere                                         ::
   |=  [way=wire are=(each (set path) (pair term tang))]
@@ -176,7 +190,7 @@
       ==
   abet:abet:(mere:(auto hos) mes)
 ::
-++  take-writ                                         ::
+++  take-writ-sync                                    ::
   |=  [way=wire rot=riot]
   ?>  ?=([@ @ @ ~] way)
   =+  ^-  hos=kiln-sync
@@ -186,6 +200,22 @@
       ==
   abet:abet:(writ:(auto hos) rot)
 ::
+++  take-writ-autoload
+  |=  [way=wire rot=riot]
+  ?>  ?=([@ ~] way)
+  ?>  ?=(^ rot)
+  =+  syd=(slav %tas i.way)
+  =.  +>.$
+    ?:  ?=(%hoon syd)
+      (emit %poke /kiln/reload/[syd] [our %hood] %helm-reset ~)
+    (emit %poke /kiln/reload/[syd] [our %hood] %helm-reload ~[syd])
+  =.  +>.$
+    %-  emit  :*
+      %warp  /kiln/autoload/[syd]  [our our]  %home  ~
+      %next  %y  da/now  /arvo/[syd]/hoon
+    ==
+  abet
+::
 ++  spam
   |=  mes=(list tank)
   ((slog mes) ..spam)