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