mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-15 10:02:47 +03:00
112 lines
2.5 KiB
Plaintext
112 lines
2.5 KiB
Plaintext
/- pull-hook
|
|
/+ store=contact-store, res=resource, contact, group,
|
|
default-agent, dbug, push-hook, agentio, verb
|
|
~% %contact-push-hook-top ..part ~
|
|
|%
|
|
+$ card card:agent:gall
|
|
++ config
|
|
^- config:push-hook
|
|
:* %contact-store
|
|
/updates
|
|
update:store
|
|
%contact-update
|
|
%contact-pull-hook
|
|
==
|
|
::
|
|
+$ agent (push-hook:push-hook config)
|
|
::
|
|
+$ share [%share =ship]
|
|
--
|
|
::
|
|
%- agent:dbug
|
|
^- agent:gall
|
|
%+ verb |
|
|
%- (agent:push-hook config)
|
|
^- agent
|
|
|_ =bowl:gall
|
|
+* this .
|
|
def ~(. (default-agent this %|) bowl)
|
|
con ~(. contact bowl)
|
|
grp ~(. group bowl)
|
|
io ~(. agentio bowl)
|
|
::
|
|
++ on-init
|
|
^- (quip card _this)
|
|
:_ this :_ ~
|
|
=- [%pass /us %agent [our.bowl %contact-push-hook] %poke %push-hook-action -]
|
|
!> ^- action:push-hook
|
|
[%add [our.bowl %'']]
|
|
::
|
|
++ on-save !>(~)
|
|
++ on-load on-load:def
|
|
++ on-poke
|
|
|= [=mark =vase]
|
|
^- (quip card _this)
|
|
?. =(mark %contact-share) (on-poke:def mark vase)
|
|
=/ =share !<(share vase)
|
|
:_ this :_ ~
|
|
?: =(our.bowl src.bowl)
|
|
:: proxy poke
|
|
%+ poke:pass:io [ship.share dap.bowl]
|
|
contact-share+!>([%share our.bowl])
|
|
:: accept share
|
|
?> =(src.bowl ship.share)
|
|
%+ poke-our:pass:io %contact-pull-hook
|
|
pull-hook-action+!>([%add src.bowl [src.bowl %$]])
|
|
::
|
|
++ on-agent on-agent:def
|
|
++ on-watch on-watch:def
|
|
++ on-leave on-leave:def
|
|
++ on-peek on-peek:def
|
|
++ on-arvo on-arvo:def
|
|
++ on-fail on-fail:def
|
|
::
|
|
++ should-proxy-update
|
|
|= =vase
|
|
^- ?
|
|
=/ =update:store !<(update:store vase)
|
|
?- -.update
|
|
%initial %.n
|
|
%add %.y
|
|
%remove %.y
|
|
%edit %.y
|
|
%allow %.n
|
|
%disallow %.n
|
|
%set-public %.n
|
|
==
|
|
::
|
|
++ resource-for-update resource-for-update:con
|
|
::
|
|
++ initial-watch
|
|
|= [=path =resource:res]
|
|
^- vase
|
|
|^
|
|
?> (is-allowed:con resource src.bowl)
|
|
!> ^- update:store
|
|
[%initial rolo %.n]
|
|
::
|
|
++ rolo
|
|
^- rolodex:store
|
|
=/ ugroup (scry-group:grp resource)
|
|
%- ~(gas by *rolodex:store)
|
|
?~ ugroup
|
|
=/ c=(unit contact:store) (get-contact:con our.bowl)
|
|
?~ c
|
|
[our.bowl *contact:store]~
|
|
[our.bowl u.c]~
|
|
%+ murn ~(tap in (members:grp resource))
|
|
|= s=ship
|
|
^- (unit [ship contact:store])
|
|
=/ c=(unit contact:store) (get-contact:con s)
|
|
?~(c ~ `[s u.c])
|
|
--
|
|
::
|
|
++ take-update
|
|
|= =vase
|
|
^- [(list card) agent]
|
|
=/ =update:store !<(update:store vase)
|
|
?. ?=(%disallow -.update) [~ this]
|
|
:_ this
|
|
[%give %kick ~[resource+(en-path:res [our.bowl %our])] ~]~
|
|
--
|