 (defn ^:export send-new-project-request []
   (let [name (.-value (.getElementById js/document "project-name-input"))]
     (if (s/check schm/Project {:name name})
-      (msg/danger "Project name must be not empty!")
+      (msg/danger default-error-message)
       (do
         (.modal ($ :#iModalProject) "hide")
         (ajax  "/api/projects" "POST" {:name name} #(create-new-project-callback name %))))))

              :body (:gh-issue-body data-pack)
              :library (:artifact-value data-pack)}]
    (if (s/check schm/GithubIssueAction data)
      (msg/danger "Data is wrong! Check out it please.")
      (do
        (.modal ($ :#iModalAddAction) "hide")
        (ajax 

              :template (:email-template data-pack)
              :library (:artifact-value data-pack)}]
    (if (s/check schm/EmailAction data)
      (msg/danger default-error-message)
      (do
        (.modal ($ :#iModalAddAction) "hide")
        (ajax "/api/actions" "POST" data 
