urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-19 08:32:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

observe-hook: ask for next case as opposed to now.bowl when using %next, unless riot is null. small cleanup

Browse Source
This commit is contained in:
Logan Allen 2021-04-06 18:51:32 -05:00
parent faf1f83e8f
commit c7e4291d6d
1 changed files with 14 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
pkg/arvo/app/observe-hook.hoon
View File

@ -163,8 +163,8 @@
?: warm-cache
~|('cannot warm up cache that is already warm' !!)
:_ this(warm-cache %.y)
=/ =mood:clay [%t da+now.bowl /mar]
[%pass /warm-cache %arvo %c %warp our.bowl %home `[%sing mood]]~
=/ =rave:clay [%sing [%t da+now.bowl /mar]]
[%pass /warm-cache %arvo %c %warp our.bowl %home `rave]~
::
++ cool-cache-all
?. warm-cache
@ -291,17 +291,18 @@
++ on-arvo
|= [=wire =sign-arvo]
^- (quip card _this)
:_ this
?+ wire (on-arvo:def wire sign-arvo)
[%warm-cache ~]
?. warm-cache
[~ this]
~
?> ?=([%clay %writ *] sign-arvo)
:_ this
:- =/ =rave:clay [%next [%t da+now.bowl /mar]]
[%pass /warm-cache %arvo %c %warp our.bowl %home `rave]
=* riot p.sign-arvo
?~ riot
~
=/ =rave:clay [%next [%t da+now.bowl /mar]]
[%pass /warm-cache %arvo %c %warp our.bowl %home `rave]~
:- =/ =rave:clay [%next [%t q.p.u.riot /mar]]
[%pass /warm-cache %arvo %c %warp our.bowl %home `rave]
%+ turn !<((list path) q.r.u.riot)
|= pax=path
^- card
@ -311,26 +312,20 @@
|= [=term mark=term]
?: =(0 (lent (trip mark)))
term
%- crip
%- zing
:~ (trip mark)
"-"
(trip term)
==
=/ =rave:clay [%sing %b [%da now.bowl] [mark ~]]
:((cury cat 3) mark '-' term)
=/ =rave:clay [%sing %b da+now.bowl /[mark]]
[%pass [%mar mark ~] %arvo %c %warp our.bowl %home `rave]
::
[%mar ^]
?. warm-cache
[~ this]
~
?> ?=([%clay %writ *] sign-arvo)
=* riot p.sign-arvo
=* mark t.wire
?~ riot
~|('mark build failed for {<mark>}' !!)
:_ this
=/ =rave:clay [%next %b [%da now.bowl] mark]
[%pass wire %arvo %c %warp our.bowl [%home `rave]]~
~
=/ =rave:clay [%next %b q.p.u.riot mark]
[%pass wire %arvo %c %warp our.bowl %home `rave]~
==
::
++ on-watch on-watch:def