Add json conversions to &hall-command.

mar/hall/command.hoon

@@ -11,5 +11,30 @@
 ++  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
+    ==
   --
 --