urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-22 18:31:44 +03:00
Code Issues Packages Projects Releases Wiki Activity

kiln: simplify ++frond call in %kiln-jump mark

Browse Source
This commit is contained in:
Tinnus Napbus 2023-09-16 01:34:01 +12:00
parent b2a3350afd
commit 00bc412619
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pkg/arvo/mar/kiln/jump.hoon
View File

@ -10,21 +10,12 @@
++ json ++ json
=, enjs:format =, enjs:format
|^ ^- ^json |^ ^- ^json
%+ frond -.jum
?- -.jum ?- -.jum
%add %add (pairs ['old' (en-dock old.jum)] ['new' (en-dock new.jum)] ~)
%+ frond 'add' %yea (pairs ['old' (en-dock old.jum)] ['new' (en-dock new.jum)] ~)
(pairs ['old' (en-dock old.jum)] ['new' (en-dock new.jum)] ~) %nay (pairs ['old' (en-dock old.jum)] ['new' (en-dock new.jum)] ~)
::
%yea
%+ frond 'yea'
(pairs ['old' (en-dock old.jum)] ['new' (en-dock new.jum)] ~)
::
%nay
%+ frond 'nay'
(pairs ['old' (en-dock old.jum)] ['new' (en-dock new.jum)] ~)
::
%all %all
%+ frond 'all'
:- %a :- %a
%+ turn ~(tap by all.jum) %+ turn ~(tap by all.jum)
|= [old=dock new=dock] |= [old=dock new=dock]