2017-10-12 13:30:16 +03:00
|
|
|
::
|
2017-10-20 00:58:18 +03:00
|
|
|
:::: /mar/talk/action/hoon
|
2017-10-12 13:30:16 +03:00
|
|
|
::
|
|
|
|
|
/- talk
|
|
|
|
|
/+ talk-json
|
|
|
|
|
::
|
2017-10-20 00:58:18 +03:00
|
|
|
|_ act/action:talk
|
2017-10-12 13:30:16 +03:00
|
|
|
::
|
|
|
|
|
++ grab ::> convert from
|
|
|
|
|
|%
|
2017-10-20 00:58:18 +03:00
|
|
|
++ noun action:talk ::< from %noun
|
2017-10-12 13:30:16 +03:00
|
|
|
++ json ::> from %json
|
2017-10-20 20:46:02 +03:00
|
|
|
=> [. dejs:talk-json] ::TODO =,
|
2017-10-12 13:30:16 +03:00
|
|
|
=, dejs-soft:format
|
2017-10-20 00:58:18 +03:00
|
|
|
|= a/json
|
|
|
|
|
^- action:talk
|
2017-10-12 13:30:16 +03:00
|
|
|
=- (need ((of -) a))
|
2017-10-20 20:46:02 +03:00
|
|
|
:~ create+(ot nom+so des+so sec+secu ~)
|
2017-10-20 00:58:18 +03:00
|
|
|
delete+(ot nom+so why+(mu so) ~)
|
|
|
|
|
depict+(ot nom+so des+so ~)
|
2017-10-20 20:46:02 +03:00
|
|
|
filter+(ot nom+so fit+filt ~)
|
|
|
|
|
permit+(ot nom+so inv+bo sis+(as (su fed:ag)) ~)
|
|
|
|
|
source+(ot nom+so aub+bo srs+(as sorc) ~)
|
2017-10-20 00:58:18 +03:00
|
|
|
::
|
2017-10-20 20:46:02 +03:00
|
|
|
convey+(ar thot)
|
|
|
|
|
phrase+(ot aud+audi ses+(ar spec:dejs:talk-json) ~)
|
2017-10-20 00:58:18 +03:00
|
|
|
::
|
2017-11-02 02:44:13 +03:00
|
|
|
notify+(ot aud+audi pes+(mu pres) ~)
|
2017-10-20 20:46:02 +03:00
|
|
|
naming+(ot aud+audi man+huma ~)
|
2017-10-20 00:58:18 +03:00
|
|
|
::
|
2017-10-20 20:46:02 +03:00
|
|
|
glyph+(ot gyf+so aud+audi bin+bo ~)
|
2017-10-20 18:42:07 +03:00
|
|
|
nick+(ot who+(su fed:ag) nic+so ~)
|
2017-11-06 23:20:33 +03:00
|
|
|
::
|
|
|
|
|
public+(ot add+bo cir+circ ~)
|
2017-10-12 13:30:16 +03:00
|
|
|
==
|
|
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
++ grow ::> convert to
|
|
|
|
|
|%
|
|
|
|
|
++ json ::> to %json
|
2017-10-20 20:46:02 +03:00
|
|
|
=> [. enjs:talk-json] ::TODO =,
|
2017-10-20 00:58:18 +03:00
|
|
|
=, enjs:format
|
|
|
|
|
%+ frond -.act
|
|
|
|
|
::> only %convey has just a single piece of data.
|
2017-10-20 20:46:02 +03:00
|
|
|
?: ?=($convey -.act) a+(turn tos.act thot)
|
2017-10-20 00:58:18 +03:00
|
|
|
%- pairs
|
|
|
|
|
?- -.act
|
|
|
|
|
$create ~[nom+s+nom.act des+s+des.act sec+s+sec.act]
|
2017-10-20 20:46:02 +03:00
|
|
|
$delete ~[nom+s+nom.act why+(mabe why.act cord:enjs)]
|
2017-10-20 00:58:18 +03:00
|
|
|
$depict ~[nom+s+nom.act des+s+des.act]
|
2017-10-20 20:46:02 +03:00
|
|
|
$filter ~[nom+s+nom.act fit+(filt fit.act)]
|
|
|
|
|
$permit ~[nom+s+nom.act inv+b+inv.act sis+(sa sis.act ship)]
|
|
|
|
|
$source ~[nom+s+nom.act sub+b+sub.act srs+(sa srs.act sorc)]
|
2017-10-20 00:58:18 +03:00
|
|
|
::
|
2017-10-20 20:46:02 +03:00
|
|
|
$phrase ~[aud+(audi aud.act) ses+a+(turn ses.act spec:enjs)]
|
2017-10-20 00:58:18 +03:00
|
|
|
::
|
2017-11-02 02:44:13 +03:00
|
|
|
$notify ~[aud+(audi aud.act) pes+(mabe pes.act cord:enjs)]
|
2017-10-20 20:46:02 +03:00
|
|
|
$naming ~[aud+(audi aud.act) man+(huma man.act)]
|
2017-10-20 00:58:18 +03:00
|
|
|
::
|
2017-10-20 20:46:02 +03:00
|
|
|
$glyph ~[gyf+s+gyf.act aud+(sa aud.act circ) bin+b+bin.act]
|
2017-10-20 18:42:07 +03:00
|
|
|
$nick ~[who+(ship who.act) nic+s+nic.act]
|
2017-11-06 23:20:33 +03:00
|
|
|
::
|
|
|
|
|
$public ~[add+b+add.act cir+(circ cir.act)]
|
2017-10-20 00:58:18 +03:00
|
|
|
==
|
2017-10-12 13:30:16 +03:00
|
|
|
--
|
|
|
|
|
--
|
