gen: make |ota useful again

As an alias for installing into the base desk. Defaults to the remote
ship's %kids desk if no desk is specified.
This commit is contained in:
fang 2021-10-08 21:39:19 +04:00
parent 9d36e58e21
commit f9f91b9592
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -8,11 +8,11 @@
::
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
[arg=?(~ [%disable ~] [her=@p sud=@tas ~]) ~]
arg=?([%disable ~] [her=@p sud=?(~ [@tas ~])])
~
==
?~ arg
:- %kiln-ota-info ~
:- %kiln-ota
:- %kiln-install
?: ?=([%disable ~] arg)
~
`[her sud]:arg
[%base p.bec %base]
:+ %base her.arg
?@(sud.arg %kids -.sud.arg)