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
%fuse :: merge many
%park ::
%perm ::
%pork ::
%warp ::
%werp ::
@ -1611,14 +1612,16 @@
=/ sen (^^sein:title rof our now our)
%- lime
|^ ^- (list move)
::
?: =(sen our)
:~ create-desk
install-local
==
:~ create-desk
install-local
install-remote
=- (murn - same)
^- (list (unit move))
:~ `create-desk
`install-local
::
?: =(sen our) ~
`install-remote
::
?: =(%base desk) ~
`publish-desk
==
::
++ create-desk ^- move
@ -1627,6 +1630,10 @@
(latest-tako 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
:^ hen %pass /dist/install-local/[desk]
[%g %deal [our our] %hood %poke %kiln-install !>([desk our desk])]