     [fulcro.client.primitives :as fp]
     [garden.selectors :as gs]
     [com.wsscode.pathom.viz.codemirror :as pcm]
-    [goog.object :as gobj]
-    [goog.string :as gstr]))
-
-(defn js-name [s]
-  (gstr/toCamelCase (name s)))
+    [goog.object :as gobj]))
 
 (defn pretty-print-string [x]
   (str/replace (with-out-str (cljs.pprint/pprint x))

    (let [gql (try
                (let [gql (-> om-next-query
                              read-string
                              (gql/query->graphql {::gql/js-name js-name}))]
                  (swap! state assoc-in (conj ref :ui/translate-error?) false)
                  gql)
                (catch :default _

                                        ["Join" [{:app/me [:user/id :user/name]}]]
                                        ["Ident" [{[:user/login "wilkerlucio"] [:bio :url]}
                                                  {[:organization/login "clojure"] [:name :url]}
                                                  {[:github.repository/nameAndowner ["pathom" "wilkerlucio"]] [:id :name]}]]
                                        ["Join Parameters" [{(:app/allUsers {:limit 10})
                                                             [:user/id :user/name]}]]
                                        ["Aliases" [{(:property {::gql/alias "aliased" :another "param"})
                                                     [:subquery]}]]
                                        ["Enums" [{:viewer
                                                   [{(:starredRepositories {:first   10
                                                                            :orderBy {:field       STARRED_AT
                                                                                        :direction DESC}})
                                                     [{:nodes
                                                       [:id :name :updatedAt]}]}]}]]
                                        ["Union" [{:app/timeline
                                                   {:app/User     [:user/id :user/name]
                                                    :app/Activity [:activity/id :activity/title
