groups, settings, contacts: make them compile and run scries properly

This commit is contained in:
Logan Allen 2021-02-09 11:30:28 -06:00
parent b4e5430bfc
commit 47706f1efb
3 changed files with 10 additions and 6 deletions

View File

@ -32,10 +32,14 @@
::
++ on-init
^- (quip card _this)
:_ this :_ ~
=- [%pass /us %agent [our.bowl %contact-push-hook] %poke %push-hook-action -]
!> ^- action:push-hook
[%add [our.bowl %'']]
:_ this
:- %+ poke-our:pass:io %contact-push-hook
:- %push-hook-action
!>(`action:push-hook`[%add [our.bowl %'']])
%+ murn ~(tap in scry-groups:grp)
|= rid=res
?. =(our.bowl entity.rid) ~
`(poke-self:pass:io push-hook-action+!>([%add rid]))
::
++ on-save !>(~)
++ on-load on-load:def

View File

@ -33,7 +33,7 @@
?- -.old
%0
:_ this(state old)
=- [%pass / %agent [our dap]:bowl %poke -]~
=- [%pass / %agent [our dap]:bol %poke -]~
settings-event+!>([%put-entry %tutorial %seen b+%|])
==
::

View File

@ -43,7 +43,7 @@
(scot %p our.bowl)
%group-store
(scot %da now.bowl)
/groups/noun
/groups
==
::
++ members