Change confusing local names. cfg -> settings
This commit is contained in:
parent
c5d995b262
commit
f7f02f7433
1 changed files with 5 additions and 5 deletions
|
@ -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))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue