22 lines
497 B
Clojure
22 lines
497 B
Clojure
|
(ns status-im.i18n
|
||
|
|
(:require [clojure.string :as string]))
|
||
|
|
|
||
|
|
(defn read-file [f]
|
||
|
|
(when (.isFile f)
|
||
|
|
(let [locale (-> f
|
||
|
|
.getName
|
||
|
|
(string/split #"\.")
|
||
|
|
first)
|
||
|
|
content (slurp f)]
|
||
|
|
[(keyword locale) content])))
|
||
|
|
|
||
|
|
(defn read-translations []
|
||
|
|
(->>
|
||
|
|
(java.io.File. "translations")
|
||
|
|
file-seq
|
||
|
|
(keep read-file)
|
||
|
|
vec))
|
||
|
|
|
||
|
|
(defmacro translations [languages]
|
||
|
|
(select-keys (into {} (read-translations)) languages))
|