From 8c237ce8e30295feec94b50eb52cc9e9a4d8a617 Mon Sep 17 00:00:00 2001 From: Liam Fitzgerald Date: Mon, 17 May 2021 16:16:16 +1000 Subject: [PATCH 1/2] dm-hook: fix +on-init --- pkg/arvo/app/dm-hook.hoon | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkg/arvo/app/dm-hook.hoon b/pkg/arvo/app/dm-hook.hoon index 7a88abf1b..0709eef53 100644 --- a/pkg/arvo/app/dm-hook.hoon +++ b/pkg/arvo/app/dm-hook.hoon @@ -32,7 +32,7 @@ :_ this :_ ~ =/ dms=(list resource) - ?. .^(? %gu (scry:io %home %graph-store ~)) + ?. .^(? %gu (scry:io %graph-store ~)) ~ %+ skim ~(tap in get-keys:gra) |=([ship name=term] ?=(^ (rush name ;~(pfix (jest 'dm--') (star next))))) From d37dd90aefe0a36f9456adc483876332a0fea526 Mon Sep 17 00:00:00 2001 From: Liam Fitzgerald Date: Mon, 17 May 2021 16:16:37 +1000 Subject: [PATCH 2/2] hood: dm-hook is born --- pkg/arvo/app/hood.hoon | 3 ++- pkg/arvo/lib/hood/drum.hoon | 3 +++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/pkg/arvo/app/hood.hoon b/pkg/arvo/app/hood.hoon index 24a9e524c..b6567e1f5 100644 --- a/pkg/arvo/app/hood.hoon +++ b/pkg/arvo/app/hood.hoon @@ -2,7 +2,7 @@ /+ drum=hood-drum, helm=hood-helm, kiln=hood-kiln |% +$ state - $: %12 + $: %13 drum=state:drum helm=state:helm kiln=state:kiln @@ -15,6 +15,7 @@ [%9 drum=state:drum helm=state:helm kiln=state:kiln] [%10 drum=state:drum helm=state:helm kiln=state:kiln] [%11 drum=state:drum helm=state:helm kiln=state:kiln] + [%12 drum=state:drum helm=state:helm kiln=state:kiln] == +$ any-state-tuple $: drum=any-state:drum diff --git a/pkg/arvo/lib/hood/drum.hoon b/pkg/arvo/lib/hood/drum.hoon index 3095316e9..3fef1adca 100644 --- a/pkg/arvo/lib/hood/drum.hoon +++ b/pkg/arvo/lib/hood/drum.hoon @@ -108,6 +108,7 @@ %metadata-pull-hook %group-view %settings-store + %dm-hook == :: ++ deft-fish :: default connects @@ -258,6 +259,8 @@ => (se-born | %home %contact-pull-hook) => (se-born | %home %settings-store) (se-born | %home %group-view) + =? ..on-load (lte hood-version %13) + (se-born | %home %dm-hook) ..on-load :: ++ reap-phat :: ack connect