From b3b5400cec3b61b5a9ff5d69935c234017cd9c09 Mon Sep 17 00:00:00 2001
From: fang <git@fang.io>
Date: Tue, 23 Nov 2021 13:23:51 +0100
Subject: [PATCH] boot: partial prop support

Doesn't yet support pre-userspace props, and the code might need to be
shuffled around a bit, but what's here works already.
---
 pkg/arvo/sys/lull.hoon      |  1 +
 pkg/arvo/sys/vane/dill.hoon |  5 +++++
 pkg/base-dev/lib/pill.hoon  | 17 +++++++++++++++++
 3 files changed, 23 insertions(+)

diff --git a/pkg/arvo/sys/lull.hoon b/pkg/arvo/sys/lull.hoon
index 9bca8c59b..782956c0f 100644
--- a/pkg/arvo/sys/lull.hoon
+++ b/pkg/arvo/sys/lull.hoon
@@ -1177,6 +1177,7 @@
         $>(%init vane-task)                             ::  after gall ready
         [%meld ~]                                       ::  unify memory
         [%pack ~]                                       ::  compact memory
+        [%seat =desk]                                   ::  install desk
         [%shot ses=@tas task=session-task]              ::  task for session
         [%talk p=(list tank)]                           ::  print tanks
         [%text p=tape]                                  ::  print tape
diff --git a/pkg/arvo/sys/vane/dill.hoon b/pkg/arvo/sys/vane/dill.hoon
index f58a73bd0..3618e1008 100644
--- a/pkg/arvo/sys/vane/dill.hoon
+++ b/pkg/arvo/sys/vane/dill.hoon
@@ -107,6 +107,11 @@
           %pack  (dump kyz)
           %crop  (dump trim+p.kyz)
           %verb  (pass /verb %$ kyz)
+        ::
+            %seat
+          %^  pass  /seat  %g
+          :+  %deal   [our our]
+          [%hood %poke %kiln-install !>([desk.kyz our desk.kyz])]
         ==
       ::
       ++  crud
diff --git a/pkg/base-dev/lib/pill.hoon b/pkg/base-dev/lib/pill.hoon
index a4bb4fd34..f80a7c849 100644
--- a/pkg/base-dev/lib/pill.hoon
+++ b/pkg/base-dev/lib/pill.hoon
@@ -322,4 +322,21 @@
     =/  pro  q:$:tap
     [[%cell p.gun p:$:tap] [.*(pro q.gun) pro]]
   --
+::
+++  events
+  |%
+  +$  prop  [%prop meta tier (list ovum)]
+  +$  meta  term
+  +$  tier  ?(%pre-userspace %post-userspace)
+  ::
+  ++  install
+    |=  [as=desk =beak]
+    ^-  prop
+    :^  %prop  %install  %post-userspace
+    ::TODO  will exclude non-:directories files, such as /changelog/txt
+    :~  (file-ovum as (en-beam beak /))
+      ::
+        [/d/install/[as] [%seat as]]
+    ==
+  --
 --