mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-20 15:08:34 +03:00
zuse,clay: WIP +migrate-dist
This commit is contained in:
parent
04e010e6c8
commit
fb8c73e39a
@ -1574,27 +1574,31 @@
|
||||
=. mim.dom (apply-changes-to-mim mim.dom mim)
|
||||
=. fod.dom ford-cache.args
|
||||
=. ..park (emil (print q.old-yaki data))
|
||||
:: TODO: replace with .dist-upgraded=? state
|
||||
::
|
||||
=? ..park &(updated =(%420 zuse)) migrate-dist
|
||||
::
|
||||
wake:(ergo mim)
|
||||
::
|
||||
++ migrate-dist
|
||||
^+ ..park
|
||||
:: TODO: filter +park's yaki by path prefix, call +make-yaki?
|
||||
=/ base=ankh (~(dug an ank.dom) /tmp/base)
|
||||
=/ garden=ankh (~(dug an ank.dom) /tmp/garden)
|
||||
%- emil
|
||||
:~ [hen %pass /dist/base %c %park %base base]
|
||||
:* hen %pass /dist/base %g %deal [our %hood]
|
||||
%kiln-install %base our %base
|
||||
==
|
||||
|^ ^+ ..park
|
||||
=. ..park (install-from-tmp %base)
|
||||
=. ..park (install-from-tmp %garden)
|
||||
=. ..park (install-from-tmp %landscape)
|
||||
..park
|
||||
::
|
||||
[hen %pass /dist/garden %c %dart %garden garden]
|
||||
:* hen %pass /dist/garden %g %deal [our %hood]
|
||||
%kiln-install %garden our %garden
|
||||
==
|
||||
==
|
||||
++ install-from-tmp
|
||||
|= =desk
|
||||
%- emil
|
||||
:~ :^ hen %pass /dist/[desk]/create
|
||||
%- new-desk:cloy
|
||||
%- ~(run by (~(mup an:cloy ank.dom) /tmp/[desk]))
|
||||
|=([* =mark * =noun] [mark noun]))
|
||||
::
|
||||
:^ hen %pass /dist/[desk]/install
|
||||
[%g %deal [our %hood] %kiln-install desk our desk]
|
||||
==
|
||||
--
|
||||
:: +is-kernel-path: should changing .pax cause a kernel or vane reload?
|
||||
::
|
||||
++ is-kernel-path |=(pax=path ?=([%sys *] pax))
|
||||
|
@ -3734,6 +3734,10 @@
|
||||
++ cloy
|
||||
=, clay
|
||||
|%
|
||||
++ new-desk
|
||||
|= [=desk files=(map path page)]
|
||||
^- note-arvo
|
||||
[%c %park desk &/[~ (~(run by files) |=(p=page &/p))] *rang]
|
||||
:: +an: $ankh interface door
|
||||
::
|
||||
++ an
|
||||
@ -3755,6 +3759,17 @@
|
||||
?~ nik=(dug path) ~
|
||||
?~ fil.u.nik ~
|
||||
`q.u.fil.u.nik
|
||||
:: +mup: convert sub-tree at .pax to (map path [lobe cage])
|
||||
::
|
||||
++ mup
|
||||
|= pax=path
|
||||
=. nak (dug pax)
|
||||
=| res=(map path [=lobe =cage])
|
||||
|- ^+ res
|
||||
=? res ?=(^ fil.nak) (~(put by res) pax u.fil.nak)
|
||||
%+ roll ~(tap by dir.nak)
|
||||
|= [[seg=@ta =ankh] res=_res]
|
||||
^$(pax [seg pax], nak ankh, res res)
|
||||
--
|
||||
--
|
||||
:: ::
|
||||
|
Loading…
Reference in New Issue
Block a user