(defn save-message [lang id message]
  (let [lang-keyword (keyword lang)
        conn (mg/connect)
        db   (mg/get-db conn "mydb")
        coll "translations"
        tmp  {$set  {lang-keyword message}} ]
    (do
      (println "(save-message" ":" lang id "\"" message "\")")
      (println "inserting:" tmp)
      (println "to:"  {:id id})
      (mc/update db coll {:id  id} tmp)
      (println "update finished"))))