diff --git a/pkg/arvo/app/hood.hoon b/pkg/arvo/app/hood.hoon index 6e9729a6b8..7b489b7c00 100644 --- a/pkg/arvo/app/hood.hoon +++ b/pkg/arvo/app/hood.hoon @@ -43,9 +43,9 @@ !: => |% :: ++ hood-old :: unified old-state - {?($1 $2) lac/(map @tas hood-part-old)} :: + {?($1 $2 $3) lac/(map @tas hood-part-old)} :: ++ hood-1 :: unified state - {$2 lac/(map @tas hood-part)} :: + {$3 lac/(map @tas hood-part)} :: ++ hood-good :: extract specific =+ hed=$:hood-head |@ ++ $ @@ -140,16 +140,18 @@ `..on-init :: ++ on-save - !>([%2 lac]) + !>([%3 lac]) :: ++ on-load |= =old-state=vase =/ old-state !<(hood-old old-state-vase) =^ cards lac =. lac lac.old-state - ?. ?=(%1 -.old-state) - `lac - ((wrap on-load):from-drum:(help hid) %1) + ?- -.old-state + %1 ((wrap on-load):from-drum:(help hid) %1) + %2 ((wrap on-load):from-drum:(help hid) %2) + %3 `lac + == [cards ..on-init] :: ++ on-poke diff --git a/pkg/arvo/lib/hood/drum.hoon b/pkg/arvo/lib/hood/drum.hoon index 0cb40ae859..30ad715b5b 100644 --- a/pkg/arvo/lib/hood/drum.hoon +++ b/pkg/arvo/lib/hood/drum.hoon @@ -222,9 +222,29 @@ == :: ++ on-load - |= %1 - =< se-abet =< se-view - (se-born %home %goad) + |= ver=?(%1 %2) + ?- ver + %1 + =< se-abet =< se-view + =< (se-born %home %goad) + =< (se-born %home %contact-store) + =< (se-born %home %contact-hook) + =< (se-born %home %contact-view) + =< (se-born %home %link-store) + =< (se-born %home %link-proxy-hook) + =< (se-born %home %link-listen-hook) + (se-born %home %link-view) + :: + %2 + =< se-abet =< se-view + =< (se-born %home %contact-store) + =< (se-born %home %contact-hook) + =< (se-born %home %contact-view) + =< (se-born %home %link-store) + =< (se-born %home %link-proxy-hook) + =< (se-born %home %link-listen-hook) + (se-born %home %link-view) + == :: ++ reap-phat :: ack connect |= {way/wire saw/(unit tang)}