mar/sole: add %tab conversion

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

View File

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

View File

@ -63,6 +63,10 @@
$pro
%+ frond %pro
(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)
(frond %act %s -.sef)