From 5d1eda5efda04f65d6d893d489cb6395ad4f6960 Mon Sep 17 00:00:00 2001 From: Liam Fitzgerald Date: Wed, 11 Aug 2021 14:42:51 +1000 Subject: [PATCH] kiln: fix subscription paths, add marks --- pkg/arvo/lib/hood/kiln.hoon | 6 ++++-- pkg/arvo/mar/kiln-install.hoon | 29 +++++++++++++++++++++++++++++ pkg/arvo/mar/kiln-uninstall.hoon | 13 +++++++++++++ 3 files changed, 46 insertions(+), 2 deletions(-) create mode 100644 pkg/arvo/mar/kiln-install.hoon create mode 100644 pkg/arvo/mar/kiln-uninstall.hoon diff --git a/pkg/arvo/lib/hood/kiln.hoon b/pkg/arvo/lib/hood/kiln.hoon index 9c36bc6f08..7484c220f4 100644 --- a/pkg/arvo/lib/hood/kiln.hoon +++ b/pkg/arvo/lib/hood/kiln.hoon @@ -212,8 +212,8 @@ ++ emil |=((list card:agent:gall) vats(kiln (^emil +<))) ++ give |% - ++ snap [%give %fact ~[/vats] %kiln-vats-snap !>(ark)] - ++ diff |=(d=^diff [%give %fact ~[/vats] %kiln-vats-diff !>(d)]) + ++ snap [%give %fact ~[/kiln/vats] %kiln-vats-snap !>(ark)] + ++ diff |=(d=^diff [%give %fact ~[/kiln/vats] %kiln-vats-diff !>(d)]) -- ++ pass |% @@ -672,6 +672,8 @@ |= =path ?> (team:title our src) ?+ path ~|(kiln-path/path !!) + [%vats ~] abet + :: [%ark ~] abet(moz :_(moz [%give %fact ~ %kiln-vats-snap !>(ark)])) == diff --git a/pkg/arvo/mar/kiln-install.hoon b/pkg/arvo/mar/kiln-install.hoon new file mode 100644 index 0000000000..ca0600bffa --- /dev/null +++ b/pkg/arvo/mar/kiln-install.hoon @@ -0,0 +1,29 @@ +|% ++$ install + [local=term =ship =desk] +-- +|_ inst=install +++ grad %noun +++ grow + |% + ++ noun inst + ++ json + %- pairs:enjs:format + :~ local+s+local.inst + desk+s+desk.inst + ship+s+(scot %p ship.inst) + == + -- +++ grab + |% + ++ noun install + ++ json + ^- $-(^json install) + =, dejs:format + %- ot + :~ local+so + ship+(su ;~(pfix sig fed:ag)) + desk+so + == + -- +-- diff --git a/pkg/arvo/mar/kiln-uninstall.hoon b/pkg/arvo/mar/kiln-uninstall.hoon new file mode 100644 index 0000000000..335cd95800 --- /dev/null +++ b/pkg/arvo/mar/kiln-uninstall.hoon @@ -0,0 +1,13 @@ +|_ =desk +++ grad %noun +++ grow + |% + ++ noun desk + ++ json s+desk + -- +++ grab + |% + ++ noun ^desk + ++ json so:dejs:format + -- +--