hood + apps: fix OTA process for feat/SPA

This commit is contained in:
Logan Allen 2020-06-17 14:27:30 -04:00
parent eaf523e3c2
commit 08e1abb139
3 changed files with 26 additions and 7 deletions

View File

@ -52,7 +52,8 @@
^- (quip card _this)
=/ old-state !<(versioned-state old)
?: ?=(%4 -.old-state)
[~ this(state old-state)]
:- [%pass / %arvo %e %disconnect [~ /]]~
this(state old-state)
=/ new-state *state-zero
=. new-state
%_ new-state
@ -72,7 +73,13 @@
tile-ordering [%chat %publish %links %weather %clock %dojo ~]
==
:_ this(state [%4 new-state])
:- [%pass / %arvo %e %disconnect [~ /]]
%+ welp
:~ [%pass / %arvo %e %disconnect [~ /]]
:* %pass /srv %agent [our.bowl %file-server]
%poke %file-server-action
!>([%serve-dir / /app/landscape %.n])
==
==
%+ turn ~(tap by wex.bowl)
|= [[=wire =ship =term] *]
^- card

View File

@ -71,7 +71,7 @@
^- (quip card _this)
=/ rav [%sing %t [%da now.bol] /app/publish/notebooks]
:_ this
:~ [%pass /bind %arvo %e %connect [~ /'publish-view'] %publish]
:~ [%pass /view-bind %arvo %e %connect [~ /'publish-view'] %publish]
[%pass /read/paths %arvo %c %warp our.bol q.byk.bol `rav]
[%pass /permissions %agent [our.bol %permission-store] %watch /updates]
(invite-poke:main [%create /publish])
@ -108,7 +108,8 @@
:* %pass /invites %agent [our.bol %invite-store] %watch
/invitatory/publish
==
[%pass / %arvo %e %disconnect [~ /'~publish']]
[%pass /bind %arvo %e %disconnect [~ /'~publish']]
[%pass /view-bind %arvo %e %connect [~ /'publish-view'] %publish]
:* %pass /srv %agent [our.bol %file-server]
%poke %file-server-action
!>([%serve-dir /'~publish' /app/landscape %.n])
@ -174,7 +175,14 @@
==
::
%3
[cards this(state p.old-state)]
:_ this(state p.old-state)
%+ welp cards
:~ [%pass /bind %arvo %e %disconnect [~ /'~publish']]
[%pass /view-bind %arvo %e %connect [~ /'publish-view'] %publish]
:* %pass /srving %agent [our.bol %file-server]
%poke %file-server-action
!>([%serve-dir /'~publish' /app/landscape %.n])
== ==
==
::
++ convert-comment-2-3
@ -500,6 +508,9 @@
::
[%bind ~]
[~ this]
::
[%view-bind ~]
[~ this]
==
::
++ on-fail on-fail:def

View File

@ -241,10 +241,11 @@
=< (se-born %home %link-proxy-hook)
=< (se-born %home %link-listen-hook)
=< (se-born %home %link-view)
=< (se-born %home %file-server)
(se-born %home %s3-store)
=< (se-born %home %s3-store)
(se-born %home %file-server)
.
?> ?=(%5 ver)
=> (se-born %home %file-server)
=> (se-drop:(se-pull our.hid %dojo) | our.hid %dojo)
(se-drop:(se-pull our.hid %chat-cli) | our.hid %chat-cli)
::