(defn save-messages [messages]
  (let [lang (:lang messages)
        lang-keyword (keyword lang)
        messages-list  (map (fn [key] {:id key  lang-keyword (get messages key) }) (filter (fn [x] (not= x :lang)) (keys messages)))]
    (do
      (println "messages-list:" messages-list)
      (doseq [x messages-list] (save-message lang (:id x) (lang-keyword x) ))
      (println "test222")
      (layout/render "lang-list.html" {:items (get-translations lang) :lang lang}))))