From ddef8079a3e37ad777331fe095e0890bcb71181d Mon Sep 17 00:00:00 2001
From: Ted Blackman <ted@tlon.io>
Date: Thu, 21 Jun 2018 21:00:07 -0700
Subject: [PATCH] |keep and associated machinery

---
 app/hood.hoon           |  1 +
 gen/hood/keep-ford.hoon | 13 +++++++++++++
 lib/hood/kiln.hoon      |  7 ++++++-
 sys/vane/gall.hoon      |  9 +++++----
 4 files changed, 25 insertions(+), 5 deletions(-)
 create mode 100644 gen/hood/keep-ford.hoon

diff --git a/app/hood.hoon b/app/hood.hoon
index 944b22384..c3c9e1656 100644
--- a/app/hood.hoon
+++ b/app/hood.hoon
@@ -182,6 +182,7 @@
 ++  poke-kiln-syncs           (wrap poke-syncs):from-kiln
 ++  poke-kiln-start-autoload  (wrap poke-start-autoload):from-kiln
 ++  poke-kiln-wipe-ford       (wrap poke-wipe-ford):from-kiln
+++  poke-kiln-keep-ford       (wrap poke-keep-ford):from-kiln
 ++  poke-kiln-autoload        (wrap poke-autoload):from-kiln
 ++  poke-kiln-overload        (wrap poke-overload):from-kiln
 ++  poke-kiln-unmount         (wrap poke-unmount):from-kiln
diff --git a/gen/hood/keep-ford.hoon b/gen/hood/keep-ford.hoon
new file mode 100644
index 000000000..34f55424f
--- /dev/null
+++ b/gen/hood/keep-ford.hoon
@@ -0,0 +1,13 @@
+::  Kiln: resize Ford cache
+::
+::::
+  ::
+/?    310
+::
+::::
+  !:
+:-  %say
+|=  $:  {now/@da eny/@uvJ bec/beak}
+        [[max-cache-size=@ud ~] ~]
+    ==
+[%kiln-keep-ford max-cache-size]
diff --git a/lib/hood/kiln.hoon b/lib/hood/kiln.hoon
index b9a123353..5f117eba1 100644
--- a/lib/hood/kiln.hoon
+++ b/lib/hood/kiln.hoon
@@ -71,6 +71,7 @@
           {$perm wire ship desk path rite}              ::
           {$poke wire dock pear}                        ::
           {$wipe wire @p $~}                            ::
+          [%keep wire max-cache-size=@ud]
           {$wait wire @da}                              ::
           {$warp wire sock riff}                        ::
       ==                                                ::
@@ -275,7 +276,11 @@
   ?>  (gte start now)
   abet:(emit %wait /kiln/overload/(scot %dr recur) start)
 ::
-++  poke-wipe-ford  |=($~ abet:(emit %wipe /kiln our ~))
+++  poke-wipe-ford
+  |=($~ abet:(emit %wipe /kiln our ~))
+::
+++  poke-keep-ford
+  |=(max-cache-size=@ud abet:(emit %keep /kiln max-cache-size))
 ::
 ++  mack
   |=  {way/wire saw/(unit tang)}
diff --git a/sys/vane/gall.hoon b/sys/vane/gall.hoon
index 0f92a6621..958669459 100644
--- a/sys/vane/gall.hoon
+++ b/sys/vane/gall.hoon
@@ -1214,17 +1214,18 @@
       ^-  (unit @tas)
       ?+  sep  ~&  [%ap-vain sep]
                ~
+        $build  `%f
         $cash  `%a
         $conf  `%g
         $cred  `%c
         $crew  `%c
         $crow  `%c
         $deal  `%g
-        $build  `%f
-        $kill  `%f
-        $flog  `%d
         $drop  `%c
+        $flog  `%d
         $info  `%c
+        $keep  `%f
+        $kill  `%f
         $merg  `%c
         $mont  `%c
         $nuke  `%a
@@ -1238,7 +1239,7 @@
         $want  `%a
         $warp  `%c
         $well  `%e
-        ::  $wipe  `%f                                      ::  XX cache clear
+        $wipe  `%f
       ==
     --
   --