Change confusing local names. cfg -> settings

This commit is contained in:
Aleksander Madland Stapnes 2017-01-20 16:16:01 -03:00
parent c5d995b262
commit f7f02f7433

View file

@ -47,14 +47,14 @@
#{"selector" "selector_reagent"}) #{"selector" "selector_reagent"})
(defn clojure-eval? (defn clojure-eval?
"Does the configuration include any keys that imply clojure eval?" "Do the settings include any keys that imply clojure eval?"
[normalized-cfg] [normalized-settings]
(some clojure-selectors (keys normalized-cfg))) (some clojure-selectors (keys normalized-settings)))
(defn normalize-settings (defn normalize-settings
"Transform the keys to the correct snake-case or camelCase strings." "Transform the keys to the correct snake-case or camelCase strings."
[cfg] [settings]
(-> (map-keys ->snake_case_string cfg) (-> (map-keys ->snake_case_string settings)
(update-existing "codemirror_options_in" (partial map-keys ->camelCaseString)) (update-existing "codemirror_options_in" (partial map-keys ->camelCaseString))
(update-existing "codemirror_options_out" (partial map-keys ->camelCaseString)))) (update-existing "codemirror_options_out" (partial map-keys ->camelCaseString))))