Merge fab9a47a92 into release/next-js

This commit is contained in:
janeway-bot 2021-02-19 06:59:55 +04:00 committed by GitHub
commit f3c7ff2a50
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 14 additions and 2 deletions

View File

@ -101,7 +101,7 @@
== ==
:: ::
++ handle-initial ++ handle-initial
|= [rolo=rolodex:store is-public=?] |= [rolo=rolodex:store *]
^- (quip card _state) ^- (quip card _state)
=/ our-contact (~(got by rolodex) our.bowl) =/ our-contact (~(got by rolodex) our.bowl)
=/ diff-rolo=rolodex:store =/ diff-rolo=rolodex:store
@ -143,7 +143,7 @@
|= [=ship =edit-field:store timestamp=@da] |= [=ship =edit-field:store timestamp=@da]
|^ |^
^- (quip card _state) ^- (quip card _state)
=/ old (~(got by rolodex) ship) =/ old (fall (~(get by rolodex) ship) *contact:store)
?: (lte timestamp last-updated.old) ?: (lte timestamp last-updated.old)
[~ state] [~ state]
=/ contact (edit-contact old edit-field) =/ contact (edit-contact old edit-field)

View File

@ -93,6 +93,18 @@
=/ entry=(unit val) (~(get by bucket) key) =/ entry=(unit val) (~(get by bucket) key)
?~ entry [~ ~] ?~ entry [~ ~]
``settings-data+!>(entry+u.entry) ``settings-data+!>(entry+u.entry)
::
[%x %has-bucket @ ~]
=* buc i.t.t.pax
=/ has-bucket=? (~(has by settings) buc)
``noun+!>(has-bucket)
::
[%x %has-entry @ @ ~]
=* buc i.t.t.pax
=* key i.t.t.t.pax
=/ =bucket (fall (~(get by settings) buc) ~)
=/ has-entry=? (~(has by bucket) key)
``noun+!>(has-entry)
== ==
:: ::
++ on-agent on-agent:def ++ on-agent on-agent:def