mirror of
https://github.com/urbit/shrub.git
synced 2024-11-28 05:22:27 +03:00
gall: rename fading styles
This commit is contained in:
parent
17c16d5887
commit
7259b2c121
@ -1,3 +1,3 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:3df27a5311fa269bb605deeaa5e85f0b347bea3d54ba5b4d08cba47e7ff32b3b
|
||||
size 6519283
|
||||
oid sha256:8b317605d1f3fb5eee5b9468acb321fd97912bc94e5e4ac992162596578c4e77
|
||||
size 6517517
|
||||
|
@ -1,4 +1,4 @@
|
||||
:- %say
|
||||
|= [^ [dap=term wake=$@(~ [%wake ~])] ~]
|
||||
=/ mode ?@(wake %doze %wake)
|
||||
=/ mode ?@(wake %idle %jolt)
|
||||
[%helm-pass %g %fade dap mode]
|
||||
|
@ -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
|
||||
|
@ -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)
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user