   "Add new project with SHORT-NAME and LONG-NAME.
 The project directory will be located under
 `projects-main-project-directory' within a directory named
-SHORT-NAME.  A bookmark to the project diary will be created,
-using the given LONG-NAME.  The project diary will be pre-filled
-with some standard information like title and creation date."
+SHORT-NAME."
   (interactive "sShort Name: \nsLong Name: ")
   (when (projects-project-exists-p short-name)
     (user-error "Project %s already exists, exiting" short-name))


    (when (file-exists-p archive-path)
      (user-error "Archived project named %s already exists, aborting" short-name))

    ;; Remove bookmarks first
    (mapc #'bookmark-delete (projects--find-bookmarks-for-path project-path))

    ;; Move project directory into archive
    (unless (file-exists-p projects-archive-directory)

                      (gethash (file-truename org-file) extra-files nil))
                  (projects--org-files))))

;;;###autoload
(defun projects-lint-projects ()
  "Check all known projects for proper configuration.
