clay: make distribution desks public on-migrate
To ensure our sponsees (and other ships) can install from them.
%merg :: merge desks
%fuse :: merge many
%park ::
+ %perm ::
%pork ::
%warp ::
%werp ::
=/ sen (^^sein:title rof our now our)
%- lime
|^ ^- (list move)
+ =- (murn - same)
+ ^- (list (unit move))
+ :~ `create-desk
+ `install-local
::
- ?: =(sen our)
- :~ create-desk
- install-local
- ==
- :~ create-desk
- install-local
- install-remote
+ ?: =(sen our) ~
+ `install-remote
+ ::
+ ?: =(%base desk) ~
+ `publish-desk
==
::
++ create-desk ^- move
(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])]
