diff --git a/pkg/arvo/gen/desk-jam.hoon b/pkg/arvo/gen/desk-jam.hoon new file mode 100644 index 000000000..006393901 --- /dev/null +++ b/pkg/arvo/gen/desk-jam.hoon @@ -0,0 +1,10 @@ +:: +desk-jam: jam ankh from desk +:: +|= $: [now=@da eny=@uvJ bec=beak] + [=desk ~] + ~ + == +:- %jam +%- jam +=< ank +.^(dome:clay %cv /(scot %p p.bec)/[desk]/(scot %da now)) diff --git a/pkg/arvo/sys/vane/clay.hoon b/pkg/arvo/sys/vane/clay.hoon index 23a13542b..9fe4dbdc6 100644 --- a/pkg/arvo/sys/vane/clay.hoon +++ b/pkg/arvo/sys/vane/clay.hoon @@ -1598,8 +1598,7 @@ :~ :^ hen %pass /dist/[desk]/create %^ new-desk:cloy desk (latest-tako desk) - %- ~(run by (~(mup an:cloy ank.dom) /tmp/[desk])) - |=([* =mark * =noun] [mark noun]) + ;;((map path page) (cue (get-tmp-jam desk))) :: :^ hen %pass /dist/[desk]/install [%g %deal [our our] %hood %poke %kiln-install !>([desk our desk])] @@ -1611,6 +1610,17 @@ ?~ doj=(~(get by dos.rom) desk) ~ =, dom.u.doj (~(get by hit) let) + :: + ++ get-tmp-jam + |= =desk + ^- @ + ~| [%tmp desk] + ?~ tmp=(~(get by dir.ank.dom) ~.tmp) !! + ?~ new=(~(get by dir.u.tmp) desk) !! + ?~ fil.u.new !! + =* fil u.fil.u.new + ?> =(%jam p.q.fil) + ;;(@ q.q.fil) -- :: +is-kernel-path: should changing .pax cause a kernel or vane reload? ::