urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-04 10:32:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

mar/sole: add %tab conversion

Browse Source 
Our mark definitions for sole actions and effects pre-date our tab
completion work. This commit adds tab completion actions and
effects to the definition, so they can be sent and received as JSON.
This commit is contained in:
Matilde Park 2019-11-14 12:15:27 -05:00
parent 2a1e0971f2
commit c39d887415
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/arvo/mar/sole/action.hoon
View File

@ -15,7 +15,7 @@
|= jon/^json ^- sole-action |= jon/^json ^- sole-action
%- need %. jon %- need %. jon
=> [dejs-soft:format ..sole-action] => [dejs-soft:format ..sole-action]
|^ (fo %ret (of det+change ~)) |^ (fo %ret (of det+change tab+ni ~))
++ fo ++ fo
|* {a/term b/fist} |* {a/term b/fist}
|=(c/json ?.(=([%s a] c) (b c) (some [a ~]))) |=(c/json ?.(=([%s a] c) (b c) (some [a ~])))

4
pkg/arvo/mar/sole/effect.hoon
View File

@ -63,6 +63,10 @@
$pro $pro
%+ frond %pro %+ frond %pro
(pairs vis+b+vis.sef tag+s+tag.sef cad+(tape (purge cad.sef)) ~) (pairs vis+b+vis.sef tag+s+tag.sef cad+(tape (purge cad.sef)) ~)
::
$tab
%+ frond %tab
a+(turn p.sef |=([=cord tan=^tank] (pairs match+s+cord info+(tape ~(ram re tan)) ~)))
:: ::
?($bel $clr $nex) ?($bel $clr $nex)
(frond %act %s -.sef) (frond %act %s -.sef)