hood: start %contact-push/pull-hooks

This commit is contained in:
Logan Allen 2021-01-19 15:09:30 -06:00
parent 54b64f5682
commit 7ffce92c37
4 changed files with 10 additions and 4 deletions

View File

@ -155,7 +155,7 @@
^- (list card)
=/ paths=(list path)
?: our
`(list path)`[/updates /our]~
[/updates /our ~]
~[/updates]
[%give %fact paths %contact-update !>(update)]~
--

View File

@ -2,7 +2,7 @@
/+ drum=hood-drum, helm=hood-helm, kiln=hood-kiln
|%
+$ state
$: %11
$: %12
drum=state:drum
helm=state:helm
kiln=state:kiln
@ -14,6 +14,7 @@
[%8 drum=state:drum helm=state:helm kiln=state:kiln]
[%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]
==
+$ any-state-tuple
$: drum=any-state:drum

View File

@ -1,4 +1,4 @@
/- store=contact-store
/- store=contact-store, *resource
/+ group
|_ =bowl:gall
++ scry-for
@ -28,7 +28,7 @@
=/ grp ~(. group bowl)
|-
?~ allowed-groups %.n
?: ~(has in (members:grp i.allowed-groups) ship)
?: (~(has in (members:grp i.allowed-groups)) ship)
%.y
$(allowed-groups t.allowed-groups)
--

View File

@ -91,6 +91,8 @@
%herm
%contact-store
%contact-hook
%contact-push-hook
%contact-pull-hook
%contact-view
%metadata-store
%metadata-hook
@ -248,6 +250,9 @@
=> (se-born | %home %hark-store)
=> (se-born | %home %observe-hook)
(se-born | %home %herm)
=? ..on-load (lte hood-version %12)
=> (se-born | %home %contact-push-hook)
(se-born | %home %contact-pull-hook)
..on-load
::
++ reap-phat :: ack connect