   "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))

        (insert "\n  " file))
      (insert "\n\n"))

    (when-let ((missing-bookmarks (projects-check-project-diary-bookmarks)))
      (insert "The following projects do not have a project diary bookmark: " (apply #'concat missing-bookmarks)))

    (display-buffer (current-buffer))))

(provide 'db-projects)

    (make-directory project-directory)
    (make-directory (expand-file-name "scripts"))
    (make-directory (expand-file-name "data"))
    (if-let ((git-executable (executable-find "git")))
        (call-process git-executable nil nil nil "init")
      (write-region "" nil (expand-file-name ".projectile")))
    (projectile-add-known-project project-directory)))

;;;###autoload
(defun projects-archive-project (short-name)
