78 lines
1.2 KiB
Clojure
78 lines
1.2 KiB
Clojure
(ns status-im.translations.sr-rs-latn
|
||
(:require [status-im.translations.sr-rs-cyrl :as sr-rs-cyrl]
|
||
[clojure.string :as string]))
|
||
|
||
(def letter-pairs
|
||
{"А" "A"
|
||
"Б" "B"
|
||
"В" "V"
|
||
"Г" "G"
|
||
"Д" "D"
|
||
"Ђ" "Đ"
|
||
"Е" "E"
|
||
"Ж" "Ž"
|
||
"З" "Z"
|
||
"И" "I"
|
||
"Ј" "J"
|
||
"К" "K"
|
||
"Л" "L"
|
||
"Љ" "Lj"
|
||
"М" "M"
|
||
"Н" "N"
|
||
"Њ" "Nj"
|
||
"О" "O"
|
||
"П" "P"
|
||
"Р" "R"
|
||
"С" "S"
|
||
"Т" "T"
|
||
"Ћ" "Ć"
|
||
"У" "U"
|
||
"Ф" "F"
|
||
"Х" "H"
|
||
"Ц" "C"
|
||
"Ч" "Č"
|
||
"Џ" "Dž"
|
||
"Ш" "Š"
|
||
|
||
"а" "a"
|
||
"б" "b"
|
||
"в" "v"
|
||
"г" "g"
|
||
"д" "d"
|
||
"ђ" "đ"
|
||
"е" "e"
|
||
"ж" "ž"
|
||
"з" "z"
|
||
"и" "i"
|
||
"ј" "j"
|
||
"к" "k"
|
||
"л" "l"
|
||
"љ" "lj"
|
||
"м" "m"
|
||
"н" "n"
|
||
"њ" "nj"
|
||
"о" "o"
|
||
"п" "p"
|
||
"р" "r"
|
||
"с" "s"
|
||
"т" "t"
|
||
"ћ" "ć"
|
||
"у" "u"
|
||
"ф" "f"
|
||
"х" "h"
|
||
"ц" "c"
|
||
"ч" "č"
|
||
"џ" "dž"
|
||
"ш" "š"})
|
||
|
||
(defn cyr->lat [cyr]
|
||
(cond
|
||
(string? cyr) (string/join
|
||
(map #(get letter-pairs (str %) (str %)) cyr))
|
||
(map? cyr) (into {}
|
||
(map (fn [[k v]] [k (cyr->lat v)]) cyr))
|
||
:else nil))
|
||
|
||
(def translations
|
||
(cyr->lat sr-rs-cyrl/translations))
|