urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-18 15:55:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #2305 from urbit/ixv/auto-start-apps

Browse Source 
OS1: automatically start contacts and links apps upon recieving ota
This commit is contained in:
ixv 2020-02-18 11:59:17 -08:00 committed by GitHub
commit 42945d14ed
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 31 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkg/arvo/app/hood.hoon
View File

@ -43,9 +43,9 @@
!: !:
=> |% :: => |% ::
++ hood-old :: unified old-state ++ 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 ++ hood-1 :: unified state
{$2 lac/(map @tas hood-part)} :: {$3 lac/(map @tas hood-part)} ::
++ hood-good :: extract specific ++ hood-good :: extract specific
=+ hed=$:hood-head =+ hed=$:hood-head
|@ ++ $ |@ ++ $
@ -140,16 +140,18 @@
`..on-init `..on-init
:: ::
++ on-save ++ on-save
!>([%2 lac]) !>([%3 lac])
:: ::
++ on-load ++ on-load
|= =old-state=vase |= =old-state=vase
=/ old-state !<(hood-old old-state-vase) =/ old-state !<(hood-old old-state-vase)
=^ cards lac =^ cards lac
=. lac lac.old-state =. lac lac.old-state
?. ?=(%1 -.old-state) ?- -.old-state
`lac %1 ((wrap on-load):from-drum:(help hid) %1)
((wrap on-load):from-drum:(help hid) %1) %2 ((wrap on-load):from-drum:(help hid) %2)
%3 `lac
==
[cards ..on-init] [cards ..on-init]
:: ::
++ on-poke ++ on-poke

26
pkg/arvo/lib/hood/drum.hoon
View File

@ -222,9 +222,29 @@
== ==
:: ::
++ on-load ++ on-load
|= %1 |= ver=?(%1 %2)
=< se-abet =< se-view ?- ver
(se-born %home %goad) %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 ++ reap-phat :: ack connect
|= {way/wire saw/(unit tang)} |= {way/wire saw/(unit tang)}