-
Notifications
You must be signed in to change notification settings - Fork 48
/
core.cljc
55 lines (48 loc) · 2.03 KB
/
core.cljc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
(ns camel-snake-kebab.core
(:require [clojure.string]
[camel-snake-kebab.internals.misc :as misc]
#?(:clj [camel-snake-kebab.internals.macros :refer [defconversion]]
:cljs [camel-snake-kebab.internals.alter-name])) ;; Needed for expansion of defconversion
#?(:cljs (:require-macros [camel-snake-kebab.internals.macros :refer [defconversion]])))
(declare
->PascalCase
->Camel_Snake_Case
->camelCase
->SCREAMING_SNAKE_CASE
->snake_case
->kebab-case
->HTTP-Header-Case
->PascalCaseKeyword
->camelCaseKeyword
->SCREAMING_SNAKE_CASE_KEYWORD
->snake_case_keyword
->kebab-case-keyword
->Camel_Snake_Case_Keyword
->HTTP-Header-Case-Keyword
->PascalCaseString
->camelCaseString
->SCREAMING_SNAKE_CASE_STRING
->snake_case_string
->kebab-case-string
->Camel_Snake_Case_String
->HTTP-Header-Case-String
->PascalCaseSymbol
->camelCaseSymbol
->SCREAMING_SNAKE_CASE_SYMBOL
->snake_case_symbol
->kebab-case-symbol
->Camel_Snake_Case_Symbol
->HTTP-Header-Case-Symbol)
(defn convert-case
"Converts the case of a string according to the rule for the first
word, remaining words, and the separator."
[first-fn rest-fn sep s & rest]
(apply misc/convert-case first-fn rest-fn sep s rest))
;; These are fully qualified to workaround some issue with ClojureScript:
(defconversion "PascalCase" clojure.string/capitalize clojure.string/capitalize "")
(defconversion "Camel_Snake_Case" clojure.string/capitalize clojure.string/capitalize "_")
(defconversion "camelCase" clojure.string/lower-case clojure.string/capitalize "" )
(defconversion "SCREAMING_SNAKE_CASE" clojure.string/upper-case clojure.string/upper-case "_")
(defconversion "snake_case" clojure.string/lower-case clojure.string/lower-case "_")
(defconversion "kebab-case" clojure.string/lower-case clojure.string/lower-case "-")
(defconversion "HTTP-Header-Case" camel-snake-kebab.internals.misc/capitalize-http-header camel-snake-kebab.internals.misc/capitalize-http-header "-")