mirror of
https://github.com/urbit/shrub.git
synced 2024-12-23 02:41:35 +03:00
42 lines
1.1 KiB
Plaintext
42 lines
1.1 KiB
Plaintext
::
|
|
:::: /mar/hall/telegrams/hoon
|
|
::
|
|
/- hall
|
|
/+ hall-json
|
|
::
|
|
|_ gaz/(list telegram:hall)
|
|
::
|
|
++ grab ::: convert from
|
|
|%
|
|
++ noun (list telegram:hall) ::: from %noun
|
|
::
|
|
++ mime ::: from %mime
|
|
|= ^mime
|
|
(json (rash q.q apex:de-json:html))
|
|
::
|
|
++ json ::: from %json
|
|
=, dejs-soft:format
|
|
|= a/json
|
|
^- (list telegram:hall)
|
|
(need ((ar gram:dejs:hall-json) a))
|
|
--
|
|
::
|
|
++ grow ::: convert to
|
|
|%
|
|
++ mime ::: to %mime
|
|
:- /text/json
|
|
(as-octs:mimes:html (crip (en-json:html json)))
|
|
::
|
|
++ json a+(turn gaz gram:enjs:hall-json) ::: to %json
|
|
--
|
|
::
|
|
++ grad
|
|
|%
|
|
++ form %hall-telegrams
|
|
++ diff |=((list telegram:hall) +<)
|
|
++ pact |=((list telegram:hall) +<)
|
|
++ join |= {(list telegram:hall) (list telegram:hall)}
|
|
`(unit mime)`~
|
|
--
|
|
--
|