clay: remote-install desks during migration

This commit is contained in:
Ted Blackman 2021-09-25 16:53:52 -04:00
parent bbc80f9d45
commit 8f115bf059

View File

@ -1605,15 +1605,36 @@
::
++ install-from-tmp
|= =desk
^+ ..park
=/ sen (^^sein:title rof our now our)
%- lime
:~ :^ hen %pass /dist/[desk]/create
|^ ^- (list move)
::
?: =(sen our)
:~ create-desk
install-local
==
:~ create-desk
install-local
install-remote
==
::
++ create-desk ^- move
:^ hen %pass /dist/create/[desk]
%^ new-desk:cloy desk
(latest-tako desk)
;;((map path page) (cue (get-tmp-jam desk)))
::
:^ hen %pass /dist/[desk]/install
++ install-local ^- move
:^ hen %pass /dist/install-local/[desk]
[%g %deal [our our] %hood %poke %kiln-install !>([desk our desk])]
==
::
++ install-remote ^- move
=/ rem ?:(=(%base desk) %kids desk)
::
:^ hen %pass /dist/install-remote/[desk]
[%g %deal [our our] %hood %poke %kiln-install !>([desk sen rem])]
--
::
++ latest-tako
|= =desk
@ -1640,6 +1661,8 @@
::
++ did-kernel-update
|= invalid=(set path)
?. |(=(%base syd) &(=(%home syd) !dist-upgraded.ruf))
|
%- ~(any in invalid)
|=(p=path &((is-kernel-path p) !?=([%sys %vane *] p)))
:: +get-kelvin: read the desk's kernel version from /sys/kelvin