naive: support camel case rpc method name

pkg/arvo/app/azimuth-rpc.hoon

@@ -125,13 +125,14 @@
   =,  azimuth-rpc
   ?.  ?=([%map *] params)
     [~ ~(parse error:json-rpc id)]
+  =/  method=@tas  (enkebab method)
   ?+  method  [~ ~(method error:json-rpc id)]
-    %get-point             [~ (get-point id +.params point:scry)]
+    %get-point               `(get-point id +.params point:scry)
-    %get-points            [~ (get-points id +.params points:scry)]
+    %get-points              `(get-points id +.params points:scry)
-    %get-dns               [~ (get-dns id +.params dns:scry)]
+    %get-dns                 `(get-dns id +.params dns:scry)
     %transfer-point          (transfer-point id +.params)
-    %cancel-tx             (cancel-tx id +.params)
+    %cancel-transaction      (cancel-tx id +.params)
-    %get-spawned           [~ (get-spawned id +.params spawned:scry)]
+    %get-spawned             `(get-spawned id +.params spawned:scry)
     %configure-keys          (configure-keys id +.params)
     %spawn                   (spawn id +.params)
     %escape                  (escape id +.params method)
@@ -142,14 +143,14 @@
     %set-management-proxy    (management-proxy id +.params method)
     %set-spawn-proxy         (spawn-proxy id +.params method)
     %set-transfer-proxy      (transfer-proxy id +.params method)
-    %pending               [~ (all:pending id +.params all:pending:scry)]
+    %get-all-pending         `(all:pending id +.params all:pending:scry)
-    %pending-by-ship       [~ (ship:pending id +.params ship:pending:scry)]
+    %get-pending-by-ship     `(ship:pending id +.params ship:pending:scry)
-    %pending-by-address    [~ (addr:pending id +.params addr:pending:scry)]
+    %get-pending-by-address  `(addr:pending id +.params addr:pending:scry)
-    %status                [~ (status id +.params tx-status:scry)]
+    %get-transaction-status  `(status id +.params tx-status:scry)
-    %next-batch            [~ (next-batch id +.params next-batch:scry)]
+    %when-next-batch         `(next-batch id +.params next-batch:scry)
-    %nonce                 [~ (nonce id +.params nonce:scry)]
+    %get-nonce               `(nonce id +.params nonce:scry)
-    %history               [~ (history id +.params addr:history:scry)]
+    %get-history             `(history id +.params addr:history:scry)
-    %get-config            [~ (get-config id +.params config:scry)]
+    %get-roller-config       `(get-config id +.params config:scry)
   ==
 ::
 ++  scry

pkg/arvo/lib/azimuth-rpc.hoon

@@ -40,6 +40,24 @@
         `(rash p.jon dem)
       ?.  ?=([%s *] jon)  ~
       `(rash p.jon ;~(pfix sig fed:ag))
+    ::  TODO: from /lib/group-store (move to zuse?)
+    ++  enkebab
+      |=  str=cord
+      ^-  @tas
+      ~|  str
+      =-  (fall - str)
+      %+  rush  str
+      =/  name
+        %+  cook
+          |=  part=tape
+          ^-  tape
+          ?~  part  part
+          :-  (add i.part 32)
+          t.part
+        ;~(plug hig (star low))
+      %+  cook
+        |=(a=(list tape) (crip (zing (join "-" a))))
+      ;~(plug (star low) (star name))
     ::
     ++  from-json
       =,  dejs-soft:format
@@ -52,7 +70,7 @@
         %-  ot
         :~  ['encrypt' so]
             ['auth' so]
-            ['crypto-suite' so]
+            ['cryptoSuite' so]
             ['breach' bo]
         ==
       ::
@@ -166,8 +184,9 @@
         ^-  json
         %-  pairs
         :~  ['force' b+force]
+            ['address' s+(crip "0x{((x-co:co 20) address)}")]
           ::
-            :-  'raw-tx'
+            :-  'rawTx'
             %-  pairs
             :~  ['tx' (tx:to-json tx.raw-tx)]
               ::
@@ -219,7 +238,7 @@
           ^-  (list [@t json])
           :~  ['encrypt' (numb encrypt)]
               ['auth' (numb auth)]
-              ['crypto-suite' (numb crypto-suite)]
+              ['cryptoSuite' (numb crypto-suite)]
               ['breach' b+breach]
           ==
         --
@@ -312,27 +331,17 @@
             ['address' s+(crip "0x{((x-co:co 20) addr)}")]
         ==
       ::
-      ++  tx-status
+      ++  tx-status  |=(=^tx-status ^-(json s+status.tx-status))
-        |=  =^tx-status
-        ^-  json
-        %-  pairs
-        :~  ['status' s+status.tx-status]
-          ::
-            :-  'pointer'
-            ?~  pointer.tx-status  ~
-            =*  pointer  u.pointer.tx-status
-            (ownership address.pointer nonce.pointer)
-        ==
       ::
       ++  config
         |=  roller-config
         ^-  json
         %-  pairs
-        :~  ['next-batch' (time next-batch)]
+        :~  ['nextBatch' (time next-batch)]
             ['frequency' (numb (div frequency ~s1))]
-            ['refresh-time' (numb (div refresh-time ~s1))]
+            ['refreshTime' (numb (div refresh-time ~s1))]
             ['contract' s+(crip "0x{((x-co:co 20) contract)}")]
-            ['chain-id' (numb chain-id)]
+            ['chainId' (numb chain-id)]
         ==
       --
     ::