dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Check that newly created projects have not been archived before

master
Daniel Borchmann 2020-09-20 14:23:52 +02:00
parent 644d463260
commit 4dead43c36
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
site-lisp/db-projects.el
View File

@ -2,7 +2,7 @@
;;; Commentary:
;; XXX: check that newly created projects aren’t name the same as archived projects
;; XXX: update org-agenda-text-search-extra-files when creating and removing projects
;;; Code:
@ -52,6 +52,9 @@ with some standard information like title and creation date."
(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 (expand-file-name short-name
projects-archive-directory))
(user-error "Project %s already exists as archived project, exiting" short-name))
(let* ((project-directory (expand-file-name short-name
projects-main-project-directory))
(default-directory project-directory))