clay: make distribution desks public on-migrate

To ensure our sponsees (and other ships) can install from them.
This commit is contained in:
Fang 2021-09-28 15:59:36 +04:00
parent dc6f2146e4
commit 059c2daed3
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -306,6 +306,7 @@
%merg :: merge desks %merg :: merge desks
%fuse :: merge many %fuse :: merge many
%park :: %park ::
%perm ::
%pork :: %pork ::
%warp :: %warp ::
%werp :: %werp ::
@ -1611,14 +1612,16 @@
=/ sen (^^sein:title rof our now our) =/ sen (^^sein:title rof our now our)
%- lime %- lime
|^ ^- (list move) |^ ^- (list move)
=- (murn - same)
^- (list (unit move))
:~ `create-desk
`install-local
:: ::
?: =(sen our) ?: =(sen our) ~
:~ create-desk `install-remote
install-local ::
== ?: =(%base desk) ~
:~ create-desk `publish-desk
install-local
install-remote
== ==
:: ::
++ create-desk ^- move ++ create-desk ^- move
@ -1627,6 +1630,10 @@
(latest-tako desk) (latest-tako desk)
;;((map path page) (cue (get-tmp-jam desk))) ;;((map path page) (cue (get-tmp-jam desk)))
:: ::
++ publish-desk ^- move
:^ hen %pass /dist/public/[desk]
[%c %perm desk / %r `[%black ~]]
::
++ install-local ^- move ++ install-local ^- move
:^ hen %pass /dist/install-local/[desk] :^ hen %pass /dist/install-local/[desk]
[%g %deal [our our] %hood %poke %kiln-install !>([desk our desk])] [%g %deal [our our] %hood %poke %kiln-install !>([desk our desk])]