Add json conversions to &hall-command.
++ grab :: convert from
|%
++ noun command :: from %noun
+ ++ json :: from %json
+ => [. dejs:hall-json] ::TODO =,
+ =, dejs-soft:format
+ |= a/json
+ ^- command:hall
+ =- (need ((of -) a))
+ :~ publish+(ar thot)
+ present+(ot nos+(as so) dif+disa ~)
+ :: bearing not needed
+ ==
+ --
+::
+++ grow :: convert to
+ |%
+ ++ json :: to %json
+ => [. enjs:hall-json] ::TODO =,
+ =, enjs:format
+ %+ frond -.cod
+ :: only %publish has just a single piece of data.
+ ?: ?=($publish -.cod) a+(turn tos.cod thot)
+ %- pairs
+ ?+ -.cod !!
+ $present ~[nos+(sa nos.cod cord:enjs:hall-json) dif+(disa dif.cod)]
+ :: bearing nto needed
+ ==
--
--
