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

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