base: check for team:title in all places

This commit is contained in:
pkova 2023-10-03 16:51:14 +03:00
parent 2232a7ca3f
commit 60cc1c815c
15 changed files with 15 additions and 1 deletions

View File

@ -346,6 +346,7 @@
++ on-poke
|= [=mark =vase]
^- (quip card _this)
?> (team:title [our src]:bowl)
=^ cards state
?+ mark (on-poke:def mark vase)
%acme-order (poke-acme-order:ac !<((set turf) vase))

View File

@ -80,6 +80,7 @@
::
++ on-poke
|= [=mark =vase]
?> (team:title [our src]:bowl)
^- step:agent:gall
=^ cards state
?+ mark ~|([%aqua-bad-mark mark] !!)

View File

@ -52,7 +52,7 @@
(handle-http-request id req)
::
%azimuth-action
?> (team:title our.bowl src.bowl)
?> (team:title [our src]:bowl)
=+ !<([%disconnect bind=binding:eyre] vase)
~& >>> "disconnecting at {<bind>}"
:_ this

View File

@ -121,6 +121,7 @@
::
++ on-poke
|= [=mark =vase]
?> (our.bowl src.bowl)
?. ?=(%azimuth-tracker-poke mark)
(on-poke:def mark vase)
=+ !<(poke=poke-data vase)

View File

@ -208,6 +208,7 @@
++ on-poke
|= [=mark =vase]
^- (quip card _this)
?> (team:title [our src]:bowl)
?: =(%noun mark)
?+ q.vase !!
[%refresh-rate @]

View File

@ -31,6 +31,7 @@
++ on-poke
|= [=mark =vase]
^- (quip card _this)
?> (team:title [our src]:bowl)
?. ?=(%noun mark) [~ this]
?^ in-progress
~& %still-running-please-try-again-later

View File

@ -1748,6 +1748,7 @@
++ on-poke
|= [=mark =vase]
^- (quip card:agent:gall _..on-init)
?> (team:title [our src]:hid)
=^ moves state
^- (quip card:agent:gall house)
?+ mark ~|([%dojo-poke-bad-mark mark] !!)

View File

@ -58,6 +58,7 @@
++ on-poke
|= [=mark =vase]
^- (quip card _this)
?> (team:title [our src]:bowl)
?. ?=(%noun mark) [~ this]
=/ =command !<(command vase)
?- -.command

View File

@ -327,6 +327,7 @@
::
++ on-poke
|= [=mark =vase]
?> (team:title [our src]:bowl)
?: ?=(%noun mark)
~& state
`this

View File

@ -81,6 +81,7 @@
++ on-poke
|= [=mark =vase]
^- (quip card:agent:gall _this)
?> (team:title [our src]:bowl)
:_ this
:_ ~
?+ mark ~|([%unexpected-mark mark] !!)

View File

@ -77,6 +77,7 @@
^+ on-poke:*agent:gall
|= [=mark =vase]
^- (quip card _this)
?> (team:title [our src]:bowl)
=^ cards state
?+ mark (on-poke:def mark vase)
%language-server-rpc-notification

View File

@ -50,6 +50,7 @@
^- (quip card:agent:gall _this)
::
?: &(?=(%noun mark) ?=(%cancel q.vase))
?> (team:title [our src]:bowl)
~& %lens-cancel
[~ this(job.state ~)]
::

View File

@ -214,6 +214,7 @@
~/ %on-poke
|= [=mark =vase]
^- (quip card _this)
?> (team:title [our src]:bowl)
?: ?=(%spider-kill mark)
(on-load on-save)
=^ cards state

View File

@ -25,6 +25,7 @@
++ on-poke
|= [=mark =vase]
^- [(list card) _this]
?> (team:title [our src]:bowl)
|^
=+ !<(=test vase)
?- test

View File

@ -15,6 +15,7 @@
++ on-load _on-init
++ on-poke
|= [=mark =vase]
?> (team:title [our src]:bowl)
?+ mark !!
%noun :_ this
[%pass /(scot %da now.bowl) %arvo %b %wait `@da`+(now.bowl)]~