gall: rename fading styles

This commit is contained in:
Philip Monk 2020-11-25 14:46:33 -08:00
parent 17c16d5887
commit 7259b2c121
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
5 changed files with 15 additions and 15 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:3df27a5311fa269bb605deeaa5e85f0b347bea3d54ba5b4d08cba47e7ff32b3b
size 6519283
oid sha256:8b317605d1f3fb5eee5b9468acb321fd97912bc94e5e4ac992162596578c4e77
size 6517517

View File

@ -1,4 +1,4 @@
:- %say
|= [^ [dap=term wake=$@(~ [%wake ~])] ~]
=/ mode ?@(wake %doze %wake)
=/ mode ?@(wake %idle %jolt)
[%helm-pass %g %fade dap mode]

View File

@ -388,7 +388,7 @@
?: (~(has in ray) [%home i.ruf])
$(ruf t.ruf)
=/ wire [%drum %fade i.ruf ~]
=. this (se-emit %pass wire %arvo %g %fade i.ruf %gone)
=. this (se-emit %pass wire %arvo %g %fade i.ruf %slay)
$(ruf t.ruf, fur (~(del by fur) i.ruf))
::
++ se-adze :: update connections

View File

@ -1,4 +1,4 @@
:: :: %gall, agent execution
!: :: %gall, agent execution
!? 163
::
::::
@ -891,18 +891,18 @@
:: +mo-fade: put app to sleep
::
++ mo-fade
|= [dap=term style=?(%gone %doze %wake)]
|= [dap=term style=?(%slay %idle %jolt)]
^+ mo-core
=/ =routes [disclosing=~ attributing=our]
=/ app (ap-abed:ap dap routes)
=. mo-core ap-abet:(ap-fade:app style)
=. mo-core
?- style
%gone mo-core(yokes.state (~(del by yokes.state) dap))
%doze mo-core
%wake (mo-boot dap our %home)
%slay mo-core(yokes.state (~(del by yokes.state) dap))
%idle mo-core
%jolt (mo-boot dap our %home)
==
=? mo-core !?=(%wake style) (mo-subscribe-to-agent-builds now)
=? mo-core !?=(%jolt style) (mo-subscribe-to-agent-builds now)
mo-core
:: +mo-beak: assemble a beak for the specified agent.
::
@ -1133,15 +1133,15 @@
:: For %gone, remove all incoming and outgoing subscriptions.
::
++ ap-fade
|= style=?(%gone %doze %wake)
|= style=?(%slay %idle %jolt)
^+ ap-core
?- style
%doze
%jolt ap-core
%idle
=. agent.current-agent |+on-save:ap-agent-core
ap-core
::
%wake ap-core
%gone
%slay
=/ out=(list [[=wire =ship =term] ? =path])
~(tap by outbound.watches.current-agent)
=/ inbound-paths=(set path)

View File

@ -1723,7 +1723,7 @@
[$deal p=sock q=term r=deal] :: full transmission
[%goad force=? agent=(unit dude)] :: rebuild agent(s)
[%sear =ship] :: clear pending queues
[%fade dap=term style=?(%gone %doze %wake)] :: put app to sleep
[%fade dap=term style=?(%slay %idle %jolt)] :: put app to sleep
$>(%init vane-task) :: set owner
$>(%trim vane-task) :: trim state
$>(%vega vane-task) :: report upgrade