            :empty-date      "Event should have date"
            :duplicate-event "Event with same name today was created. Use another name"
            :no-participants "Participants should be checked"
-           :unexist         "Event does not exist"
+           :unexist         "Event %s does not exist"
            :finished        "Event is history"
            :parts-count     "Event have less parts that given"
            }

   :user {
          :empty-name "Username can't be empty"
          :not-found "User not found"
          :unexist "Username doesn't exists"
          }
   :login {
           :invalid "Incorrect Login or password"

   }
  )

(defn- message
  "Giving message text form mesage-map, using tags. If spend some `data` to
  this, format string if possible. Can spend only 0-1 data-string."
  ([tags] (message tags ""))
  ([ tags & data ]
   (apply format (get-in errors tags "Internal: Wrong message link") data)) )

(defn errors-string
  ([] (reduce str (map #(str "|" % "|") (vld/get-errors))))
