From 3d9f0c64146216ab565ec08cb188068584ac1284 Mon Sep 17 00:00:00 2001 From: John Franklin Date: Sat, 7 May 2022 02:20:44 -0500 Subject: [PATCH 1/2] vat: add +vat, a single-desk version of +vats --- pkg/arvo/gen/vat.hoon | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 pkg/arvo/gen/vat.hoon diff --git a/pkg/arvo/gen/vat.hoon b/pkg/arvo/gen/vat.hoon new file mode 100644 index 000000000..703ade563 --- /dev/null +++ b/pkg/arvo/gen/vat.hoon @@ -0,0 +1,10 @@ +/- *hood +:- %say +|= $: [now=@da eny=@uvJ bec=beak] + [[=desk ~] ~] + == +?: =(desk %kids) [%tang ~[(report-kids p.bec now)]] +=+ .^ =vat %gx + /(scot %p p.bec)/hood/(scot %da now)/kiln/vat/[desk]/noun + == +[%tang ~[(report-vat p.bec now vat)]] From 43db356619e53f6dbebd9de2bd4bb48afe26eee7 Mon Sep 17 00:00:00 2001 From: John Franklin Date: Sat, 7 May 2022 03:16:30 -0500 Subject: [PATCH 2/2] show-vat: change output formatting to match +vats --- pkg/arvo/gen/show-vat.hoon | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pkg/arvo/gen/show-vat.hoon b/pkg/arvo/gen/show-vat.hoon index 180b29eed..922cc92bc 100644 --- a/pkg/arvo/gen/show-vat.hoon +++ b/pkg/arvo/gen/show-vat.hoon @@ -7,8 +7,8 @@ %- flop ^- tang =/ pax=path /(scot %p p.bec)/[desk]/(scot %da now) =+ .^([lal=@tas num=@ud] cx+(weld pax /sys/kelvin)) -:~ 'sys.kelvin:' - leaf/"[%{} %{}]" - 'desk.bill:' +:~ '/sys/kelvin:' + leaf/"[{} {}]" + '/desk/bill:' (sell !>(.^((list dude:gall) cx+(weld pax /desk/bill)))) ==