78 lines
1.2 KiB
Plaintext
78 lines
1.2 KiB
Plaintext
|
(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))
|