urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-24 11:24:21 +03:00
Code Issues Packages Projects Releases Wiki Activity
e1146a820b
shrub/pkg/arvo/ted/commit.hoon

67 lines
1.9 KiB
Plaintext
Raw Normal View History

clay: add %park task and -commit %park is a plumbing commit task. It guarantees completion in a single event, so you have to do much of the work before calling it. -commit is an example of how to do this.
2020-03-21 01:30:52 +03:00
:: Delete `deletes`, insert/change `changes`, and don't touch anything
:: else.
::
/- spider
clay: add -merge except meet/mate/meld -merge will replace |merge so that. Once they reach feature parity and %info is rewritten to forward to -commit, we can rip out about half of clay.hoon
2020-03-26 06:12:05 +03:00
/+ strandio, clay-commit
clay: add %park task and -commit %park is a plumbing commit task. It guarantees completion in a single event, so you have to do much of the work before calling it. -commit is an example of how to do this.
2020-03-21 01:30:52 +03:00
=, strand=strand:spider
=, clay
^- thread:spider
|= arg=vase
=+ !<([=desk deletes=(set path) changes=(map path cage) ~] arg)
=/ m (strand ,vase)
^- form:m
::
:: Cast to expected marks
::
;< our=@p bind:m get-our:strandio
=/ cast-builds=(map path schematic:ford)
%- ~(urn by changes)
|= [=path =cage]
[%cast [our desk] =>((flop path) ?~(. %$ i)) %$ cage]
;< cast-results=(map path cage) bind:m (build-cages:strandio cast-builds)
::
:: Fetch current state
::
;< now=@da bind:m get-time:strandio
=+ .^(=dome %cv /(scot %p our)/[desk]/(scot %da now))
::
:: Apply changes to current state to create new yaki
::
=/ new-blobs=(map path blob)
%- ~(run by cast-results)
|= =cage
=/ =page [p q.q]:cage
[%direct (page-to-lobe page) page]
::
=/ parent-tako=tako (~(got by hit.dome) let.dome)
=/ all-lobes=(map path lobe)
clay: add -merge except meet/mate/meld -merge will replace |merge so that. Once they reach feature parity and %info is rewritten to forward to -commit, we can rip out about half of clay.hoon
2020-03-26 06:12:05 +03:00
=+ .^ =parent=yaki %cs
/(scot %p our)/[desk]/(scot %da now)/yaki/(scot %uv parent-tako)
clay: add %park task and -commit %park is a plumbing commit task. It guarantees completion in a single event, so you have to do much of the work before calling it. -commit is an example of how to do this.
2020-03-21 01:30:52 +03:00
==
=/ after-deletes
%- ~(dif by q.parent-yaki)
(malt (turn ~(tap in deletes) |=(=path [path *lobe])))
%- ~(uni by after-deletes)
(~(run by new-blobs) |=(=blob p.blob))
::
clay: add -merge except meet/mate/meld -merge will replace |merge so that. Once they reach feature parity and %info is rewritten to forward to -commit, we can rip out about half of clay.hoon
2020-03-26 06:12:05 +03:00
:: XX should we be getting the time later, after all async?
clay: add %park task and -commit %park is a plumbing commit task. It guarantees completion in a single event, so you have to do much of the work before calling it. -commit is an example of how to do this.
2020-03-21 01:30:52 +03:00
;< now=@da bind:m get-time:strandio
=/ new-yaki=yaki (make-yaki ~[parent-tako] all-lobes now)
::
:: Apply new blobs and yaki to rang
::
=/ =rang
:- (~(put by hut:*rang) r.new-yaki new-yaki)
(malt (turn ~(tap by new-blobs) |=([=path =blob] [p.blob blob])))
::
clay: add -merge except meet/mate/meld -merge will replace |merge so that. Once they reach feature parity and %info is rewritten to forward to -commit, we can rip out about half of clay.hoon
2020-03-26 06:12:05 +03:00
:: Checkout ankh and mime cache (derived state)
clay: add %park task and -commit %park is a plumbing commit task. It guarantees completion in a single event, so you have to do much of the work before calling it. -commit is an example of how to do this.
2020-03-21 01:30:52 +03:00
::
clay: add -merge except meet/mate/meld -merge will replace |merge so that. Once they reach feature parity and %info is rewritten to forward to -commit, we can rip out about half of clay.hoon
2020-03-26 06:12:05 +03:00
=/ =ankh (checkout:clay-commit ank.dome deletes cast-results)
;< mim=(map path (unit mime)) bind:m
clay: fix %init for -merge
2020-04-11 06:42:56 +03:00
(checkout-cache:clay-commit our desk deletes cast-results)
clay: add %park task and -commit %park is a plumbing commit task. It guarantees completion in a single event, so you have to do much of the work before calling it. -commit is an example of how to do this.
2020-03-21 01:30:52 +03:00
:: Send to clay
::
clay: add -merge except meet/mate/meld -merge will replace |merge so that. Once they reach feature parity and %info is rewritten to forward to -commit, we can rip out about half of clay.hoon
2020-03-26 06:12:05 +03:00
=/ args [desk r.new-yaki rang ankh mim]
clay: add %park task and -commit %park is a plumbing commit task. It guarantees completion in a single event, so you have to do much of the work before calling it. -commit is an example of how to do this.
2020-03-21 01:30:52 +03:00
;< ~ bind:m (send-raw-card:strandio %pass /commit/[desk] %arvo %c %park args)
(pure:m !>(~))
Reference in New Issue Copy Permalink