graph-push-hook: build %transform-add-nodes mark to keep cache hot
=* mark i.t.wire
:_ this
(build-permissions mark i.t.t.wire %next)^~
+ ::
+ [%transform-add @ ~]
+ =* mark i.t.wire
+ :_ this
+ (build-transform-add mark %next)^~
==
::
++ on-fail on-fail:def
:_ this(marks (~(put in marks) mark))
:~ (build-permissions:hc mark %add %sing)
(build-permissions:hc mark %remove %sing)
+ (build-transform-add:hc mark %sing)
==
::
%remove-graph
=/ =mood:clay [%c da+now.bowl /[mark]/(perm-mark-name kind)]
=/ =rave:clay ?:(?=(%sing mode) [mode mood] [mode mood])
[%pass wire %arvo %c %warp our.bowl %home `rave]
+::
+++ build-transform-add
+ |= [=mark mode=?(%sing %next)]
+ ^- card
+ =/ =wire /transform-add/[mark]
+ =/ =mood:clay [%c da+now.bowl /[mark]/transform-add-nodes]
+ =/ =rave:clay ?:(?=(%sing mode) [mode mood] [mode mood])
+ [%pass wire %arvo %c %warp our.bowl %home `rave]
--
