2015-09-03 00:53:11 +03:00
|
|
|
::
|
2016-02-05 06:05:37 +03:00
|
|
|
:::: /hoon/telegrams/talk/mar
|
2015-09-03 00:53:11 +03:00
|
|
|
::
|
2017-10-24 18:59:27 +03:00
|
|
|
/- talk
|
|
|
|
|
/+ talk-json
|
2016-11-17 04:42:58 +03:00
|
|
|
::
|
2017-10-24 18:59:27 +03:00
|
|
|
|_ gaz/(list telegram:talk)
|
2015-09-03 00:53:11 +03:00
|
|
|
::
|
2017-10-24 18:59:27 +03:00
|
|
|
++ grab ::> convert from
|
2017-04-25 22:21:46 +03:00
|
|
|
|%
|
2017-10-24 18:59:27 +03:00
|
|
|
++ noun (list telegram:talk) ::< from %noun
|
|
|
|
|
::
|
|
|
|
|
++ mime ::> from %mime
|
|
|
|
|
|= ^mime
|
|
|
|
|
(json (rash q.q apex:de-json:html))
|
|
|
|
|
::
|
|
|
|
|
++ json ::> from %json
|
|
|
|
|
=, dejs-soft:format
|
|
|
|
|
|= a/json
|
|
|
|
|
^- (list telegram:talk)
|
|
|
|
|
(need ((ar gram:dejs:talk-json) a))
|
2015-09-03 00:53:11 +03:00
|
|
|
--
|
|
|
|
|
::
|
2017-10-24 18:59:27 +03:00
|
|
|
++ grow ::> convert to
|
2015-09-03 02:20:11 +03:00
|
|
|
|%
|
2017-10-24 18:59:27 +03:00
|
|
|
++ mime ::> to %mime
|
|
|
|
|
:- /text/json
|
|
|
|
|
(as-octs:mimes:html (crip (en-json:html json)))
|
|
|
|
|
::
|
|
|
|
|
++ json a+(turn gaz gram:enjs:talk-json) ::< to %json
|
2015-09-03 02:20:11 +03:00
|
|
|
--
|
2017-11-07 22:00:42 +03:00
|
|
|
::
|
|
|
|
|
++ grad
|
|
|
|
|
|%
|
|
|
|
|
++ form %talk-telegrams
|
|
|
|
|
++ diff |=((list telegram:talk) +<)
|
|
|
|
|
++ pact |=((list telegram:talk) +<)
|
|
|
|
|
++ join |= {(list telegram:talk) (list telegram:talk)}
|
|
|
|
|
`(unit mime)`~
|
|
|
|
|
--
|
2015-09-03 00:53:11 +03:00
|
|
|
--
|
