                      [(vld/has-value? username) (message :user :empty-name)]
                      [(>= (count pass1) 8) (message :register :short-pass)]
                      [(= pass1 pass2) (message :register :notmatch-pass)]
-                     [(empty? (db/get-user username)) (message :user :exists) ]
+                     [(empty? (db/get-user username)) (message :user :unexist) ]
                      ]))
 
 (defn login? [username password]

   :user {
          :empty-name "Username can't be empty"
          :not-found "User not found"
          :unexists "Username already used"
          }
   :login {
           :invalid "Incorrect Login or password"
           }
   }
  )

(defn- message [ & tgs ] (get-in errors (vec tgs)))

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

                     [(<= parts (db/get-rest-parts ename date)) (message :event :parts-count)]
                     ])
  )

(defn fee? [id]
 (create-validator :pay
                   [
                    [(not= nil id) (message :fee :unexist)]
                    [false (message :event :unexist)]
                    [false (message :user :unexist)]
                    ]
                   )
  )
